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General environment 


The Xerox Development Environment provides interfaces for building tools and whole 
systems from start to finish. Interfaces suitable for use by programmers at differing levels 
of ability and familiarity with XDE are available for many tasks. 

The interfaces in this section are all basic and should be studied both for content and to get 
a feel for the XDE paradigm of "tools and interfaces.” The simplest interfaces are Atom 
and Date, followed by Token, Executive, Expand, HeraldWindow, and Profile interfaces. 
The most important interfaces in this group are AddressTranslation, along with CmFile 
and the ToolDriver. 

In general, a programmer new to the Xerox Development Environment can get started 
building tools by looking at the interfaces in this and the next (Tool building) sections and 
then studying the Example Tool in Appendix A for specifics. The interfaces discussed later 
in this manual can be added to the programmer’s repertoire as needed. 


LI Files 


Most facilities described in this manual are implemented by boot files. Some of the 
facilities are provided by packages that can be loaded in the boot files. 

This manual does not explicitly mention the location of files. This information is in the 
documentation issued with each release of Mesa. 

L2 Philosophy and conventions 

The development environment assumes that programs that run in it are friendly and are 
not trying to circumvent or sabotage the system. The system does not enforce many of the 
conventions described here, but it assumes that tool writers will adhere to them 
voluntarily. As with rules of etiquette, if these conventions are not followed, 
communication and sharing can break down: the development environment may degrade 
or break down altogether. 
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General environment 


L2.1 Users and clients 

Throughout, this manual refers to users and to clients. These terms are not 
interchangeable, but refer to very different things. 

A user is human being sitting at a workstation, typing keys, pressing buttons, and moving 
the mouse. User actions are not predictable or controllable by programs. Users never 
invoke program interfaces; they interact with facilities of the development environment 
in ways described in the XDE User's Guide. 

A client is a program that invokes the facilities of the development environment. The 
client may act as a result of some user action, but the client's behavior is the result of a 
program and under the control of its implementor. 

Tajo refers to the piece of the development environment that implements the user 
interface facilities. 

I«2.2 Tools philosophy 

The most important principle in the development environment is that users should have 
complete control over their environment. In particular, clients should not pre-empt users. 
A user should never be forced by a client into a situation where the only thing that can be 
done is to interact with one tool. Furthermore, the client should avoid falling into a 
particular ”mode” when interacting with the user. The tool should avoid imposing 
unnecessary restrictions on the permitted sequencing of user actions. 

This goal of user control has important implications for tool design. A client should never 
seize control of the processor while getting user input. This tends to happen when the 
client wants to use the "get a command from the user and execute it” mode of operation. 
Instead, a tool should arrange for Tajo to notify it when the user wishes to communicate 
some event to the tool. This is known as the "don’t call us, we’ll call you" principle. 

The user owns the window layout on the screen. Although the client can rearrange the 
windows, this is discouraged. Users have particular and differing tastes in the way they 
wish to lay out windows on the display; it is not the client’s role to override the user’s 
decisions. In particular, clients should avoid making windows jump up and down to 
capture the user’s attention. If the user has put a window off to the side, he does not want 
to be bothered by it. 

The facilities provided by the development environment are designed to facilitate this 
same program writing style. In particular, the Tool interface makes it easy for a 
programmer to write a program that interacts with the user in this way. The development 
environment manages the details of user interaction so that tools are presented with a 
sequence of discrete commands or actions. Programmers should study the Example Tool in 
Appendix A for an example of how to use these facilities, 

1.2.3 Notifier 

Tajo sends most user input actions to the window that has set itself to be the focus for user 
input; the rest of the actions are directed to the window containing the cursor. (See the TIP 
interface for details on how the decision is made where to send these actions.) A process in 
Tajo notes all user input actions and determines which window should receive each. A 
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client is concerned only with the actions that are directed to its window; it need not 
concern itself with determing which actions are intended for it. 

Two processes are involved in user input management. One is a high-priority process that 
queues user actions as they happen. The first process is called the Interrupt Level, the 
Stimulus Level, or the StimLev. The other is a normal-priority process that processes the 
user actions. This second process is called the Notifier, Processing Level, or the Matcher. 

The Notifier informs a tool of a user action directed to it by calling a tool-supplied 
NotifyProc procedure. The standard tool facilities provide appropriate NotifyProcs so that 
tool writers need not worry about providing their own. Ambitious tool writers can, of 
course provide their own; see the TIP and Userlnput interfaces. Tool writers creating their 
own subwindow types will probably have to do this. 

It is important to realize that most tools operate from the Notifier process. The Notifier 
waits until a NotifyProc finishes for one user action before processing the next user action. 
The procedures associated with form subwindow commands, for instance, are executed in 
the Notifier process. 

One implication of this use of the Notifier process is that a NotifyProc that requires a lot of 
computing or communicating will delay the processing of all other user actions until it 
completes. As a result, it is considered very impolite to "steal the Notifier” for any great 
length of time, thus preventing the user from using other tools. It is the Tajo philosophy 
that tools should never pre-empt the machine. Tool writers should fork any command 
that will take more than three to five seconds to complete. Of course, the tool writer must 
take great care when stepping into this world of parallel processing. See the Example Tool 
in Appendix A for one method of protecting the tool when FORKing. 

Another implication of this use of the Notifier process is that the Notifier can be used to 
obtain mutual exclusion for processing user actions. This is desirable when a client wants 
to make a "background” request, one that will only receive machine resources if the 
Notifier is otherwise unoccupied. It is also desirable when a client wants to stop as much 
activity as possible, such as when a world swap is about to take place (see the section on 
Stopping tools). 

Some facilities require that their procedures be invoked "from the Notifier." To allow non- 
Notifier processes to invoke these functions, Tajo provides a mechanism called a Periodic 
Notifier. The blinking caret in Tajo uses a Periodic Notifier. The Userlnput interface 
describes Periodic Notifiers. 

1.2.4 Multiple processes, multiple instances 

Tajo supports many programs running simultaneously. The designer of a package should 
bear in mind that his package may be invoked by several different asynchronous clients. 
One implication of this constraint is that a package should be monitored. 

The simplest design is to have a single entry procedure that all clients must call. While 
one client is using the package, all other clients will block on the monitor lock. Of course, 
no state should be maintained internally between successive calls to the package, since 
there is no guarantee that the same client is calling each time. 
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This simple approach has the disadvantage that clients are stopped for what may be a long 
time, with no option of taking alternate action. The restriction can be eased by having the 
entry procedure check a "busy** bit in the package. If the package is busy, the procedure 
can return this result to the client. The client can then decide whether to give up, try 
something else, or try again. This flexibility is less likely to tie up a tool for a long period, 
and the user can use the tool for other purposes. 

If the package is providing a collection of procedures and cannot conform to the constraint 
that it provide its services in a single procedure, the package and its clients must pass 
state back and forth in the form of an object. For instance, the FileTransfer package 
implements a Connection object that holds information about a client's remote connection. 
The package can either use a single monitor on its code to protect the object or provide a 
monitor as part of each object. If it does the latter, several clients can be executing safely 
at the same time. 

Some packages require that a client provide procedures to be called by the package. The 
designer of such a package should have these client-provided procedure take an extra 
parameter, a long pointer to client-instance data. When the client provides the package 
with the procedures, it also provides the instance data to pass to the procedures when they 
are called. This instance data can then be used by the client to distinguish between several 
different instances of itself that are sharing the same code. 

As an example, the FTP program uses the FileTransfer facility to move files. For each file to 
be transferred, FileTransfer calls a procedure provided by FTP that decides whether the 
transfer should take place. This procedure uses the value of some switches to make this 
decision. FTP cannot keep these switches in global variables, since there may be several 
clients using its facilities at the same time. Instead, FTP passes the switch values to 
FileTransfer as its instance data, and FileTransfer passes the switches back to FTP's 
procedure when it is called. 

Io2o5 Resource management 

Programs in the development environment must explicitly manage resources. For 
example, memory is explicitly allocated and deallocated by programs; there is no garbage 
collector to reclaim unused memory. All programs share the same pool of resources, and 
there is no scheduler watching for programs using more than their share of execution 
time, memory, or any other resource. 

Programs must manage resources carefully. If a program does not return a resource when 
it is done with it, that resource will never become available to any other program and the 
performance of the environment will degrade. The most common resource, and one of the 
more difficult to manage, is memory. 

When interfaces exchange resources, clients must be very careful about who is responsible 
for the resource. The program responsible for deallocating a resource is the owner of that 
resource. One example of a resource is a file handle. If a program passes a file handle to 
another program, both programs must agree about who owns that file handle. Did the 
caller transfer ownership by passing the file handle or is it retaining ownership and only 
letting the called procedure use the file handle? If the two programs disagree, the file will 
be released either twice or not at all. All interfaces involving resources must state 
explicitly whether ownership is transferred. To ease the problem of memory management 
when the ownership of memory can change, a common heap, called the system heap, is 
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used in Tajo. If a piece of memory can have its ownership transferred, it is either allocated 
from the system heap or a deallocation procedure must be provided for it. The Storage 
interface is useful for allocating and deallocating objects from the system heap. 

The most common resource appearing in interfaces is a string or long string. There must 
be agreement about which program is responsible for deallocating the string body. 
Typically, a string passed as an input parameter does not carry ownership with it; 
implementors of such procedures should not deallocate or change the string. If the 
implementor must modify the string or use it after the procedure returns, it should first be 
copied. Tool writers should be particularly careful when a procedure returns a string to 
note whether ownership has come with it. 


1.2.6 Tool state conventions 

Tools can be in one of three states, active, tiny, or inactive. If a tool is active, the user has 
access to its full functionality and interface. If a tool is tiny, its window is displayed as a 
small icon, but its functions are still available. (Of course, the user may not be able to 
invoke them directly because the window is small.) If a tool is inactive, the tool window 
does not appear on the display and the tool is not functional. The tool appears on a menu of 
inactive tools. 

A user makes a tool active when he wishes to use it. He makes a tool tiny when he expects 
to use it in the near future, but needs its space on the display for some other use. A user 
makes a tool inactive if he does not expect to use it at least for a while. An inactive tool 
might never be reactivated by the user. 

Tool writers are responsible for supporting these definitions of tool state. Tajo provides the 
window management for these transitions, deallocating its resources as a tool is 
deactivated, and reallocating them when it is activated again. However, the tool writer 
must manage the resources the tool uses by providing a transition procedure that is called 
as the tool changes from one state to another. When a tool becomes tiny, its state is close to 
that of an active tool. However, it should not consume resources only needed for the 
display of the window, since the window is represented by an icon. When a tool becomes 
inactive, it should release all of its resources (free all streams, turn off all communications 
packages, deallocate all storage from the system heap, and so forth). 


1.2.7 Program invocation 

The development environment provides two styles of tool invocation, an interactive style 
and a batch style. The interactive style is supported by the tool window paradigm: users 
communicate with tools via a window and interact frequently with the program. A tool 
writer typically provides an interactive interface by creating a form subwindow with 
command items for each procedure. The batch style is supported by the Executive: users 
invoke programs via a command line and have very little interaction with the program 
while it is running. A tool writer typically provides a batch interface by writing one or 
more Exec.ExecProcs that can be called from the Executive. 

It is usually desirable to be able to access the facilities of a package in either style as well 
as to access them from other programs. By taking care in the package design, a tool writer 
can make supporting these different invocation methods straightforward. 
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The tool writer should provide an interface that defines the function provided by his 
package. This functional interface can be called directly from programs, making it 
possible for client programs to use the package directly. The tool writer can then write two 
interface packages that invoke the functions of the package through the functional 
interface. One interface package implements an ExecProc; the other implements a tool 
window. 

A few requirements must be satisfied by the functional interface to make it possible to 
write both interface packages. The functional interface should make no assumptions 
about where its input comes from or where its output goes. If the package must interact 
with the user, it requires interface packages for the interaction. It must not assume that it 
has a window it can communicate through. Also, the package should not assume it knows 
the location of input parameters. All input should be passed to the package explicitly by 
the interface packages, even if the input is just in the form of a command line that must be 
parsed. An output procedure should be provided by the caller. 


L2.8 Stopping tools 

The development environment consists of cooperating processes. There are no facilities for 
cleanly terminating an arbitrary collection of processes. It is assumed that tool writers 
will be good citizens and design their tools to stop voluntarily when asked to stop. 

A tool should stop if the user aborts it. The Userinput interface contains procedures that 
check whether a user has aborted a tool with the abort key in the tool’s window. A tool 
should check for a user abort at frequent intervals and be prepared both to stop executing 
and to clean up after itself. Because the tool controls when it checks, it can check at points 
in its execution when its state is easy to clean up. Packages that can be called from several 
programs should take a procedure parameter that can be called to see whether the user 
has aborted. 

There is another reason that a tool might be asked to stop: when it is running in CoPilot 
and CoPilot is about to return to the debuggee. CoPilot must take a snapshot of the state of 
the world; it requires that all processes stop so that the snapshot it takes corresponds to 
the state of the world when it does the core swap. CoPilot guarantees that the Notifier is 
not running, so tools that execute in the Notifier are automatically stopped. However, 
other programs must watch for the Supervisor event Event.aboutToSwap. If a program is 
notified about the swap while it has a process running, it must either stop the process or 
abort the world swap by raising the signal Supervisor.EnumerationAborted from within its 
agent procedure. 

L3 Interface abstracts 

AddressTranslation translates between various elements in the internal form of network 
addresses and Ascii strings. Address translation is involved in any tool built for network 
activities. 

Atom provides the mechanism for making TIP Atoms. 

CmFile provides a simple set of procedures for processing ’’User o cm” format files. User. cm 
contains information for tailoring the environment to a user’s taste. 
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Date converts dates and their string representations. 

Exec supports program loading and running in the batch Executive. It includes operations 
for command line access and manipulation. 

Expand provides facilities for the Executive-style expansion of lines containing expansion 
characters. 

HeraldWindow implements routines for providing feedback to the user and for booting 
files and volumes. 

Profile provides an interface to commonly accessed user and system data such as 
passwords, domains, and names. 

Token provides a general text scanning facility, including several standard scanning 
procedures such as those for parsing numbers and booleans. It also permits clients to 
define their own entities. 

ToolDriver allows a tool to inform the ToolDriver package of its existence and of the 
existence of its subwindows. The ToolDriver package can thus use a tool's functions on 
behalf of a user communicating with the package via a script file. 
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The AddressTranslation interface translates strings into the internal representation of 
network addresses. If a string cannot be translated locally, the Clearinghouse service will 
be consulted. Use the Format interface to convert network addresses from internal 
representation to text. 

1.1 Types 

AddressTranslation.NetworkAddreSS: TYPE = System.NetworkAddresS; 

1.2 Constants and data objects 

None. 

1.3 Signals and errors 

AddressTranslation.Error: ERROR [errorRecord: AddressTranslation.ErrorRecord]; 

AddressTranslation.ErrorRecord: TYPE s RECORD [ 

SELECT errorType: AddressTranslation.ErrorType FROM 
scanError * > [position: cardinal], 
badSyntax a > [field: AddressTranslation.Field], 
chLookupProblem a > [rc: CH.ReturnCode], 
otherCHProblem a > [reason: AddressTranslation.Reason], 
endcase]; 

AddressTranstation.Field: TYPE a {net, host, socket,ambiguous}; 

AddressTranslation.ErrorType: type a { 

scanError, badSyntax, chLookupProblem, otherCHProblem}; 

scanError is raised if the input string contains illegal 

characters; position is the position of the offending 
character. 

is raised if the string to be parsed does not have the 
proper syntax; field identifies the incorrect field. 
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chLookupProblem is raised if a Clearinghouse service could not find the 

name; rc gives details of the failure. 

OtherCHProblem is raised if a name or value was not parseable by the 

Clearinghouse code or if the Clearinghouse service 
could not provide the address; reason gives more 
information on the failure. 


AddressTranslation. Reason: TYPE = { 

noUsefulProperties, ambiguousSeparators, tooManySeparators, authentication, 
invalidName, invalidPassword, couldntDetermineAddress, sparel, spare2, spare3}; 


noUsefulProperties 

ambiguousSeparators 

tooMa ny Sepa rators 

authentication 

invalidName 

invalidPassword 

couldntDetermineAddress 


the name was found, but did not have any of the 
desired properties associated with it (i.e., it did not 
have a network address). 

the input string contained both and ’@ separators. 

the input string had more than two separators. 

a problem occurred with the authentication servers. 

the user was logged in with an invalid name. 

the user was logged in with an invalid password. 

the string given to AddressTranslation was not found 
in the Clearinghouse service. 


1.4 Procedures 

AddresSTranslation.StringToNetwOrkAddress: PROCEDURE [ 
s: LONO STRING, id: Auth.ldentityHandle nil, 
distingName: long string nil] 

RETURNS [ 

addr: AddressTranslation.NetworkAddress,chUsed: boolean); 


The StringToNetworkAddress procedure parses s and returns a network address. When 
contacting the Clearinghouse service, AddressTranslation will look for a network address; 
id is the Auth identity that is used to contact the Clearinghouse service. If defaulted to nil, 
one will be created from the Profile Tool, distingName, if not nil, will be filled in with the 
actual distinguished name used in the Clearinghouse lookup; that is, the name obtained 
after dereferencing all aliases. chUsed will be true if the Clearinghouse swas contacted. 
This procedure can raise the error Error, 
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AddressTranslation.StringToHostNumber: PROCEDURE [ 

LONG string] returns [System. HostNumberj; 

The StringToHostNumber procedure parses the long string and returns a 
System. HostNumber. This procedure only translates numeric strings; the Clearinghouse 
service will not be contacted. This procedure can raise the error Error. 

AddressTranslation.StringToNetworkNumber: procedure [ 

LONG string] returns [System, NetworkNumber]; 

The StringToNetworkNumber procedure parses the long string and returns a 
Systern.NetworkNumber. This procedure only translates numeric strings; the 
Clearinghouse service will not be contacted. This procedure can raise the error Error. 

AddressTranslation.PrintError: procedure [ 

error: AddressTranslation.ErrorRecord. proc: Format.StringProc, clientData: long pointer 
nil]; 

The PrintError procedure prints an error message to the proc provided by the client. 
clientData will be passed to the client’s proc. 

1*5 Examples 

The standard format for network addresses is hostNumber or 
netMumber • hos tHlunber • SOCketMuinbeir. For compatibility, '# may be used to delimit the parts of 
an address, but *. is preferred. 

hostNumber can have four forms: 

• An octal number optionally followed by a *B or *b 

• A Clearinghouse name 

• The special string 

• The special string ”ME” 

Clearinghouse names are strings of the form local:domain:organization. The local 
part of the name must start with an alphabetic character; the lengths of the parts of a 
name may not exceed CH.maxLocalNameLength, CH.maxDomainNameLength, and 
CH.maxOrgNameLength characters, respectively. Clearinghouse names are looked up in 
the Clearinghouse database using types from the unordered set {workstation, fileserver, 
printserver, mailserver, router, nsAddress, its, gws, ciu, ecs} until a match is found. The 
special string * gets the broadcast host number. The special string ME will not call 
Clearinghouse functions, but will get the host number of the machine that it is running 
on. For compatibility, *@ may be used to separate the parts of a Clearinghouse name, but *: is preferred. 

netNumber and socketNumber, if used, can only be a octal number optionally followed by 
a ’B or Td. Both netNumber and socketNumber can be defaulted. netNumber defaults to 
the caller's local network number; socketNumber defaults to System. nullSocket. 
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The translation routine will translate any string that is well formed and unambiguous. 

Examples: 

74Be25200000016.2 

Lassen 

LassensOSBU North: Xerox 

25200000016 

74.Lassen 

* 

74 . 

.Lassen•2B 

.25200000016b.2 

74.2 is ambiguous because it could mean net . host or host ® socket. 

If the domain or organization fields are omitted, the default values are obtained from the 

Profile interface. 

AddressTranslation has been extended to handle more types of numeric input. The three 

fields of a network address (net, host, and socket) may be specified in any of your favorite 

numeric bases including octal, decimal, hex, and even the baroque "product format.” 

Parsing rules are as follows: 

• The possible bases are defined by the following ordered enumeration: {octal, 
decimal, hex, clearinghouse}, 

• The character - is ignored when determining the base, and ignored again when 
determining the value of a numeric specificaton. 

• All fields are assumed to be octal. The assumption holds as long as no characters are 
encountered outside the range ['0 .. '7]. The last character of the field may be a 'B or 
'b, which affirms the octal assertion. 

• If a character in the range ['8 .. '91 is encountered, the assumed base is assigned the 
MAX[decimal, current base]. The last character of the field may be a 'D or'd, which 
affirms the decimal assertion. 

• If a character in the range ['A .. 'F] is encountered, the assumed base is assigned the 
MAX[hex, current base]. The last character of the field may be an 'H or 'h, which 
affirms the hex assertion. 

• If the first character of a field is an alpha, the field is assumed to be a Clearinghouse 
name. This leads to the rule that hex specifications must begin with a number. 
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Examples: 

l4InchesBaby is a clearinghouse specification. 
BEADFACE is a clearinghouse specification. 


OBEADFACE is a hex numeric specification. 
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The Atom interface provides the definitions and procedures to create and manipulate 
atoms (unique objects; in this case text strings, something like Lisp Atoms). 

2.1 Types 

Atom.ATONi: TYPE = LONG STRING «-NIL; 

An Atom.ATOM is a LONG POINTER TO StringBody that is guaranteed to be equal to any other 
ATOM with an equal StringBody. That is, String.EqualStrings[atom1, atom2, false] if atom1 
s atom2. 

Atom.AList: TYPE a LONG POINTER TO DPCell NIL; 

This type is not used by the Atom implementation. 

Atom.DPCell; TYPE a RECORD [first: LONG STRING, rest: AList]; 

This type is not used by the Atom implementation. 

2.2 Constants and data objects 

None. 

2.3 Signals and errors 

None. 

2.4 Procedures 

Atom.MakeAtorn: procedure [ref: long string] returns [Atom.ATOM]; 

MakeAtom returns the atom corresponding to ref, creating one if necessary. 

Atom.GetPNarne: procedure [atom: Atom.ATOM] returns [pName: long string]; 

GetPName returns the string corresponding to atom, returning nil if atom is unknown 
(not an atom). 
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This interface provides a simple set of procedures for processing User • cm format files. See 
also the Token interface, since it is assumed that clients will use Token to parse the 
contents of Cm files. 

A Cm file is a sequence of sections. A section is a title line followed by zero or more name- 
value pairs. A section may not have embedded blank lines because a blank line is considered to terminate a 
section. The title line begins with a [ and the section title is defined to terminate with the 
first succeeding ]. The section title may be optionally preceded by a logical volume name 
and a colon, with no embedded spaces. An example of this would be [Tajo.System]. If the section 
title is preceded by a logical volume name, the lines in that section will be recognized only 
on the named volume and will override specific lines in sections by the same name with no 
volume qualification. Each name-value pair is on a separate line; the name must be 
followed by :. Both the name and the value can be preceded by white space. The value field 
is terminated by the first carriage returnc A comment line is a line beginning with--; it 
may appear anywhere within a section. 


3.1 Types 

CmFiie.Handle: type = Token.Handle; 

A CmFiie.Handle can be used with any of the routines in the Token interface for parsing. 
Many of the procedures in this interface take a Handle parameter and provide standard 
routines for parsing Cm files. 

3.2 Constants and data objects 

CmFile.noMatch: cardinal = StringlookUp.noMatch; 

3.3 Signals and errors 

CmFiie.Error: signal (code: CmFiie.ErrorCodej; 

CmFile.ErrorCode: TYPE = {fileNotFound, invalidHandle, other}; 
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fileNotFound the file to be processed could not be acquired for reading. 

invalidHandle a Cmfile procedure has been called with a Token. Handle that was not 

created by Cmfile. 

Cmfiie.TableError: signal( h: CmFiie.Handle, name: long string]; 

Within the procedure NextValue, a name was encountered in the CmSection that was not 
in the table of names expected, h is the handle that was used in the Cm file parsing, and 
name is the unrecognized name. If this signal is resumed, the name/value pair is ignored 
and processing continues, h is positioned to the beginning of the value field of the item. 
The client may read from h up through but not past the closing carriage return while in 
the catch frame without interfering with further processing. 

3.4 Procedures 

Cmftie.Close: PROCEDURE [h: cmFile.Handle] returns [nil: CmFile.Handle]; 

The Close procedure frees the Handle and returns nil. If an illegal CmFile.Handle is 
supplied, CmFile-ErrorfinvalidHandle] is raised. 

CmFiie.Findltem:PROCEOURE [h:cmFiie.Handle, title, name: long string] returns [found: 
boolean]; 

Finditem searches for the entry name in section title in the file on which the Handle h was 
opened. If the search is successful, Finditem returns true. Otherwise, it returns false. If 
the search is successful, the Handle h will be positioned to the beginning of the value for 
name. Procedures in the Token interface can then be used to parse the value field; e.g., 
Token.Boolean can be used to parse a boolean value. If an illegal CmFile.Handle is supplied, 
CmFiie.Error[invalidHandle] is raised. 

CmFile.FindSection: procedure [ 

h: CmFile.Handle, title: long string] returns [opened: boolean]; 

The FindSection procedure searches for the section named title in the file on which the 
Handle was opened. If it finds the section, it returns true and positions the Handle to parse 
that section. If an illegal CmFile.Handle is supplied, CmFile.Error(invalidHandle] is raised. 

CmFiie*FreeString:PROCEDURE [long string] returns [nil :long string]; 

FreeString deallocates strings returned from other procedures in CmFile. It returns nil. 

CmFiie.Line: procedure [ 

fileName, title, name: long string] returns [long string]; 

The Line procedure returns the value for name from section title in the file on which the 
handle h was opened. It returns nil if the file, section, or the named entry cannot be found. 
It is the caller's responsibility to deallocate the long string returned from Line using 
FreeString. If the file named fileName is not found or cannot be acquired for reading, 

CmFile.Error[fileNotFound] is raised. 
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CrnFiie.Nextltem: procedure [h: CmFiie. Handle] returns [name, value: long string]; 

The Nextitem procedure is used for enumerating the entries in a section. To start the 
enumeration, position the Handle by calling FindSection. When name is nil, the end of the 
section has been encountered, name is the name partion of an item; that is, the part 
preceding the colon, value is the rest of the line with leading white space suppressed. It is 
the caller’s responsibility to deallocate the LONG STRINGS returned from Nextitem using 
CmFiie. FreeString. 

CmFiie.NextValue: procedure [h: CmPiie.Handle, table: stringLookup.TableDesc] returns 
[ index: cardinal]; 

The NextValue procedure is used for enumerating the entries in a section. To start the 
enumeration, position the Handle by calling FindSection. The name of the next item in the 
section is looked up in table, and the index of the item is returned. Standard Token 
procedures can then be used to parse the value of the entry. When index is CmFiie. noMatch, 
the end of the section has been encountered. If an item that is not in the table is found, the 
resumable signal CmFiie. TableError is raised. If TableError is resumed, the value is skipped 
and the scan continues. 

CmFiie. Open: PROCEDURE [fileName: long string] returns [h: CmFiie. Handle]; 

The Open procedure returns a CmFiie. Handle on the file fileName. This handle is then used 
by other CmFiie or Token routines for processing the file. If the file does not exist or cannot be 
acquired for reading, CmFiie. Error[fileNotFound] is raised. If CmFiie. Error[fileNotFound] is 
resumed, nil is returned. 

CmFile.ReadLineOrToken: procedure [ 

h: Token.Handle, buffer: long string, terminator: character]; 

ReadLineOrToken reads from h until terminator is found, unless either end-of-line or end- 
of-stream is encountered. The resulting line or token is returned via buffer and the break 
character is retained in the Token.Object pointed to by h. If buffer is too short, 
ReadLineOrToken quits and the break character is the character that was being processed 
when the buffer overflowed. 

CmFile.TitleMatch: procedure [ 

buffer, title: long string] returns [matches: boolean]; 

TitleMatch returns true if and only if the contents of buffer is in the right format to be the 
start of the section specified by title. For example, if buffer were [Id] and title were Id, 
TitleMatch would return true. 

CrnFiie.UserDotCmLine: procedure [title, name: long string] returns [long string]; 

The UserDotCmLine procedure performs a Line operation on the file named User. cm. 
CrnFiie.UserDotCmOpen: procedure returns [h: CmFiie.Handle]; 

The UserDotCmOpen procedure performs an Open on the file named User . cm. 
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3.5 FIxample 

The following examples are based on the User. cm processing done by the Print program. 
It uses facilities of both the CmFile, StringLookUp, and the Token interfaces. The type field 
in the User. cm section corresponds to an enumerated type. The Interpress file 
corresponds to a name (string) that may be a quoted string containing spaces. 
SetupOptions returns the values found in the User. cm or the default values of the items 
if they are not present in the User. cm. The first example is more straightforward than the 
second, but it involves more string copying. 

SetupOptions; procedure returns [ 

type: Primops.FileFormat«— OldPress, interpressPrinter long string <- nil] = 

BEGIN 

Option: TYPE = machineoepenoent{ 

preferredFormat(O). interpress(l), noMatch(StringLookUp.noMatch)}; 
DefinedOption; TYPE a Option [preferredFormat..interpress]; 
optionTable: array DefinedOption of long string <-[ 

preferredFormat: "PreferredFormat“L, interpress: '’lnterpress“L]; 
userCm: cmFiie.Handle <-nil; 
i: Option; 

entry, value: long string <-.nil; 
thisOption: Option; 

userCm <-CmFile.UserDotCmOpen[! CmFiie.Error » > continue]; 

IF userCm # nil and CmFile.FindSection[userCm, "HardCopy"L] then 
DO enable unwind = > { 

entry f~CmFiie.FreeString[entry]; value «-CmFile.FreeString[value]}; 

[entry, value] <-CniFile.Nextltem[userCm]; 

IF entry = nil then exit; 
thisOption <- stringLookUp.lnTable[ 

key: entry, table: OESCRiPTOR[BASE[optionTable], LENGTH[optionTable]]]; 

SELECT thisOption from 
preferredFormat = > 

BEGIN 

parseHandle: Token.Handle «-Token.StringToHandle[value]; 
parseValue:LONG string <— Token.ltem[parseHandle]; 

IF String.EquivalentStrings[parseValue, "lnterpress"L] then 
type «-Interpress; 

[] <-Token.FreeTokenString[parseValue]; 

[] <—Token.FreeStringHandle[parseHandle]; 
end; 

interpress = > 

BEGIN 

parseHandle: Token.Handle <-Token.StringToHandle[value]; 

InterpressPrinter«- Token.FreeTokenString[lnterpressPrinter ]; 
InterpressPrinter *- Token.MaybeQuoted] 

h: parseHandle, data: nil, filter: Token. NonWhiteSpace, 
isQuote: Token. Quote, skip; whiteSpace, 

-- allocate minimum space for the string, since we will use it directly 
temporary; false]; 

[]Token.FreeStringHandle[parseHandle]; 
end; 
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endcase; 

entry <-CmFiie.FreeString[entryl; value «-CmFile.FreeString[value]; 

ENOLOOP; 

IF userCm # nil then [] «-cmFiie.Close(userCm]; 
end; 

SetupOptions; procedure returns [ 

type: Printops.FileFormat«- OldPress, interpressPrinter: long string <- nil] = 

BEGIN 

Option: TYPE = MACHINE dependent{ 

preferreclFormat(O), interpress(l), noMatch(StringLookUp.noMatch)}; 
DefinedOption: TYPE = Option [preferredFormat.Jnterpressj; 
optionTable: array DefinedOption of long string <- [ 

preferredFormat: "PreferredFormat"L, interpress: ''lnterpress’'L]; 
userCm: CmFiie.Handle «-nil; i: Option; 

- the following declaration exists to make the LOOPHOLE in MyNextValue safe. 

- If CmFile.NextValue changes type, the compiler will flag the following as an error. 
CheckType: procedure [h: CmFiie. Handle, table: StringLookUp.TableDesc] 

RETURNS [index: cardinal] = CmFile.NextValue; 

-- loophole CheckType into the type expected by StringLookUp 
MyNextValue; procedure [ 
th: CmFiie. Handle, 

table: long descriptor for array DefinedOption of long string] 

RETURNS [index: Option] = LOOPHOLE[CheckType]; 
userCm «-CmFiie. UserDotCmOpen[ ! CmFiie. Error * > continue]; 

IF userCm # nil and CmFile.FindSection[userCm, "HardCopy"L] then 
DO 

SELECT 

(i <-MyNextValue[h: userCm, table: DESCRiPTOR[optionTable] 

! CmFile.TableError a > resume ]) from 
noMatch = > exit; 
preferredFormat = > 

BEGIN 

value: LONG STRING a Token.Item[userCm]; 

IF String.EquivalentStrings[value, "lnterpress"L] then 
type Interpress; 

[]Token.FreeTokenString[value]; 
end; 

interpress a > 

BEGIN 

value: LONG STRING a Token.MaybeQuoted[ 

h: userCm, data; nil, filter; Token.NonWhiteSpace, 
isQuote: Token.Quote, skip: whiteSpace, 

-- allocate minimum space for the string, since we will use it as the value 
temporary: false]; 

InterpressPrinter«- value; 
end; 

endcase; 

ENDLOOP; 

IF userCm # nil then []«- CmFiie.Close[userCm]; 
end; 
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The Date interface provides for a conversion between dates and their string 
representations. (Also see Time in the Pilot Programmer s Manual). 


4.1 Types 


Date.Packed: type = Time.Packed; 

Packed is copied from the Time interface. 

oate.Notes: type s {normal, noZone, zoneGuessed, noTime,timeAndZoneGuessed}; 

Notes is used as one of the return values from the call on StringToPacked. normal means 
the value returned is unambiguous; noZone means that a time-of-day was present, but 
without a time zone indication. (The local time zone as provided by 
System. LocalTimeParameters is assumed.) zoneGuessed is returned instead of noZone if 
local time parameters are not available, and the time zone is assumed to be Pacific Time 
(standard or daylight time is determined by the date). noTime and timeAndZoneGuessed 
are equivalent to noZone and zoneGuessed, respectively, where the time is assumed to be 
00:00:00 (local midnight). 

4.2 Constants and data objects 

None. 


4.3 Signals and errors 

oate.Unintelligible: error [vicinity: natural]; 

If StringToPacked cannot reasonably interpret its input as a date, Unintelligible is raised; 
vicinity gives the approximate index in the input string where the parser gave up. 

4.4 Procedures 

oate.PackedToLongString: procedure [oate.Packed] returns [long string]; 
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The PackedToLongString procedure converts the date to a long string that is allocated 
from the system heap. The format is identical to that obtained by a call on Time. Append. 

oate.PackedToString: procedure (oate.Packed] returns [string]; 

The PackedToString procedure converts the date to a string that is allocated from the 
system MDS heap. 

Date.StringToPacked: procedure [long string] 

RETURNS [dt:Date. Packed, notes: Date. Notes, lengthiNATURAL]; 

The StringToPacked procedure parses the string and returns a GMT time according to the 
Pilot standard The date is generally assumed to precede the time, although if the time 
precedes the date it will usually be properly recognized. The date syntax is a somewhat 
less restrictive version of RFC733; full RFC733 is recognized, plus forms like "month day, 
year,” "mm/dd/yy,” and variations with Roman numerals used for the month. The form 
"year month day” is also accepted if the year is a full 4-digit quantity. Forms with 
instead of significant space are also acceptable, as well as forms in which a delimiter 
(space or can be elided without confusion. The time is generally assumed to be in 
RFC733 format, optionally including a time zone specification. In addition, "am” or "pm” 
may optionally appear following the time (but preceding the time zone, if any), notes is 
interpreted as described above, length indicates the number of characters consumed by 
the parser, that is, it is the index of the first character of the argument that was not 
examined by the parser. This procedure can raise the error Date. Unintelligible. 
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The Exec interface supports program loading and running as well as command line access 
and manipulation. The paradigm for programs running from the Executive is that they 
will register with the Executive one or more command names and a corresponding 
procedure to be called for each command. 


5.1 Types 


Exec.CheckAbortProc: type = procedure [h: Handle] returns [abort: boolean]; 

A CheckAbortProc procedure is used to check if a subsystem has been aborted by the user. 
CheckAbortProc procedures are used by Run and ProcessCommandLine. 

Exec.ExecPrOC:TYPE = PROCEDURE (h: Handle, dIentData: LONG POINTER ^ NIL] 

RETURNSfoutcome: Outcome normal]; 

An ExecProc procedure is the type of procedure a subsystem registers with the Executive 
so that its facilities can be invoked. The Executive calls the procedure with a Handle that 
can be used for input and output, as well as a long pointer, clientData, which can be used 
for optional instance data. The subsystem returns an outcome that the Executive uses to 
decide whether to continue with the current command line. If the result is normal, the 
Executive continues; if it is any other value, the Executive skips the remainder of the 
current command line and prompts the user for more commands. 

Exec.GetCharProc: type = procedure [h: Handle,] returns [char: character]; 

GetCharProc is the type declaration for the Executive procedure that returns the next 
character on the command line (see Exec.GetChar). 

Exec.Handle: type = long pointer to ExecObject; 

When the Executive calls one of its registered procedures, it passes it a Handle that the 
subsystem can use to obtain the Executive’s facilities. 
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ExecObject: TYPE = .,.; 

ExecOutCOme: TYPE = MACHINE DEPENDENT{ 

normal(o). warning, error, abort, sparel, spareZ, spareB, last(LAST[CARDiNAL])}; 

Outcome is returned by an ExecProc to indicate the status of the operation. 

normal the procedure was completed successfully. 

warning the procedure wishes to warn you about suspicious results. 

error the procedure was not able to be completed successfully. 

abort the procedure was aborted by the user. 

All outcomes except normal cause the Executive to abort the rest of the current command 
line. 

Exec.RemovedStatus: type = {ok, noCommand, noProgram}; 

RemovedStatus is used by the Unload command to indicate its success, 
ok the program associated with the command was successfully unloaded. 

noCommand a command of the requested name was not found. 

noProgram the requested command was found, but the program that implements the 
command could not be located. 

5.2 Constants and data objects 

None. 

5.3 Signals and errors 

None. 

5.4 Procedures 

Exec.Abort: PROCEDURE RETURNS [error: error]; 

The Abort procedure returns the error that subsystems should raise to abort processing. 

Exec.AddCommand: procedure ( 

name: long string, proc: Exec.ExecProc, help, unload: ExecExecProc ^nil]; 
unload: ExecProc ^-OefaultUnloadProc, ciientData: LONG POINTER NIL); 

The Executive maintains a list of commands that are invoked by typing their name into 
the Executive window. Each command has an associated procedure that implements its 
functions, as well as a help procedure, a cleanup procedure, and optional client-instance 
data. The AddCommand procedure adds name to the Executive's list of commands and 
associates proc with it as the procedure to call when the command is invoked. Even 
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though by convention all command names in the Executive terminate with these 
characters are not automatically appended to name, but instead are the client's 
responsibility. If there is already a command by the same name, AddCommand overrides 
the old entry. 

In addition to the name parameter, AddCommand takes three other parameters, help, 
unload, and clientData. The help procedure is run whenever you ask for help on the 
corresponding registered command. The unload procedure is called when you wish to 
remove a command from the command list and unload its corresponding procedure. 
Unloading an Executive command consists of two steps: first, all commands added by the 
module being unloaded must be removed from the Executive’s list of commands; and 
second, one of the procedures associated with any command added by the module that 
irhplements the subsystem must be unloaded. It is sufficient to unload only one procedure 
in the implementing module because unloading any procedure causes the entire module to 
be unloaded. The first step, that of removing commands from the command list, is done in 
the unload procedure. That is, the client’s unload procedure must initiate a 
RemoveCommand on itself and all other commands registered by that module, as well as 
perform any other cleanup necessary before being unloaded. UnloadCommand will call 
unload and then automatically perform the second step, which is to actually unload an 
associated procedure (there are restrictions on the client unload procedure; see 
UnloadCommand and RemoveCommand for details). Usually, the command being 
unloaded is the only one registered by its containing module, and there are no other 
cleanup functions to perform. In this case, the client need not have its own unload 
procedure but instead may use DefaultUnloadProc, since DefaultUnloadProc removes the 
command for the subsystem it is associated with and then unloads the corresponding 
procedure (see DefaultUnloadProc). 

Exec.AliasCommand:PROCEDURE(oid, new: LONG STRING] RETURNSlok: BOOLEAN); 

AliasCommand allows youto associate the same procedure with more than one command, 
after the original command has already been registered, old is the name of the command 
originally added with AddCommand, and new is the name of the command to associate 
with the same procedure as old. Any number of commands can be aliases of an original 
command, and any number of aliases can have aliases also. 

Exec.AppendCommands: procedure [h: Exec.Handle, command: long string]; 

The AppendCommands procedure appends the parameter command to the current 
command line. The effect is as if you had typed the contents of command after the current 
command line. Note that it is processed before any commands that have been typed ahead 
to the Executive. 

Exec.CheckForAbort: CheckAbortProc; 

The CheckForAbort procedure indicates whether the subsystem should abort. 

Exec.Confirm: procedure [h: Exec.Handle] returns [yes: boolean); 

The Confirm procedure asks you for confirmation. 
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Exec.DefaultUnloadProc; ExecProc; 

DefaultUnloadProc is a default value for the unload procedure; it is specified at the time a 
command is registered with the Executive (see AddCommand). It can be used in cases 
when the subsystem registers only one command, itself, and no other cleanup is to be done 
upon being unloaded. 

Exec.EndOfCommandLine: procedure [h: Exec.Handle] returns [boolean]; 

The EndOfCommandLine procedure indicates whether there are any more characters for 
this subsystem on the command line. 

Exec.EnumerateCommands: procedure [ 
userProc: procedure[ 

name: long string, proc, help, unload: Exec.ExecProc, 
clientData: longpointerJreturns [stop: boolean]]; 

The EnumerateCommands procedure enumerates the commands currently registered 
with the Executive. It calls the procedure userProc on the data for each command, name 
belongs to the Executive and should not be deallocated by the client. If stop is true, the 
enumeration will halt. 

Exec.FeedbackProc: procedure (h: Exec.Handle] returns [proc: FormatStringProc]; 

FeedbackProc provides a way for clients to differentiate between feedback, which reports 
the current status during processing, and output, which can be thought of as the results of 
executing the command. 

Exec.FreeTokenString: procedure [s: long string] returns [nil: long string]; 

The FreeTokenString procedure frees strings that were obtained via Exec.GetToken. It 
returns nil. 

Exec.GetChar: GetCharProc; 

The GetChar procedure returns the next character from the command line. Note that the 
portion of the command line seen by a subsystem starts immediately after the name of the 
command. When the command line is exhausted, GetChar will return Ascii.NUL. (See also 

EndOfCommandLine). 

Exec.GetNameandPassword: procedure [ 

h: Handle name, password: long string, prompt: long string ^ nil]; 

The GetNameandPassword procedure prompts you for a name and password. If the 
prompt parameter is nil, the name prompt is **User: If the prompt parameter is not nil, it 
will be used as the name prompt. 

Exec.GetToken: procedure [h: Exec.Handle] returns [token, switches: long string]; 

The GetToken procedure obtains the next token and its switches from the command line; 
leading white space is skipped. A token is defined to be the contents of a quoted string 
(e.g., "This is a token") or the smallest sequence of characters containing no white-space 
characters (SP, TAB, or CR) and no slash character (/). If the character immediately 
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following the token is a slash, all characters up to the next white-space character or slash 
character are read as switches. Note that the token string or switches string may be nil. 
The strings returned from this procedure should be freed by the client using 

FreeTokenString. 

Exec.GetTTY: PROCEDURE [h: Exec.Handle] returns [tty: tty.H andle]; 

The functions provided by the Executive for interacting with the user (as opposed to 
interacting with the command line) are quite limited (Confirm and 
GetNameandPassword). Subsystems that require more extensive interaction with the 
user can obtain a TTY. Handle from the Executive with GetTTY. The procedures in Pilot’s 
TTY interface can then be used with this Handle for interaction with the user. ReleaseTTY 
is used to free the TTY. Handle when the subsystem is finished with it. In general, a 
subsystem interacting heavily with users should create its own tool window instead of 
interacting in a TTY style. 

Exec.Load: PROCEDURE [ 

write: Format.StringProc, name: long string. codeLinks: boolean ^ false. 

RETURNS [handle: MLoader.Handle]; 

The Load procedure loads a program specified by name write is used by the Load 
procedure for all its output to the user. codeLinks indicates whether code links should be 
used in loading. The handle returned by Load can be passed to the Start procedure to start 
the program. 

Exec.Login: procedure [h: Exec.Handle. name, password: long string]; 

The Login procedure is equivalent to calling GetNameandPassword with a prompt of nil. 

Exec.LookUpCommand: procedure [command: long string] returns [ 

name: long string, proc, help, unload: Exec.ExecProc. didExpand: boolean], 
dientOata: LONG POINTER]; 

The LookUpCommand procedure permits a client to look up a specific command. The 
didExpand result of LookupCommand indicates whether the command parameter was an 
exact match of name or whether it was a unique prefix of name and had to be expanded to 
match, name is owned by the Executive, and should neither be changed nor deallocated. 

Exec.MatchPattern: procedure [string, pattern: long string] 
returns [matched: boolean] 

The MatchPattern procedure is provided for clients that need to match names against 
patterns containing * and #. * matches zero or more characters and # matches exactly one 
character. 

Exec.OutputProc: procedure [h: Exec.Handle] returns [proc: Format.StringProc] 

The OutputProc procedure returns a Format.StringProc that can be used with the Format 
interface for output. This procedure directs output to the Executive that called the 

ExecProc. 
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Exec-PrependCommands: procedure [h: Exec.Handle, command: long string] 

The PrependCommands procedure inserts the parameter command in the front of the 
command line. It will be executed as soon as the current command completes. 

Exec.ProcessCommandLine: procedure [ 

cmd: LONG STRING, write: Format, StringProc, 

checkAbort: Exec.CheckAbortProc] RETURNSfoutcome: Outcome]; 

It is possible for a program to invoke the Executive facilities without having an 
Exec.Handle; that is, without being in the process of executing an Exec.ExecProc. (If it does 
have an Exec.Handle, it can invoke the facilities via PrependCommands or 
AppendCommands by calling ProcessCommandLine.) The subsystem must not only 
provide the command line to be executed but must also provide the output and checkAbort 
procedures that would normally be supplied by an Executive window. 

Exec.PutChar: procedure [h: Exec.Handle, c: character] 

The PutChar procedure outputs a single character to the Executive. 

Exec.ReleaseTTY: procedure [tty: tty. Handle] 

The ReleaseTTY procedure is used to free the TTY. Handle obtained via GetTTY when the 
subsystem is finished with it. If tty was not created by GetTTY, the procedure does 
nothing. 

Exec.RemoveCommand: procedure [h: Exec.Handle, name: long string] ; 

The RemoveCommand procedure removes a command from the list of commands 
registered with the Executive; it is used in conjunction with unloading a subsystem (see 
UnloadCommand and AddCommand). To successfully unload a particular subsystem, all 
commands registered by the module that implements the subsystem must be removed 
using RemoveCommand. 

Exec.RenameCommand: procedure [ 

old, new: long string] RETURNS[ok: boolean]; 

The RenameCommand provides a way for you to change the name of a command 
registered with the Executive. 

Exec.Run: procedure [ 

h: Token. Handle, write: Format.StringProc, 

checkAbort: procedure RETURNS[abort: boolean], codeLinks: boolean false]; 

The Run procedure reads a command line by asking the Token facility for the next line in 
h. Run then runs the programs listed on the command line, write is the output procedure 
to be used to report to the client. codeLinks indicates whether codeLinks should be used in 
loading. 

Exec.Start: procedure [handle: MLoader.Handle]; 

The Start procedure starts a program that has been loaded by Load. 
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Exec.Unload: procedure [handle; MLoacler.Handle]; 

The Unload procedure unloads a program that has been loaded by Load. 

Exec.UnloadCommand: procedure [ 

h: Handle, name: long string] RETURNS[RemovedStatus]; 

UnloadCommand invokes the unload procedure associated name. If name has been 
changed using RenameCommand or AliasCommand, UnloadCommand finds the correct 
unload procedure, regardless of whether name represents the original command or an 
aliased/renamed command. Because of the way the E.\ecutive is monitored, the client’s 
unload procedure may not contain calls to AddCommand, AliasCommand, 
EnumerateCommands, LookupCommand, or RenameCommand. (See also 
AddCommand.) 

5.5 Examples 

The following example registers the procedure Dolt under the command name 
MyCommand. The procedure takes a sequence of tokens with switches from the command 
line and processes them. It checks at regular intervals to see if you have aborted it. Write 
is used within the procedure for output. Dolt is an entry procedure that protects any global 
data it might use from being accessed by several concurrent calls on Dolt. 

Dolt; ENTRY Exec.ExecProc « 

BEGIN 

name, switches: long string *- nil; 

Write: Format.StringProc = Exec.OutputProc[h]; 
outcome: Exec.Outcome «- normal; 

DO 

ENABLE UNWind s > { 

name «- Exec.FreeTokenString[name]; 
switches«- Exat.FreeTokenStringlswitches]}; 

IF Exec.CheckForAbortlh] then {outcome «- abort; exit); 

[name, switches]«- Exec.GetToken[h]; 

IF name = nil and switches = nil then exit; 

— perform function — 

name«- Exec.FreeTokenString[name]; 

switches *- Exe<.FreeTokenString[switches]; 

ENDLOOP; 

RETURN[outcomel; 

end; 

Exec. AddCommand["MyCommand”L, Doit]; 
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The following is an example of how to define an unload procedure. The DefaultUnloadProc 
is not sufTicient in this case: first, there is global cleanup to perform; second, the program 
registers more than one command with the Executive. 


Test: PROGRAM a 
BEGIN 

message: long string, 

Testi: Exec.ExecProc a 
BEGIN 

END; 

Test2: ExecExecProc a 

BEGIN 

END; 

Test: Exec.ExecProc a 

BEGIN 

END; 

MyUnload: Exec.ExecProc = 

BEGIN 

Heap.systemZone.FREE[@message]; 

- Order of command removal doesn't matter 
Exec.RemoveCommand(h, "Testi "L]; 

Exec.RemoveCommand[h, "Test2"L]; 

Exec.RemoveCommand[h, "Test"L]; 
end; 

message <- string.CopyToNewStringt"Output message: "L, Heap.systemZone]; 
Exec.AddCommand[name: "Test1"L, proc: Testi, unload: MyUnload]; 
Exec.AddCommand[name: "Test2"L, proc: Test2, unload: MyUnload]; 
Exec.AddCommand[name: "Test"L, proc: Test, unload: MyUnload]; 
end; 
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The Expand interface provides facilities for the Executive-style expansion of lines 
containing *, @, T or \ Expansion is done within a local directory, if one is specified; 
otherwise, it is done within the current search path. The expansion characters to be used 
are specified in a mask and have the following meanings: 


star 

atSign 

upArrow 

quote 


matches zero or more characters. 

the following token is a file name and should be replaced by the contents of 
that file. 

ignore the up arrow character and the one immediately following it. 
do not treat the next character as an expansion character. 


6.1 Types 


Expand.AbortPrOcType: type = procedure returns [boolean]; 

To permit a client to abort the expansion, a procedure of type AbortProcType must be 
provided to the Expand package. It is called at intervals during an expansion. 

Expand.ExpandQ: TYPE [1]; 

This is a private type, included for use by the Executive. 

Expand.Mask: TYPE = RECORD! 

Star, atSign, quote: boolean, 
upArrow: Expand.UpArrowAction), 
localDirectory: long string); 

If star, atSign, or quote are true, the procedures expand according to the description 
above. If localDirectory is specified, expansion is done only within that directory. If an 
incomplete directory name is provided (that is, if localDirectory does not begin with ’<), it 
is assumed to be directly beneath the volume root directory. 
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Expand.UpArrowAction: TYPE = {skip, remove, none}; 

skip skips the up arrow and succeeding character but leaves them in the expanded 

string. 

remove skips the up arrow and succeeding character and removes them from the 
expanded string. 

none treats the up arrow as a regular character. 

6.2 Constants and data objects 

Expand.defaultMask: Expand.Mask S [ 

star: true, atSign; true, quote: true, upArrow: remove, 
local Directory; nil]; 

6.3 Signals and errors 

Expand.UnknownCommandFile: signal [name: long string] returns [long string]; 

A call to Expand. ExpandString raises the signal UnknownCommandFile if an @ is 
encountered and the corresponding command file cannot be found, name is the name of 
the missing file; the client can catch this signal and resume with a string containing the 
contents of the missing command file. See the example below. 

6.4 Procedures 

Expand.ExpandQueues: procedure [toQ.fromQ: Expand.ExpandQ, all: boolean false, 
isAborted: Expand.AbortProcType «-nil, mask: Expand.Mask Expand.defauitMask]; 

The ExpandQueues procedure is a private procedure for use by the Executive. 

Expand.ExpandString: procedure [cmdLine: long string, 

isAborted: Expand.AbortProcType <- nil, mask: Mask Expand.defaultMask] returns 
[LONG string]; 

The ExpandString procedure expands the command line according to its mask and return 
the expanded line. The string it returns is allocated from the system heap; it is the client's 
responsibility to free it. If cmdLine is nil, then no actions are performed. If an unknown 
command file is encountered, the signal UnknownCommandFile is raised. 

Expand.ExpandToTokens: procedure [cmdLine: long string, proc: procedure [long string] 
RETURNS [boolean], 

isAborted: Expand.AbortProcType <- nil, mask: Mask e-Expand.defaultMask]; 

The ExpandToTokens procedure expands cmdLine according to its mask, parses it into 
Token.ltems, and calls the client's procedure proc once on each token until the command 
line is exhausted or proc returns TRUE. The client need not be concerned with allocation 
and deallocation of the Token.ltems created by this procedure. If cmdLine is nil, no actions 
are performed. 
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6.5 tCxample 

The following is an example of a tool that runs in the Executive. It attempts to expand 
commandLine; if it encounters an unknown file, you are prompted to type the contents of 
the file. The contents of the file are then returned to the Expand package, which continues 
processing commandLine. 

DIRECTORY 

Example: program imports ... = 

BEGIN 

MainBody: Exec.ExecProc = begin 

GetCommandFileFromUser: procedure [ h: Exec.Handle, name: long string] 
returns [result: long string] » 

BEGIN 

tty: TTY.Handle«— Exec.GetTTY [h]; 
result <- Storage.String[100]; 

TTY.PutCR[tty]; 

TTY.PutString[tty, "File name """L]; 

TTY.PutStringftty, name]; 

TTY.PutStringl 

tty, """ unknown. Type what it would contain."L]; 

TTY.PutCR[tty]; 

TTY.GetLine[tty, result]; 

Exec.ReleaseTTY{tty]; 

end; 

Expand.ExpandStringfcommandLine, abortProc, mask! 

Expand. UnknownCommandFile = > 

RESUME[GetCommandFileFromUser[h, name]]; 


end; 

-- mainline 

Exec.AddCommand["Example.'-”, MainBody]; 

END. 


6-3 








7 


HeraldWindow 


The HeraldWindow interface provides two functions to the client; feedback and booting. It 
also allows the client to access some of the global state maintained by the tool that 
implements the HeraldWindow interface. 


7.1 Types 


HeraldWindow.ConfirmProcType: type = PROCEDURE I 

post; Format.StringProc, cleanup: boolean «-true] returns [okay: boolean]; 

Feedback and confirmation of booting are provided through a Format.StringProc and 
ConfirmProcType. If cleanup is true, the Supervisor notifies subsystems of the event. 

Heraidwindow.CursorState; type = {invert, negative, positive}; 

HeraldWindow.Slot: TYPE = LONG POINTER TO HeraidWindow.SlotObject; 

HeraldWindow.SIOtObject: TYPE = ...; 

Multiple cursor-sized feedback regions are supported in the HeraldWindow. 

7.2 Constants and data objects 

Heraidwindow.displayedPages: readonly long cardinal; 

While the Herald Window is not inactive, displayedPages contains the number of free 
pages on the system volume. 

HeraldWindow.S witches: READONLY System.Switches; 

switches contains the current booting switches, to be used as the default switches by 
booting commands unless explicitly overwritten. 

HeraldWindow.window: READONLY Window.Handle; 

window is the handle for the HeraldWindow's window. 
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7.3 Signals and errors 

HeraldWindow. InvalidSwitches: SIGNAL; 

! ' 

I InvaiidSwitches is raised by ScanSwitches if the \ character has been used with an invalid 

I following character. It can be resumed to ignore the illegal characters. 

7.4 Procedures 

HeraldWindow.AlwaysConfirm: HeraldWindow.ConfirmProcType; 

The AlwaysConfirm procedure does not wait for confirmation but simply notifies 
subsystems that booting is about to take place (the parameter cleanup is defaulted to 
true). 

Heraidwindow.AppendBrokenMessage: procedure [ 

msg1, msg2, msg3: long string 4- nil, newLine, clearOld: boolean 4~ true]; 

The AppendBrokenMessage procedure provides a mechanism for client programs to 
provide textual feedback in a standard location to the user. The HeraldWindow has room 
for two lines of text; old messages are automatically erased after 30 seconds and new ones 
are placed in a queue. If newLine is true, this message starts a new line on the display. If 
clearOld is true, all old messages are deleted. AppendBrokenMessage permits the display 
of messages that are a combination of several strings. (See also AppendMessage. ) 

Heraidwindow.AppendLogicalVolumeName: procedure [ 
s: LONG STRING, id: Volume.ID 4- voiume.systemlDj; 

The AppendLogicalVolumeName procedure appends the name of the logical volume id 
onto the client-owned string s. If s is not large enough, String. StringBoundsFault is raised. 

HeraldWindow. AppendMessage: procedure [ 

msg: long string 4- nil, newLine, clearOld: boolean 4- true]; 

The AppendMessage procedure is just like AppendBrokenMessage except that it accepts 
only a single string parameter. 

Heraidwindow.AppendPhysicalVolumeName: procedure [s: long string]; 

The AppendLogicalVolumeName procedure appends the name of the physical volume 
onto the client-owned string s. If s is not large enough, String.StringBoundsFault is raised. 

HeraldWindow. AppendSwitches: PROCEDURE [s: LONG string]; 

The AppendSwitches procedure appends the current booting switches to the client-owned 
string s. If s is not large enough, String.StringBoundsFault is raised. 

HeraldWindow. BOOtFromFile: PROCEDURE [ 

name: long string, bootSwitches: System. Switches 4- switches. 
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postProc; Format. StringProc DefaultPost, 

confirmProc: Heraidwindow.ConfirmProcType ^ Heraidwindow.DefaultConfirm]; 

The BootFromFile procedure boots a file in the local directory (appending the extension 
’’.boot” if necessary). bootSwitches are the Pilot switches to be used when booting. The 
procedure scans the string name for any switches. These optional switches appear after 
the file name, separated from it by a slash (/). They obey escape procedures described in 
the discussion of ScanSwitches and are used in preference to the bootSwitches parameter. 
confirmProc is called to confirm that the boot should really be performed. This procedure 
should always be called from within the Notifier process. The file will be locked for read 
access if confirmProc returns false. 

HeraldWindow.BOOtFromVolumelD: PROCEDURE [ 

id: Volume. ID, bootSwitches: System.Switches switches, 

postProc: Format.StringProc ^ HeraldWindow.DefaultPost, 

confirmProc: Heraidwindow.ConfirmProcType Heraidwindow.DefaultConfirm]; 

The BootFromVolumelD procedure boots the logical volume specified by id bootSwitches 
are the Pilot switches to be used when booting. confirmProc is called to confirm that the 
boot should really be performed. This procedure should always be called from within the 
Notifier process. 

HeraidWindow.BootFromVolumeName: procedure [ 

name: long string, bootSwitches: System.Switches switches, 

postProc: Format.StringProc ^ HeraldWindow.DefaultPost, 

confirmProc: Heraidwindow.ConfirmProcType ^ Heraidwindow.DefaultConfirm]; 

The BootFromVolumeName procedure boots the logical volume specified by name. 
bootSwitches are the Pilot switches to be used when booting. The procedure scans the 
string name for any switches. These optional switches appear after the file name, 
separated from it by a slash (/). They obey escape procedures described in the discussion of 
ScanSwitches and are used in preference to the bootSwitches parameter. confirmProc is 
called to confirm that the boot should really be performed. This procedure should always 
be called from within the Notifier process. If name does not match a logical volume name, 
the system volume is booted with no switches. 

Heraidwindow.DefaultConfirm: Heraidwindow.ConfirmProcType; 

The DefaultConfirm procedure waits for you to confirm the boot by waiting for 
confirmation with POINT or denial with EXTEND, while displaying a mouseRed cursor (see 
the Cursor interface). If you confirm the boot, the Supervisor notifies subsystems of the 
event (cleanup is true). 

HeraldWindow.DefaultPost: Format.StringProc; 

The DefaultPost procedure sends output to whichever window is taking indirect type-out. 
If there is no such window, the output is discarded. 

HeraldWindow.FreeCurSOrSlot: PROCEDURE [ 

slot: HeraldWindow.Slotl RETURNS [nil: HeratdWindow.Slot] 

The FreeCursorSlot procedure frees one of the cursor slots allocated by the HeraldWindow. 
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HeraldWindow.GetCurSOrSlOt: PROCEDURE RETURNS (slot: HeraldWindow.SIOt] 

The GetCursorSlot procedure allocates a cursor slot in th^ HeraldWindow. If it cannot find 
a slot, NIL is returned. 

HeraidWindow.ScanSwitches: PROCEDURE [s: LONG STRING, defaultSwitches: System.Switches 
System.defaultSwitches] returns [switches: System.Switches] 

The ScanSwitches procedure returns the defaultSwitches, modified by the switches in the 
strings. The scanner recognizes the following syntax: The characters ~ and - change the 
sense of the following switch. Each character of the string is the character representation 
of the switch. ScanSwitches supports a slightly expanded version of the Mesa compiler 
escape convention, with \ as the escape character: 


Code 

Interpretation 

\n,\N,\r, \R 

Ascii. CR 

\t.\T 

Ascii. TAB 

\b. \B 

Ascii. BS 

\f.\F 

Ascii. FF 


\I.\L 

Ascii. LF 

- note that\n is LF in C 

\ddd 

dddC 

- where d is an octal digit, ddd < 377B 

W 

\' 

\ 

1 


\" 

H 


\- 


- not recognized by the Compiler 

\- 


- not recognized by the Compiler 


Any other character following \ causes the signal InvalidSwitches to be raised. This signal 
can be resumed to ignore the switch character. 

HeraldWindow. SetCursor: PROCEDURE [slot: Hera Id Window. Slot, CUrSOr: Cursor. Defined]; 

The SetCursor procedure displays a cursor at a previously acquired cursor slot. The cursor 
is one of those that are predefined by the Cursor interface. 

HeraldWindow.SetCursorState: PROCEDURE [ 

slot: HeraldWindow.Slot, state: HeraldWindow. CursOrState]; 

The SetCursorState procedure modifies (e.g., inverts) the display state of the indicated 
cursor. 

HeraldWindow.SetS witches: procedure [new: System.Switches]; 

The SetSwitches procedure changes the switches used during booting. 

HeraldWindow.StOreCursor: procedure [ 

slot: HeraldWindow.SIOt, CUrsor: long pointer to UserTerminal.CursorArray]; 

The StoreCursor procedure displays a cursor at a previously acquired cursor slot. 
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Profile provides an interface to a number of commonly accessed user and system data 
items. All these items are read-only. Changes to the variables defined below are 
monitored by the Pilot Supervisor notification facility. See Events and EventTypes for 
more discussion of the Supervisor. 

This interface supports non-product protocols for Pup-based file servers and Grapevine 
registries. Support for these protocols will be removed in a future release. Clients are 
encouraged to remove dependencies on these protocols. 

8.1 Types 

Profile.BalanceBeamChoice: type = {never, notForCharacter, always}; 

BalanceBeamChoice determines where the insertion point is placed when a selection 

is made. 

never the insertion point is always at the end of the selection. 

notForCharacter the insertion point is always at the end of a character selection 

but uses a balance beam algorithm for word or line selections. 

always the balance beam algorithm is always used. 

Profile.FileServerProtocol: TYPE = (PUP, ns}; 

FileServerProtocol determines the type of protocol used to communicate with file 

servers. Support for the Pup file server protocol will be removed 
in a future release. 

PUP communicates with Pup-based servers 

ns communicates with the product-based Network Services. 
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Profile.Place: TYPE = MACHINE DEPENDENT { 

unknown(o), tajo, copilot, laSt(LAST[CARDINAL])}; 

Place distinguishes between Tajo, CoPilot, or some other boot file. Clients may depend on 
particular facilities in Tajo or CoPilot. 

Profile.Qualification: TYPE = {registry, clearinghouse, none}; 

Qualification is a parameter to Profile. Qualify. An unqualified token is qualified by 
appending the qualifing name(s) to the token, separated by the necessary punctuation. 
Note: registry qualification appends a followed by the registry; e.g., Jones.PA. clearinghouse qualification 
appends the domain and organization using":” as the punctuation; e.g.,Jones:OSBU North:Xerox. 

Profile.String: TYPE = long string. 

String is the type of all string variables. It will be changed to long pointer TO readonly 
StringBody when other definitions can be changed as well. 

8c2 Constants and data objects 

Profiie.balanceBeamChoice: readonly BalanceBeamChoice; 

balanceBeamChoice is the current setting of the balance beam algorithm. Changes to this 
variable notify the subsystem EventtajoOefaults and the event EventTypes.debugging. 

Profile.debugging: readonly boolean; 

Used internally by Tajo to decide whether to attempt error recovery or call the debugger. If 
debugging is true, the debugger will be called. If Tajo invokes the debugger, it may not be 
possible to continue the session. Changes to this variable are monitored by subsystem 

Event.tajoOefaults and the event EventTypes.debugging. 

Profile.defaultFileServerProtocol; readonly FileServerProtocol; 

defaultFileServerProtocol is the default file server protocol. Changes to this variable 
notify the subsystem Event.tajoOefaults and the event EventTypes.FileServerProtocol. 

Profile.initialToolStateDefault: readonly Tooiwindow.State; 

This is the state in which a tool is created if it does not override the default provided in the 

Tooi.Create call. 

Profile.noChange: LONG STRING s loophole[last[long cardinal]]; 

This is the default string value used in Profile procedures to indicate that a string variable 
should not be changed. 

Profile.place: READONLY Profile.Place; 

This is the type of boot file running (e.g , Tajo or CoPilot). 
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Profile.swapCtrlAndCommand; readonly boolean; 

swapCtrlAndCommand is true if the mapping of the control key and command key should 
be swapped. 


8.3 Signals and errors 

None. 

8.4 Procedures 

Profile.GetDefaultDomain: procedure [procedure [String]]; 

The GetDefaultDomain procedure calls the procedure parameter with the default 
Clearinghouse domain. The call is made from with the Profile machinery’s monitor lock. 

Profile. GetDefaultOrganization: procedure [procedure [String]]; 

The GetDefaultOrganization procedure calls the procedure parameter with the default 
Clearinghouse organization. The call is made from within the Profile machinery’s monitor 
lock. 


Profile.GetDefaultRegistry: procedure [procedure [String]]; 

The GetDefaultRegistry procedure calls the procedure parameter with the default Grapevine 
registry. The call is made from within the Profile machinery’s monitor lock. Support for Grapevine will be 
removed in a future release. 

Profile-GetID: PROCEDURE [ 

flavor, Auth.Flavor simple, proc: procedure [id: Auth.ldentityHandle]]; 

The GetID procedure calls the procedure parameter with the user identity corresponding 
to the current user name and password and having the specified authentication flavor, id 
is not authenticated. The call is made from within the Profile machinery’s monitor lock. 

Profile.GetLibrarian: procedure [procedure [String]]; 

The GetLibrarian procedure calls the procedure parameter with the name of the default 
librarian server used in librarian transactions. The call is made from within the Profile 
machinery’s monitor lock. 

Profile. GetLibrarianNames: procedure [procedure [prefix, suffix: String]]; 

The GetLibrarianNames procedure calls the procedure parameter with the default name 
prefix and suffix to be used when nameing libjects. The call is made from within the 
Profile machinery’s monitor lock. 

Profiie.GetUser: procedure [ 

proc: procedure [name, password: String], qualification: Qualification ^none]; 

The GetUser procedure calls the procedure parameter with the user name and password. 
The call is made from within the Profile machinery’s monitor lock. If the current user 
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name is already qualified with an appropriate qualification, it is not changed. Otherwise, 
any qualification is stripped from the token. Note: If qualification is registry, the Grapevine registry 
is used to qualify the name. If qualification is clearinghouse, the Clearinghouse domain and 
organization are used to qualify the name. 

Profile. Qualify: procedure [ 

token, newToken: long string, qualification: Profiie.Qualification]; 

The Qualify procedure produces the requested qualification for a token. If the token is 
already qualified with an appropriate qualification, it is not changed. Otherwise, any 
qualification is stripped from the token. Note: If qualification is registry, the Grapevine registry is 
used to qualify the token. If qualification is clearinghouse, the Clearinghouse domain and 
organization are used to qualify the token. newToken contains the qualified token. This 
procedure may raise String.StringBoundsFault if newToken is not long enough. 

Profile. SetBalanceBeamChoice: procedure [BalanceBeamChoice]; 

The SetBalanceBeamChoice procedure changes the variable Profile. balanceBeamChoice. 
Profile. SetDebugging: procedure [boolean]; 

The SetDebugging procedure changes the variable Profile.debugging. This procedure 
notifies the subsystem Event.tajoDefaults with the event EventTypes.debugging. 

Profile. SetDefaultDomain: procedure [domain: String]; 

The SetDefaultDomain procedure changes the default Clearinghouse domain. The 
parameter string is copied. This procedure notifies the subsystem EventtajoDefaults with 
the event EventTypes.domain. 

Profile.SetDefaultOrganization: procedure [organization: String]; 

The SetDefaultOrganization procedure changes the default Clearinghouse organizataion. 
The parameter string is copied. This procedure notifies the subsystem EventtajoDefaults 
with the event EventTypes.organization. 

Profile. SetDefaultRegistry: procedure [registry: long string]; 


The SetDefaultRegistry procedure changes the default Grapevine registry. The parameter string is copied. 
This procedure notifies the subsystem Event.tdjoDefaultS with the event EventTypes.registry. 

Profile.SetFileServerProtocol: procedure [FileServerProtocol]; 

The SetFileServerProtocol procedure changes the variable 
Profile.defaultFileServerProtocol, This procedure notifies the subsystem EventtajoDefaults 
with the event EventTypes.fi leServerProtocol. 
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Profile. SetLibrarian: procedure [ 

name, prefix, suffix: long string ^Profile. noChange]; 

The SetLibrarian procedure changes the default librarian name prefix, the default 
librarian name suffix and the default librarian server name. Parameters that are 
defaulted are not changed. The parameter strings are copied. This procedure notifies the 
subsystem Event.tajoDefaults with the event EventTypes.librarian. 

Profile. SetSwapCtrlAndCommand: procedure [boolean]; 

The SetSwapCtrlAndCommand procedure sets the variable Profile.swapCtrlAndCommand. 

Profile. SetUser: procedure [name, password: String-^ Profile. noChange]; 

The SetUser procedure changes the user name and password. Parameters that are 
defaulted are not changed. The parameter strings are copied. This procedure notifies the 
subsystem Event.primaryCredentials with the event EventTypes.primaryCredentials. 
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The Token interface provides general scanning and simple parsing facilities for any source 
of characters. The interface supports client-defined filters; some standard token filters are 
also provided. 


9.1 Types 


Token.FilterPrOcType:TYPE = PROCEDURE ( 

c: CHARACTER, data: Token.FilterState] returns [inClass: boolean]; 

A FilterProcType is the mechanism by which a client defines a class of tokens. Procedures 
that use filters call them once for each candidate character. Instance data permits the 
client to maintain the state of the parse. If a client tries to access instance data but none 
was passed in, the signal NilData should be raised. The FilterProcType returns a boolean 
indicating whether the character is part of the token. 

Token.FilterState: type = longpointerto StandardFilterState; 

A FilterState is a long pointer to client instance data that is passed to a client's 
FilterProcType procedure. A client may loophole the FilterState to a more convenient type. 
The system-provided filters that require a non-NiL FilterState (such as Delimited) use the 
first two words of data. 

Token.GetCharProcType: type = procedure [ 
h: Token.Handle] returns [c: character]; 

A GetCharP.rocType provides a stream of characters to be parsed. When a 
GetCharProcType procedure returns Asdi.NUL, the Token package assumes that the source 
has been exhausted. The Handle is passed into the GetCharProcType so that a client can 
hide instance data in its object. Although there is not an instance data field in Object, the 
client could loophole a pointer to a larger record that contained its data. 

Token.Handle: type = LONG POINTER TO Token.Object; 

Token.lSletFormat; TYPE = Forrnat.NetFormat; 
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Token.Object: TYPE = MACHINE DEPENDENT RECORD [ 

getChar(O): Token.GetCharProcType, break(1): character ^ Asdi.NUL]; 

The Object encapsulates the source of characters to be parsed. The Token package uses the 
getChar field of the Handle to obtain the stream of characters. It assumes that the source 
has been exhausted when getChar returns Asdi.NUL. Token uses the break field to record 
the final character that it reads. It records the final character because there is no way to 
put back a character into the character source. It must read one character beyond the 
token it is parsing to ensure that it has reached the end. If it simply returned the token, 
this character would be lost. Since the Token package stores the last character in the 
Object, that character is available to the client. The client can ignore it, inspect it to 
decide what to parse next, or put it back into the character source. Note that when a client 
attempts to parse past the end of the input, the break character contains Asdi.NUL. 

Token.QuoteProcType: type = procedure [ 
c: character] returns [closing: character]; 

The QuoteProcType is used to recognize quoted tokens. If c is a quote character recognized 
by the QuoteProcType, closing is the matching character that closes the quotation. If 
closing is Token.nonQuote, c was not a quote character. 

Token.SkipMode: TYPE = {none, whiteSpace, nonToken}; 


The SkipMode controls what characters a procedure will skip before collecting a token. 

none no characters should be skipped and the token should start with the 

next character. 


whiteSpace white-space characters (space, carriage return, and tab) should be 
skipped before collecting the token. 

nonToken any characters that are not legal token characters should be skipped 

before collecting the token. 


Token.StandardFilterState: type = array [0..2) of unspecified. 


The StandardFilterState is client data that is passed to a client's FilterProcType procedure. 
A client that uses instance data can use a StandardFilterState for storing two words of 
state data. 


9.2 Constants and data objects 

Token.nonQuote: character a . . . ; 

The nonQuote character is returned from a QuoteProcType to indicate that the character 
passed to it is not a quote character. 
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9.3 Signals and errors 

Token. NilData: signal; 

Procedures that take a FilterProcType argument also take an argument that is a pointer 
to client instance data. If the client has no need for instance data, it can pass a nil as the 
instance data pointer. If a FilterProcType attempts to access the client instance data, but 
the client passed in nil instead of a pointer to instance data, the signal NilData should be 
raised. Implementors of FilterProcTypes are strongly encouraged to check for nil and raise 
this condition if they use client instance data. 

Token. SyntaxError: signal [s: long string]; 

The resumable signal SyntaxError can be raised if incorrect syntax is encountered by 
Boolean, Decimal, HostNumber, LongNumber, LongDecimal, NetworkAddress, 
NetworkNumber, Octal, or SocketNumber. In each case, resuming the signal causes the 
procedure to return a default value (described in the discussion of the various procedures). 

Token.UnterminatedQuoteisiGNAL 

The resumeable signal UnterminatedQuote is raised from MaybeQuoted if the getChar 
procedure of the Handle returns AscH.nul before the terminating quote character has been 
read. If the signal is resumed, MaybeQuoted will return as if it had read a closing-quote 
character. 

9.4 Procedures 

Token.Alphabetic:Token.FilterProcType; 

Alphabetic can be used to collect tokens composed of alphabetic characters; that is, the 
characters *a through 'z and *A through ’Z. This procedure requires no client data (data 
may be nil). 

Token.AlphaNumeric: Token.FilterProcType; 

AlphaNumeric can be used to collect tokens composed of alphanumeric characters; that is, 
the characters 'a through *z, *A through *Z, and *0 through *9. This procedure requires no 
client data (data may be nil). 

Token. Boolean: procedure [ 

h: Token.Handle, signalOnError: boolean true] returns [true: boolean]; 

The Boolean procedure parses the next characters of the source as a boolean constant. 
Valid Boolean values are "TRUE” or "FALSE,” but unlike the Mesa language, case does 
not matter ("true” and "false” are also acceptable). In case of a syntax error, the signal 
SyntaxError is optionally raised. If signalOnError is false, or SyntaxError is resumed, then 
FALSE is returned for a syntax error. This procedure skips leading white space. 
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Token.Brackets: lokenQuoteProcType; 

Brackets recognizes the Ibllowing sets of matching open/close-quote pairs: (),[],{}, and < 
>. 

Token.Decimal: procedure [ 

h: Token. Handle, signalOnError: boolean «h-true] returns [i: integer]; 

The Decimal procedure parses the next characters of the source as a decimal constant. 
Decimals have the format as specified in the Mesa Language Manual. In case of a syntax 
error, the signal SyntaxError is optionally raised. If signalOnError is false or SyntaxError 
is resumed, then zero is returned for a syntax error. This procedure skips leading white 
space. 

Token.Delimited: Token.FilterProcIype; 

When Delimited is passed to a procedure such as Filtered, the value of skip passed along 
with it must be nonToken. It skips leading white space, then defines the first character of 
the token to be both the opening-quote character and the closing-quote character, 
returning all characters occurring between the first and second appearance of that 
character. As an example, Delimited would return the token '*XXX** from either of the 
following input strings: ” YXXXY” and *7XXX/**. Delimited requires a non-NiLdata. 

Token.FileName: Token.FilterProcIype; 

The FileName FilterProcType can be used to collect tokens composed of file name 
characters; that is, *[, ’], '<, ’>, *!, , or AlphaNumeric characters. Note 

that the filter does not guarantee that the token forms a valid file name, only that the 
token contains only these characters. This procedure requires no client data (data may be 
nil). 

Token.Filtered: procedure [ 

h: Token.Handle, data: Token.FilterState, filter: Token.FilterProcIype, skip: 
Token.SkipMode whiteSpace, temporary: boolean ^ true] 
returns [value: long string]; 

The Filtered procedure collects the token string defined by the client’s filter. If the client- 
instance data parameter data is not nil, the first two words of data are set to zero before 
any calls are made to filter, filter is called with data once on each character until it returns 
false. The string returned, which may be nil, must be freed by calling FreelokenString. 
Leading characters are skipped according to the value of skip. If temporary is true, it is 
assumed that the string will be freed shortly and no effort is made to use the minimum 
storage for it. If temporary is false, the minimum amount of storage is used, filter may 
raise NilData. 

Token.FreeStringHandle: procedure [h: Token.Handle] returns [nil: Token.Handle]; 

The FreeStringHandle procedure destroys a Token.Handle created by StringloHandle. It 
does not destroy the underlying string. It returns nil. 

Token. FreelokenString: procedure [s: long string] returns [nil: long string nil]; 
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The FreeTokenString procedure frees a string allocated by Token. It returns nil. All such 
strings are allocated from the system heap. 

Token.HostNumber: procedure t 

h: Token. Handle, format: NetFormat octal, signalOnError: boolean <-true] 

RETURNS (host: System. HostNumber]; 

The HostNumber procedure parses the next characters of the source as a host number in 
format format. See the Format interface for a description of host numbers. In case of a 
syntax error, the signal SyntaxError is optionally raised. If signalOnError is false, or 
SyntaxError is resumed, then System. nullHostNumber is returned for a syntax error. This 
procedure skips leading white space. 

Token.ltem: procedure [ 

h: Token. Handle, temporary: boolean «-true] returns [value: long string]; 

The Item procedure returns the next token delimited by white space. Leading white space 
is skipped and the characters are collected until another white-space character is 
encountered. The string returned must be freed by calling FreeTokenString. If temporary 
is TRUE, it is assumed that the string will be freed shortly and no effort is made to use the 
minimum storage for it. If temporary is false, only as much storage is used for the string 
as needed. 

Token. Li ne: Token.Fi IterProcTy pe; 

The Line FilterProcType can be used to collect a line. It collects characters until it 
encounters a carriage return. This procedure requires no client data (data may be nil). 

Token.LongNumber: procedure [ 

h: Token.Handle, radix: cardinal, signalOnError: boolean «-true 1 
RETURNS [u: long unspecified]: 

The LongNumber procedure parses the next characters of the source as a long number in 
radix radix. Numbers have the format specified in the Mesa Language Manual. In case of 
a syntax error, the signal SyntaxError is optionally raised. If signalOnError is false or 
SyntaxError is resumed, then zero is returned for a syntax error. This procedure skips 
leading white space, 

Token.LongOecimal: procedure [ 

h: Token.Handle, signalOnError: boolean <-true] returns [i: long integer]; 

LongOecimal is just like LongNumber, but with a radix of 10. 

Token.LongOctal: procedure [ 

h; Token.Handle, signalOnError: boolean <-true] returns [c: long cardinal]; 

LongOctal is just like LongNumber, but with a radix of 8. 

Token.MaybeQuoted: procedure [ 

h: Token.Handle, data: Token.FiiterState,filter; Token.FilterProcType «- 
Token.NonWhiteSpace, isQuote: Token.QuoteprocType <-Token.Quote, skip; 

Token. SkipMode «- whiteSpace, temporary: boolean «-true],- 


9-5 



9 


Token 


The MaybeQuoted procedure permits the client to scan for one of two kinds of token. The 
first candidate character is passed to isQuote, which either returns Token, nonQuote or the 
closing-quote character. If a closing-quote character other than Token. nonQuote is 
returned, characters are collected in the token until the closing quote is encountered. If 
the input is exhausted before the closing quote is encountered, the signal 
UnterminatedQuote is raised. If it is resumed, MayBeQuoted returns the token collected 
up to that point. The closing-quote character may be included in the token by including 
two instances of the character in the input; that is, if MaybeQuoted encounters two 
closing-quote characters in a row, it will insert one closing-quote character in the token 
rather than terminating the token on the first closing quote. The outer quote characters 
are not part of the token and are discarded. If Token. nonQuote is returned from the 
isQuote procedure, the filter is used to collect characters the same way as in Filtered: filter 
is called with the client-instance data parameter data once on each character until it 
returns false. In either case (quoted or filtered), the break character returned in the 
Handle will be the character following the token. 

Leading characters are skipped according to the value of skip 

If temporary is true, it is assumed that the string will be freed shortly and no effort is 
made to use the minimum storage for it. If temporary is false, only as much storage is used 
for the string as is needed. The string returned must be freed by calling FreeTokenString. 

Token, NetworkAddress: procedure [ 

h: Token. Handle, format: NetFormatoctal, signalOnError: boolean <-“True] 

RETURNS [address: System. NetworkAddress]; 

The NetworkAddress procedure parses the next characters of the source as a network 
address in format format. (See the Format interface for a description of network 
addresses.) In case of a syntax error, the signal SyntaxError is optionally raised. If 
signalOnError is false or SyntaxError is resumed, then System. nullNetworkAddress is 
returned for a syntax error. This procedure skips leading white space. 

Token. NetworkNumber: procedure [ 

h: Token. Handle, format: NetFormatf-octal, signalOnError: boolean ^true] 
returns [networkNumber; System.NetworkNumber]; 

The NetworkNumber procedure parses the next characters of the source as a network 
number in format format. (See the Format interface for a description of network numbers.) 
In case of a syntax error, the signal SyntaxError is optionally raised. If signalOnError is 
false or SyntaxError is resumed, then System.nullNetworkNumber is returned for a syntax 
error. This procedure skips leading white space. 

Token.NonWhiteSpace: FilterProcType; 

The NonWhiteSpace FilterProc defines all characters that are not white space; that is, 
WhiteSpacefchar] = --NonWhiteSpaceCchar]. This procedure requires no client data (data 
may be nil). 

Token. Number: procedure [ 

h: Token.Handle, radix: cardinal, signalOnError: boolean ^ true] 

RETURNS [u: unspecified]; 
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The Number procedure parses the next characters of the source as a number in radix 
radix. Numbers have the format specified in the Mesa Language Manual. In case of a 
syntax error, the signal SyntaxError is optionally raised. If signalOnError is false or 
SyntaxError is resumed, then zero is returned for a syntax error. This procedure skips 
leading white space. 

Token.Numeric: Token.FilterProcIype; 

The Numeric FilterProcType can be used to collect a composed of digits; that is, the 
characters '0 through '9. This procedure requires no client data (data may be nil). 

Token.Octal: PROCEDURE [ 

h: Token. Handle, signalOnError: boolean true) returns [c: cardinal]; 

Octal is just like Number, but with radix = 8. 

Token.QuOte; Token.QuOteProcType; 

The Quote QuoteProcType recognizes the single quote and double quote as quotation 
characters and looks for another instance of the open-quote character to close the 
quotation. 

Token.Skip: procedure ( 

h: Token.Handle, data: Token.FilterState,filter: Token.FilterProcIype, 
skipInClass: boolean <-true]; 

The Skip procedure is used to skip over characters. A filter is provided to define the class of 
characters, and the boolean skipInClass indicates whether the characters to be skipped are 
those accepted or rejected by the filter. If the client-instance data parameter data is not 
NIL, the first two words of data are set to zero before any calls are made to filter. If data is 
NIL and filter references data, the signal NilData should be raised. 

Token.SocketNumber: procedure [ 

h: Token.Handle, format: NetFormat^-octal, signalOnError: boolean 4-true] 

RETURNS [socketNumber: System.SocketNumber]; 

The SocketNumber procedure parses the next characters of the source as a socket number 
in format format. (See the Format interface for a description of socket numbers.) In case of 
a syntax error, the signal SyntaxError is optionally raised. If signalOnError is false, or 
SyntaxError is resumed, then System.nullSocketNumber is returned for a syntax error. This 
procedure skips leading white space. 

Token.StringloHandle: procedure [s: long string, offset: cardinal ^0] 

RETURNS [h: Token.Handle]; 

The StringToHandle procedure creates a Token.Handle whose source is a string offset is 
the index into the string that marks the beginning of the characters to be parsed. The 
string is not copied, so clients are responsible for synchronizing access to the string with 
the Token package. 

Token.Switches: Token.FilterProcIype; 
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The Switches FilterProcType can be used to collect switch characters. It accepts the 
characters and AlphaNumeric characters. This procedure requires no client data 

(data may be nil). 

Token.WhiteSpace: Token.FilterProcType; 

The WhiteSpace FilterProcType defines the white-space characters. This filter is used by 
Token for skipping white space. This procedure requires no client data (data may be nil). 

Token. WindowBox: procedure [h: Token.Handle] returns [window.B ox]; 

The WindowBox procedure parses the next data in the Handle as a window box and 
returns the corresponding window. Box. The syntax of the entry for a window boxes is as 
follows: 

WindowBox; [x: number, y; number, w: number, h: number] 

White space is ignored and the keywords x, y ,w and h may appear in any order or case. It is 
not necessary to have all four values present. If a value is to be omitted, its keyword must 
also be omitted. The result is initialized to Window. NullBox, so omitted values remain 
unchanged from this initialization. The values for the numbers refer to absolute screen 
coordinates and should obey the syntax for Token. Decimal. If an invalid Token. Handle is 
supplied, the results are undefined. 

9,5 Discussion and examples 

An example of the Token interface in parsing User «cm entries can be found at the end of 
the CmFile chapter. 

The following example demonstrates how the Token interface could be used to parse 
command line input into "tokens,” optionally followed by switches. In this context, tokens 
and switches are defined to be any sequence of non-white-space characters not including 
the slash character (/). 

GetToken: procedure [h; Exec.Handle] returns [token, switches: long string] * 

BEGIN 

get: procedure [Token. Handle] returns [c: character] = { 

RETURN[Exec.GetChar[h]]}; 

getToken: Token, Object [getChar: get, break: ascILnul]; 

tokenFilter: Token.FilterProcType = { 

RETURN[SELECT true FROM 

Token.WhiteSpace[c, data],c s Ascii.NUL = > false, 
c = V a > FALSE, 

ENDCASE a > TRUE]}; 

token 4-Token.Filtered[@getToken, nil, tokenFilter]; 
switches ^IF getToken.break a '/then 
Token.Filtered[@getToken, nil, tokenFilter] 

ELSE nil; 
end; 
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We can extend this example so that the token is defined to be either a sequence of non¬ 
white-space characters or a sequence of characters (possibly containing white-space 
characters) between double quotes. 

GetToken: procedure (h: Exec. Handle] returns [token, switches; long string] = 

BEGIN 

get: procedure [Token. Handle] returns [c: character] * { 

RETURN[Exec.GetChar[h]]}; 

getToken: Token. Object[getChar; get, break; Ascii.NUL]; 
isQuote: Token. QuoteProcType = { 

RETURN[IFc = THEN C ELSE Token.nonQuOte]}; 
tokenFilter: Token.FilterProcType *— { 
return[selecttrue from 

Token.WhiteSpace[c, data], c = ascN.NUL * > false, 

C = '/ = > FALSE, 

ENDCASE s > true]}; 

token «-Token.MaybeQuoted[@getToken, NIL, tokenFilter, isQuote]; 
switches IF getToken.break * '/then 
Token.Filtered[@getToken, nil, tokenFilter] 

ELSE nil; 
end; 
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The ToolDriver interface allows a tool to inform the ToolDriver package of its existence 
and of the existence of its subwindows. The ToolDriver package can thus use the tool’s 
functions on behalf of a user communicating with the package via a script file. Every tool 
that provides some generally useful function should use the ToolDriver facilities. 
Although the ToolDriver is an add-on package (not built into the regular Tajo), the 
interface routines are available in Tajo even without the ToolDriver so that the tool being 
STARTed need not concern itself with unbound procedures. For details on running the 
ToolDriver itself, see the XDE User*s Guide. 


10.1 Types 


TooiOriverAddreSS: TYPE s RECORD [name: LONG STRING, sw: Window. Handle]: 

Address is an element of the array passed to NoteSWs to describe the relationship between 

a subwindow of a tool and its name. 

ToolDriver.AddreSSDeSCriptOr: TYPE = 

LONG DESCRIPTOR FOR ARRAY OF ToolDriver AddreSS; 

AddressDescriptor is the array passed to NoteSWs describing the subwindows of a tool 

TooiDriver.FindDataProcType: type = procedure [ 
tOOlID: ToolDriver.Tool ID] RETURNS [LONG POINTER]; 

The FindDataProcType procedure is obsolete. 

ToolOriver.NoteDataPrOCType: TYPE = PROCEDURE [ 
tOOlID: ToolDriver.TOOlID, data: LONG pointer]; 

The NoteDataProcType procedure is obsolete. 

ToolDriver.NoteSWsPrOcType: TYPE = PROCEDURE [ 

tool: LONG STRING, subwindows: TooiDriver.AddressDescriptor]; 

NoteSWsProcType is the type of the NoteSWs procedure. 
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i ■' 
i 

j toolOriver.RemOveDataPrOCType: type = procedure [tOOlID: ToolDriver. Tool I D|; 

I The RemoveDataProcType type is obsolete. 

ToolDriver.RemOveSWsPrOcType. type = procedure [tool: long string]; 
RemoveSWsProcType is the type of the RemoveSWs procedure. 
ToolDriver.TOOlID: TYPE = CARDINAL [0..1024); 

TooliD is private and should not be used. 


j 

j 

10.2 Constants and data objects 


None. 


10.3 Signals and errors 

None. 


10.4 Procedures 

TooiDriver.FindOata: ToolDriver. FindDataProcType; 

The FindData procedure is obsolete and not implemented. 

ToolDriver. NoteData: ToolDriver. NoteOataProcType; 

The NoteData procedure is obsolete and not implemented. 

ToolDriver.NoteSWs: ToolDriver.NoteSWsPrOcType; 

The NoteSWs procedure is used by a tool to announce its existence, tool is whatever name 
the tool wishes to go by for purposes of the ToolDriver. It need not be the same as the name 
displayed in the herald of the tool's window; in general, it will be different because the 
ToolDriver restricts the tool to contain only alphanumerics. subwindows is a list of 
subwindows that the tool wishes to make available to the ToolDriver. The name for each 
of these must also contain only alphanumerics. Tools that register with the ToolDriver 
interface should have unique names in each of the menus used by the tool so as not to be 
ambiguous to the ToolDriver package. 

TooiDriver.RemoveData: TooiDriver.RemoveDataProcType; 

The RemoveData procedure is obsolete and not implemented. 

ToolDriver. RemoveSWs: ToolDriver. RemoveSWsProcType; 

The RemoveSWs procedure should be called when a tool goes inactive, unless it is 
prepared to be called by the ToolDriver while inactive. 
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ToolOriver.SetDataPrOCS: PROCEDURE [ 

findData: TooiOriver.FindDataProcType, noteData: ToolOnver.NoteOataProcType. 
removeData: Tooioriver.RemoveOataProcType]; 

The SetDataProcs procedure is obsolete and not implemented. 

ToolDriver.SetSWsProcs: PROCEDURE ( 

noteSWsProc; XooiDriver.NoteSWsProcType, 
removeSWsProc; ToolDnver.RemoveSWsProcTypel; 

The SetSWsProcs procedure is obsolete and not implemented. 

10.5 Example 

The following example registers a tool and its subwindows when the subwindows are 
created, which happens whenever a tool becomes active. 

MakeSWs: Tooi.MakeSWsProc = 

BEGIN 

addresses: array [0..3) OF TooloHver.Address; 

msgSW e- Tooi.MakeMsgSW[... ]; 
formSW Tool.MakeFormSWt... ]; 
fileSW <-Tooi.MakeFileSW[... ]; 

address *- [ 

[name: "MsgSW"L,sw; msgSW]; 

[name: ”FormSW"L, sw: formSWj; 

[name: "FlIeSW'L.sw: fileSW]]; 

TooiDriver.NoteSWs[tool: ''Sampte"L, subwindows: DESCRiPTOR[addresses]]; 
end; 
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Tool building 


These interfaces support most tool builders, who need only prepackaged parts. The 
subwindow types given here can easily be combined into tools. The Example Tool, 
discussed in Appendix A, shows how to put these pieces together and how to use them with 
other interfaces such as file management interfaces (see the File Management section ). 

If you require significantly more or different functionality for a new tool, use the 
interfaces described in the next major section of this document (Window and Subwindow 
Building). It is not recommended, however, that you use the lower-level interfaces unless 
you have tool-building experience. Those interfaces require much greater attention to 
detail to apply them properly, especially when integrating them into the system. 

ILl Interface abstracts 

FileSW provides the definitions and procedures for creating text subwindows whose 
backing storage is a disk file, plus procedures that are specific to file subwindows. 

FormSW implements a form subwindow, which is a. mechanism for invoking commands 
and specifying command parameters. This type of subwindow is standard for invoking 
tools. 

MsgSW implements message subwindows, which provide a simple way of posting 
messages to the user. 

ScratchSW creates a subwindow backed by a scratch source; that is, by a piece of virtual 
memory. 

StringSW provides the definitions and procedures for creating and manipulating text 
subwindows whose backing store is a LONG STRING. 

TextSW defines extensive facilities for viewing text independent of its source. 

TTYSW implements a TTY subwindow, which emulates a teletype. 

Put provides procedures for converting data types to formatted text and outputting that 
text to windows. 


IM 
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Tool provides facilities for building an interactive tool. It is designed to make the writing 
of tools with a standard user interface as easy as possible, by allowing the client to avoid 
many of TajVs low-level facilities at the cost of some loss in flexibility. 

ToolWindow provides facilities for constructing subwindows in a tool window. Many 
standard subwindow types are provided by the development environment; normally only 
clients that wish to make complex tools need this interface. 
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The FileSW interface provides the definitions and procedures for creating text subwindows 
whose backing storage is a disk file. It also provides procedures that are specific to file- 
type subwindows. All non-file subwindow-specific manipulations are contained in the 
interface TextSW. 


11.1 Types 


FileSW Access; TYPE = TextSource.AccesS; 

FileSw.EnumerateProcType: type = procedure[ 

sw: window.Handle, name; long string, access: FileSW.Access] 

RETURNS [done: boolean); 

FileSW.OptionS: TYPE = TextSW.OptionS; 

11.2 Constants and data objects 

FiieSw.defauitOptions: FileSW.Options a [ 

access: read, menu; true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE,flushBottom: false],- 

11.3 Signals and errors 

FiieSW.Error; SIGNAL [code: FiieSW.ErrorCode); 

FiieSw.ErrorCode: type = { 

notAFileSW, isAFileSW, notEditable, isEditable, accessOenied, other},- 

11.4 Procedures 

Fiiesw.Create: procedure [ 

sw: Window.Handle, name; long string, 
options: FileSW.Options ^ FiieSw.defauitOptions, 
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s: stream.Handle ^nil, position: TextSource.Position ^0, 

allowTypeIn: boouan ^ true, resetLengthOnNewSession: boolean false]; 

The Create procedure creates a disk source and then creates a text subwindow using that 
disk source. The name Create is something of a misnomer, since the subwindow must 
already have been created by a call on Tool window. Create or Toolwindow.CreateSubwindow; 
the call on Create is actually a differentiation process. If s is nil, a stream is automatically 
opened on the file name. If s is not nil, name must be the name of the file to which s is 
attached. Note that if s is not nil, the file subwindow owns the stream and will destroy it 
when the window is Destroyed. The text is positioned so that the character specified by 
position is displayed on the first line of sw. If options.access is read and the file can't be 
found, TextSource.ErrorffileNameError] is raised. The parameter allowTypeIn controls 
whether the window permits user type-in. The parameter resetLengthOnNewSession, 
which controls whether the file length is reset to zero on a new session, is probably of 
interest only to the implementation of CoPilot or tools that run in CoPilot. Subwindows 
created by FileSW.Create should always be destroyed by FileSW.Destroy, not by 
Textsw.Destroy. 

FileSW.Destroy: procedure [sw: wmdow.Handlej; 

The Destroy procedure destroys a file subwindow created by FileSW.Create and deletes the 
stream backing the window. 

FileSW.Enumerate: procedure [proc: FiieSW.EnumerateProcType]; 

The Enumerate procedure enumerates all the current file subwindows, including file 
sub windows that are not in the window tree and file subwindows that are part of inactive 
tools 

FiieSW.GetFile; procedure [ 

sw: Window. Handle] returns [name: long string, s: Stream.Handle]; 

The GetFile procedure returns the file name and stream that are currently attached to a 
file sub window. The string returned by GetFile is owned by Tajo and must not be freed by 
the client. 

Filesw.lsEditable: procedure [sw: window.Handle] returns [yes: boolean]; 

The isEditable procedure returns true if and only if a window is currently editable. 
Fiiesw.lslt; PROCEDURE [sw: Window.Handle] RETURNS [yes: boolean]; 

The Isit procedure returns TRUE if and only if a window is a file subwindow. 

FileSW.LoadMCR: Menu.MCRType; 

The LoadMCR procedure is a menu command routine that does the standard load 
operation using the current selection as the file-name argument. Clients that construct 
their own menus may call it. 
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FiieSw.MakeEditable: procedure [sw: window.Handle] returns [ok: boolean]; 

The MakeEditable procedure makes a file subwindow editable. It returns an indication of 
success. 

FileSw.PutEditableFile: procedure [ 

sw: Window.Handle, name: long string] returns [ok; boolean]; 

The PutEditableFile procedure stores the edited file on the new file name. If name = nil, 
the old version of the file is saved as **currentName$'* and the edited file is output to 
currentName. It returns an indication of success. 

FiieSw.ResetEditableFile; procedure [sw: window.Handle]; 

The ResetEditableFile procedure resets an edited file to its original state. The file 
subwindow is not editable after the call. 

FileSw.SetFile: procedure [ 

sw: Window.Handle, name: long string, s: stream.Handle nil, 

position: TextSource. Position <-0]; 

The SetFile procedure loads a new file into a file subwindow. Note that if s is not nil, the 
file subwindow owns the stream s and will destroy it when the window is Destroyed. 
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The FileWindow interface provides facilities for manipulating file windows. It also 
maintains a mapping between file windows and the files that are loaded into them. A file 
window is a tool containing a text subwindow for manipulating and displaying text. All of 
the FileWindow procedures that have window. Handle parameters or results deal with the 
text subwindow in the FileWindow. Some procedures also accept the tool window or even 
the clipping window for the FileWindow. The text subwindow is either an editable or non- 
editable file subwindow (see FileSW), or a scratch subwindow (see ScratchSW). 


12.1 Types 


FileWindow.ContinueStop: TYPE = {continue, stop}; 

FileWindow.EnumerateProcType; type = proc [ 

sw: window.Handle] returns [continue: FileWindow.ContinueStop]; 

12.2 Constants and data objects 

FiteWindow.defaultOptionS:TextSW.Options a [ 

access: read, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom: false]; 

12.3 Signals and errors 

None. 

12.4 Procedures 

FileWindow.Create: PROC [ 

box: window.Box, options: Textsw.Options <- FileWindow.defaultOptions, 
initialState: Tooiwindow.State active] 

RETURNS [sw: Window.Handle]; 
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Create creates an empty file window. It takes the dimensions of the desired window and a 
set of options for the state of the window. Create returns the text subwindow for the file 
window. The options parameter is ignored. 

FileWindow.CreateMCR: Menu.MCRType; 

CreateMCR is the FileWindow package's implementation of the Create menu operation. It 
is defined in the FileWindow interface so that clients can create their own menus with this 
procedure implementing one of the operations. 

FileWindow.Destroy: proc [sw: window.Handle]; 

Destroy destroys a file window. The parameter may be either the tool window, the clipping 
window, or the text subwindow for a file window. 

FileWindow. Destroy MCR: Menu.MCRType; 

DestroyMCR implements the Destroy menu operation. If it would reduce the number of 
file windows below the minimum, the display blinks. Otherwise, the user is asked to 
confirm destruction of the window by clicking the POINT mouse button, DestroyMCR is 
defined in the FileWindow interface so that clients can create their own menus with this 
procedure implementing one of the operations. 

FileWindow. Enumerate: proc [proc: FileWindow. EnumerateProcType]; 

Enumerate calls proc with the text subwindow for each file window until proc returns 
stop or all file windows have been enumerated. 

Filewindow.FilelnWindow: proc[ 

sw: window.Handle] returns [fileName: long string, s: stream. Handle]; 

The FilelnWindow procedure returns the file name and stream that back the window. The 
sw parameter is expected to be the text subwindow for the file window, or nil. If it is nil, a 
file window is selected using the same heuristics as WindowForFile and the results for 
that window are returned. If WindowForFile fails, [nil, nil] is returned. The results do not 
belong to the user and should be treated as read-only. They are potentially dangling 
references, since the file in the window may change. If needed, the string should be copied 
immediately. Even this is not 100% safe. 

FileWindow.GetInfo: PROC RETURNS [ 

ext: LONG STRING, fileMenu,sourceMenu: Menu. Handle, 
minimumWindows: cardinal]; 

The Getinfo procedure returns the global data maintained by the FileWindow package. 
This data is set by SetExtension, SetSourceMenu, and SetMinimumWindows. 

FileWindow.lsIt: PROC [sw: Window.Handle] RETURNS [BOOLEAN]; 

Isit returns true if the window is a file window and FALSE otherwise. The parameter may be 
either the tool window, the clipping window, or the text subwindow for a file window. 
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FileWmdow.LoadWindow: proc [ 

fileName: long string, position: long cardinal 4-0, s: stream. Handle 4-nil, 
loadIFSame: boolean 4- false, sw: window. Handle 4- nil]; 

LoadWindow loads a file into a file window, s must be an MStream. Handle. If s is not nil, it 
is assumed to be a stream on file fileName and is used as the backing stream. The file is 
positioned in the window at position; that is, the top line in the window contains the 
character in that position. loadIFSame controls whether to reload the requested file if it is 
already loaded in the window. If sw is not nil, it is the text subwindow of a file window in 
which to load the file. If it is nil, the file window package searches for a suitable window to 
load the file into, using the same heuristics as WindowForFile. If sw is nil and 
WindowForFile fails, then either an unnamed error or an address fault results. 

FileWindow.Position: PROC [sw: Window.Handle, position: long cardinal); 

Position sets the position of the file in the window so that the top line in the window 
contains the character at that position. If the position is out of range for the file, no action 
is taken. The sw parameter is expected to be the text subwindow for the file window, or nil. 

Filewindow.SetExtension: proc [ext: long string); 

In loading a window, the FileWindow package first attempts to find a file with the 
specified name. If that fails, it tries three different extensions, in turn, to the name in an 
attempt to find a file to load. These extensions are ’'.mesa” (initially), ".config”, and ”.cm”. 
The first extension can be modified by a client using SetExtension. SetExtension will copy 
the contents of ext. 

FileWindow.SetMinimumWindows: proc [keep: cardinal); 

SetMinimumWindows permits the client to set the minimum number of file windows that 
must exist at all times. Destroy operations that would take the number of windows below 
this minimum will fail to destroy any window. 

Filewindow.SetSize: proc [sw: window.Handle, box: window.Box); 

SetSize changes the size of the file window. The parameter may be either the tool window, 
the clipping window, or the text subwindow for a file window. 

Fiiewindow.SetSourceMenu: proc [menu: Menu.Handle); 

SetSourceMenu associates a menu with all file windows. 

FileWindow.WindowForFile: PROC [fileName: long string] returns [window.Handle]; 

WindowForFile searches for a file window into which the file can be loaded. It returns the 
first non-editable file window containing a file whose full name or Simple name matches 
fileName. If a non-editable file window already contains the file, that window is returned. 
If no such window is found, the file window package searches all file windows that are 
either non-editable windows or nearly empty scratch subwindows. In order of preference, 
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WindowForFile tries to find either an empty active, a full active, an empty tiny, or a full 
tiny file window. If it cannot find a suitable file window, it returns nil. 
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The FormSW interface is used in building tools that interact with the user via the window 
user interface. A form subwindow is a mechanism for invoking commands and specifying 
the command parameters. A form subwindow consists of form items, which are 
rectangular regions in the subwindow, similar to ruled-off areas on a preprinted form. 

A form item can be one of the following types. Command items correspond to the 
operations a tool can perform, A command item appears in the form subwindow as a 
keyword followed by an '*!**. String items are strings filled in by the user that serve as 
parameters to command items. A **: ** is appended to string item keywords. Enumerated 
items are lists of string items. 

These items may be displayed in two ways: "keyword: {a, b, c,...}" or "keyword: {a}." In both 
cases, choosing is done via menu prompts. Menu prompts are always available for 
enumerated items and sometimes for string items. When you press the menu button over 
the keyword for an enumerated field, a menu of allowed values is displayed. Choosing one 
of the values from the menu sets the enumerated item to that value. Similarly, when you 
press the menu button over the keyword for a string item, a menu of character strings is 
displayed. Choosing one of the items (strings) from the menu appends the menu string at 
the current position of the type-in point. Enumerated items may also be chosen by 
bringing up a menu and selecting the desired item with the mouse. In the first example 
above, the current value becomes highlighted. In the other example, only the current 
value is displayed. 


Boolean items are form items that can have one of two values, either true or false. The 
boolean state of the item is indicated by highlighting. Highlighted means true. Numeric 
items are like string items, except that only strings representing numbers are permitted. 
A " = " is appended to numeric item keywords. Tag items are used to clarify an otherwise 
complicated form subwindow by separating the items along logical divisions and labeling 
them as such. The labels, which are tag items, do not correspond to any user-input actions, 
but instead serve to annotate the form. 

The ItemObject is the fundamental data structure of the form subwindow interface; types 
and PROCEDURES in FormSW provide mechanisms for defining and manipulating them. 
Readers not familiar with the form subwindow interface are advised first to carefully 
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study ExampleTool . bed, found in Appendix A, and then to examine FormSW.ItemObject 
before learning about other types and procedures in this interface. 

The client constructs a form subwindow by specifying an array of form-item handles. Each 
handle points to an item; each item is a variant record containing a pointer to the tool's 
internal data that will be displayed and altered. The elements of the item handle array 
point to objects that contain information about how and where the corresponding form 
item should be displayed in the form subwindow. An item object may also contain 
notification procedures that are called by the form subwindow interface to inform the 
client of events affecting that item. 



The client’s items are displayed in a subwindow; the user can alter them at any time 
unless explicitly prohibited by the client. The form subwindow interface supplies 
procedures to display, select, or alter any of these items. 

Clients of this interface should keep in mind that forms cannot be arbitrarily large because of sizable storage 
requirements. The fixed overhead in heap usage per form item is 23 words (broken down as follows: 4 words for 
the item record, 2 words for the handle, 8 words for the item’s TextSource plus 1 word for heap overhead, and 9 
words for the item’s TextDisplay Object), The variable overhead is due to the STRINGS associated with an item 
(the tag, for example), line tables associated with multidine items, and the variant part of the item record. 

It is important to distinguish between the user actions of choice and selection: the user is 
said to select an item (or part of an item) if that action changes the current selection; 
otherwise the user is said to make a choice of (or in) the item. It is not always possible to 
distinguish between the two cases by simply looking at the display-marking actions. 


12.1 Types 


13-2 


FormSw.BooleanHandle; type = long pointer to boolean FormswJternObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. There is no special trailer appended to the tag for boolean parameter items . When 
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the user chooses a boolean parameter item, the tag is inverted on the display, the sense of 
the BOOLEAN pointed to by switch is inverted, and then the supplied client proc is invoked. 
(See also NopNotifyProc and BooleanChoices.) 

switch is a long pointer to boolean provided so that the client can access the boolean 
without necessarily accessing the ItemObject. The boolean must occupy its own 
word in memory. This can be achieved by allocating the boolean in the client’s 
global frame (but not in a RECORD in the global frame unless it is a machine 
DEPENDENT RECORD and the BOOLEAN is Specified to occupy a word) or by using the 
overlaid variant FormSW.WordBoolean. Using the overlaid variant is clumsy and 
should be avoided. 

proc is called every time the user changes the boolean. 

FormSW.CIientltemsProcType:TYPE = procedure [ 

sw: Window. Handle] returns [items: FormSw.lternDescriptor.freeDesc: boolean]; 

The ClientItemsProcType procedure is called when the form subwindow package needs to 
create the form subwindow, usually when the enclosing tool window is created or made 
active. The procedure returns the ItemDescriptor that describes the contents of the form 
subwindow. If freeDesc is true, then the ItemDescriptor has been allocated from the 
system heap and the form sub window package frees it when the sub window is destroyed 
(usually when the enclosing tool window is deactivated). If freeDesc is false, the 
ItemDescriptor is not deallocated, and the management of its storage is the client’s 
responsibility. 

ForrnSw.CommandHandleiTYPE = long pointer to command FormSW.IternObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. For command parameter items the character ”!” is appended to the tag to remind 
the user that this is a command item. User choice of this type of parameter item causes 
invocation of the supplied client proc to be invoked like menu-command choice. (See also 

NopNotifyProc.) 

FormSW.EnurneratediTYPE = record [string: long string, value: unspecified]; 

This type is used to specify the representation of an element of an enumerated item in an 
enumerated ItemObject. The element displayed as string has the value value associated 
with it. (See also EnumeratedHandle and EnumeratedDescriptor.) 

ForrnSW.EnumeratedDescriptor: type = 

long descriptor for array of Formsw.Enumerated; 

An EnumeratedDescriptor lists the possible values of an enumerated item. (See also 
EnumeratedHandle and EnumeratedDescriptor.) 

FormSw.EnumeratedFeedback: TYPE = {all, one}; 

This type specifies whether to display all or one of the enumerated ItemObjects. (See also 
EnumeratedHandle.) Examples of the two forms of feedback are: 
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all The item displays as **tag: {a, b, c}”. Choosing an item within the curly brackets 
video-inverts that item. 

one The item displays as 'Tag: {a}”. Depressing the menu mouse button displays the set of 
strings available for choice. Choosing an item causes it to be displayed. 

FormSw.EnurneratedHandle: type = long pointer to enumerated FormSw.ltemObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. For enumerated parameter items the special trailer f* is appended to the tag. In 
addition, a **}” is appended at the end of the item's display representation. When the user 
modifies this type of parameter item, the display is updated according to the value of 
feedback, the unspecified pointed to by value is updated to match the display, and then the 
supplied client proc is invoked. (See also NopEnumeratedNotifyProc, BooleanChoices. 
and nullEnumeratedValue.) 

choices For both forms of feedback, all or one, the items available for choice are 

those STRINGS supplied by the client in the choices. When the string from 
one of the choices is chosen, the corresponding value from the Enumerated 
is stored into ItemObject.value t. Depressing the menu mouse button 
displays the set of strings available for choice. 

value This field is a pointer to unspecified so that the client need not have access 

to the ItemObject in order to have access to the unspecified. This introduces 
the same word-alignment problems that occur with the boolean 
ItemObject’s switch, and the same solutions and caveats apply here, value 
points to an UNSPECIFIED so that its possible values can be from any t3rpe 
(usually an enumeration). 

proc This field is a procedure that is called whenever the user changes value. 

(See also NopEnumeratedNotifyProc.) 

copyChoices This field indicates whether the client's choices were copied into the 
system heap and can be freed to the system heap automatically by 

FormSW. 

FormSw.EnumeratedNotifyProcType:TYPE = procedure [ 
sw: window.Handle nil, item: FormSW.ItemHandle ^ nil, 
index: cardinal ^ Formsw.nullindex, oldValue: 

UNSPECIFIED FormSw.nullEnurneratedValue]; 

A EnumeratedNotifyProcType is called whenever the user changes the corresponding 
enumerated item in a form subwindow, sw is the subwindow containing the item, item is 
the ItemHandle of the enumerated item, index is the index of the item in the 
ItemDescriptor for the subwindow. oldValue is the value of the enumerated item before 
the user changed it. (See also EnumeratedHandle.) 
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FormSW.FilterProcType: type = procedure[ 

sw: Window. Handle, item; FormSw.ltemHandle, insert: cardinal, 
string: long string]; 

A FilterProcType is called to permit a client to perform editing operations on a string 
ItemObject. sw is the subwindow containing the item, item is the ItemHandle of the 
enumerated item, string, which may be nil, contains the characters to edit into the 
backing-store string at position insert. The zero position is defined to be the left of the first 
character of the string. (See also StringHandle.) 

FormSw.Flag: TYPE = {clientOwnsItem, drawBox, hasContext, invisible, readonly}; 

Flag defines the types of state bits maintained for a form subwindow item. (See also 

ItemFlags.) 

FormSW.FreeHintSPrOCType:TYPE = PROCEDURE[FormSW.Hints]; 

A FreeHintsProcType is called to free the Hints in a string ItemObject, allowing the Hints 
to be somewhere other than in the client’s global frame. 

FormSW.HintS: TYPE = LONG DESCRIPTOR FOR ARRAY OF LONG STRING; 


Hints is a set of strings that is available to the user in a menu to suggest possible strings 
for use when editing a string ItemObject. (See also StringHandle.) 

FormSW.IternFlagS: TYPE = RECORD [ 
readonly: boolean false, 
invisible: boolean 4- false, 
drawBox: boolean false, 
hasContext: boolean false, 
clientOwnsItem: boolean false, 

modified: boolean false]; 


ItemFlags is a record of state bits for an item in a form subwindow. The meaning of the 
flags is as follows: 


readonly 


invisible 


drawBox 


If this flag is TRUE, the user cannot modify this parameter. If any 
modification is attempted, the readOnlyNotifyProc for this subwindow 
is called. 

If this flag is true, the item is not displayed in the subwindow, and it is 
treated by form subwindows exactly as if it were not present, except 
that it is occupying an index slot. 

If this flag is TRUE, the item is displayed enclosed within a box that is 
one bit thick. 


hasContext If this flag is true, a client context two words long is associated with 

the item. This context serves the same function as a client context 
associated with a subwindow. However, unlike Context, FormSW 
returns a pointer to the client data words, not the value of the data 
words. (See alsoContextFromItem.) 
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clientOwnsItem If this flag is true, the form subwindow will not try to de-allocate the 
item if the subwindow is destroyed. This flag is usually false, meaning 
that the client does not need to be concerned with storage allocation 
and de allocation. Instead, the form subwindow "owns" the storage and 
is responsible for maintaining it. 

modified The modified flag is set when an item on the form subwindow has been 

modified. See the FormSW.SetModifyNotification procedure for setting a 
notificiation procedure on this flag. 

FormSw.lternHandle: TYPE = long pointer to FormSw.ltemObject; 

FormSW.ItemObject; TYPE = RECORD [ 

tag: long string. 

place: window.Place, 

flags: FormSw.ltemFlags, 

body: select type: FormSW.ItemType from 

boolean s > [ 

switch: LONG POINTER TO boolean, 
proc: FormSW.NotifyProcTypel, 
command * > [proc: FormSW.ProcType], 
enumerated s > [ 

feedback: Formsw.EnurneratedFeedback, 
copyChoices: boolean, 
value: long pointer to unspecified, 
proc: Form sw.EnumeratedNotifyProcType, 
choices: Formsw.EnumeratedOescri ptor], 
longNumber s > [ 

signed, notNegative: boolean, 
radix: FormSW.Radix, 
boxWidth: cardinal [0..256), 
proc: FormSW.LongNumberNotifyProcType, 
default: long unspecified, 
value: long pointer to long unspecified, 
string: long string, bias: integer}, 
number » > [ 

signed, notNegative: boolean, 
radix: FormSW.Radix, 
boxWidth: cardinal [0..128), 
proc: FormSW.NumberNotifyProcType, 
default: unspecified, 
value: long pointer to unspecified, 
string: long string, bias: integer], 
source s > [ 

source: TextSource.Handle, 
boxWidth: cardinal, 
filterProc: FormSW.FilterProcType, 
menuProc: FormSW.MenuProcType], 
string = > [ 

feedback: Formsw.StringFeedback, 

inHeap: boolean, 

string: long pointer TO long string. 
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boxWidth: cardinal, 
fiIterProc: Formsw.FiIterProcType, 
menuProc: FormSW.MenuProcType], 
tagOnly s > [sw: WindowiHandle, otherltem: cardinal], 
endcase]; 

The ItemObject is complex so that it can provide sufficient flexibility for the tool writer 
who wants fine control over displaying and altering items. Most clients should not 
explicitly construct an ItemObject, but should instead use the procedures that allocate an 
ItemObject and take advantage of default values. In FormSW procedure types, the 
argument is called item if it is an ItemHandle and items if it is an ItemDescriptor. Note that 
DESCRIPTOR FOR ARRAY is implicitly a DESCRIPTOR FOR ARRAY [ 0 .. 0 ). Trying to index an ItemDescriptor by 
an enumerated type results in a compilation error. Instead of indexing by an enumerated type, the procedure 
Findindex should be used to get the desired index. 


Only the common fields of the ItemObject are described here. For a description of the fields 
of each variant part, see the descriptions of the corresponding handles (BooleanHandle, 
CommandHandle, EnumeratedHandle, LabelHandle, LongNumberHandle, 
NumberHandle, SourceHandle, StringHandle, and TagOnlyHandle). 

tag is a client-supplied string that is displayed immediately preceding the data 
associated with the parameter (e.g., "tag: string"). It may be nil, in which case any 
trailer characters that are usually displayed after the tag will be suppressed (e.g., 

f». 

place is used only if the type field of the subwindow option has the value fixed; 
otherwise it is ignored, place is the x,y position (subwindow relative) where the tag 
and data are to be displayed. The array of item pointers is required to have the 
places in ascending (English-reading) order; i.e., left to right, top to bottom. If the 
position is negative, it is treated as a relative offset, where the magnitude of x 
specifies the number of bits to leave between the end of the preceding item and the 
start of the tag for this item. The use of a negative x following a string or number 
item that uses defaultBoxWidth results in the error ltemError[illegalCoordinate, 
i], where i is the index of the offending item. Negative y positions are also 
interpreted specially. They are line positions; i.e., they specify position as a 
multiple of the line height for the subwindow. The constants lineO through Iine9 
can be used as y values to specify that the item should be on the zero through ninth 
lines in the subwindow. (See also the procedure LineHeight, LineN, SetTagPlaces 
and the constants newLine, nextLine, nextPlace, and sameLine.) 

flags is a record of state bits for the item. (See ItemFlags for the meaning of the flags.) 

ForrnSw.ltemType: type = { 

boolean, command, enumerated, longNumber, number, source, string, tagOnly}; 
ItemType defines the different types of form subwindow items supported by FormSW. 
FormSW.Labe!Handle:TYPE = FormSW.TagOnlyHandle; 

One use of a tagOnly item type is to act as a label for some part of the form. For example, a 
form might consist of two parts, one for specifying input parameters and the other for 
output parameters. The client could distinguish the individual items by prefixing their 
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tags with ’’Input-** or ’’Output-”, or two sets of items could have the same tags but be 
preceded by a labeling line consisting of an item whose tag was ’’Input parameters” or 
’’Output parameters.” (See also TagOnlyHandle.) 

sw This is the form subwindow that contains the item. It is automatically set by 

Create; clients should ignore it. 

otherltem This is the index of the other item for which this item is acting as a tag. For 
labels, otherltem should be nullindex. 

FormSW.LongNurnberHandle: type = 

LONG POINTER TO longNumber FormSw.ItemObject; 

The number and longNumber item types are for specifying numeric form items and are 
very similar, with only a few exceptions. See the description of ItemObject for the 
definitions of the common fields of the ItemObject record. The longNumber parameter 
item differs in the following ways: boxWidth must be larger; value points to a LONG 
UNSPECIFIED instead of an unspecified; default is a long unspecified instead of an unspecified; 
and proc takes a long unspecified instead of an unspecified for the old value. Refer to 
FormSW.NumberHandle for an explanation of the fields in the longNumber variant. (See 
also NopLongNumberNotifyProc.) 

FormSw.LongNurnberNotifyProcType-.TYPE = procedure [ 
sw: Window. Handle nil, item: FormSw.ltemHandle ^nil, 
index: cardinal Formsw.nullindex, oldValue: long unspecified ^ last[integer]]; 

A LongNumberNotifyProcType is called each time the user edits a longNumber 
ItemObject. sw is the subwindow containing the item, item is the ItemHandle of the 
longNumber item, index is the index of the item in the ItemDescriptor for the subwindow. 
oldValue is the value of the longNumber item before it was changed by the user. (See also 

LongNumberHandle.) 

FormSW.MenuProcType: type procedure [sw: window.Handle, index: cardinal] 

RETURNS [hints: FormSw.Hints,freeHintsProc: FormSW.FreeHintsProcType, 
replace: boolean]; 

A MenuProcType procedure is associated with a string ItemObject. It is called whenever 
the user selects the string item with the menu button. This gives the client the 
opportunity to supply a list of strings to be displayed in a menu, sw is the subwindow 
containing the item, item is the ItemHandle of the string item. The MenuProcType 
procedure returns the information needed for the menu. If replace is false, the menu item 
will be inserted into the item’s string when the user chooses it, just as if the user had typed 
the menu string. If BASE[hintsi = nil, no prompt menu will be available.freeHintsProc is 
called to free the hints, allowing the hints to be somewhere other than in the client’s global 
frame. (See also InHeapFreeHintsProc, NopFreeHintsProc, VanillaMenuProc and 
StringHandle.) 

FormSW.NotifyProcType: type = FormSW.ProcType; 
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A NotifyProcType procedure is called whenever a client changes a boolean item, sw is the 
subwindow containing the item, item is the ItemHandle of the boolean item, index is the 
index of the item in the ItemDescriptor for the subwindow. 

ForrnSW.NumberHandle: TYPE = long pointer to number FormSW.ItemObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. For number (and longNumber) parameter items the special trailer *’= *’ is 
appended to the tag. The user can select and edit a number (or longNumber) item just like 
a string item, and the client can also exercise control over its alteration and display. 

signed FormSW needs to know whether to treat the value as a signed number (i.e., 

INTEGER). It is treated as a cardinal if signed is false. 

notNegative The user is permitted to enter negative values if notNegative is false. 

radix If the user does not provide a specific radix (*D for decimal or *B for octal) 

when he enters or modifies the item, then the radix is assumed to be 10 if 
radix is decimal, 8 if radix is octal. 

boxWidth This is added to the tag’s width (including the supplied trailer) to 
determine the width of the box in which the number is displayed. If the 
special value defaultBoxWidth is used, then the box will extend to the 
right edge of the subwindow or to the next item, whichever is closer. 

proc The client’s proc is called after each user edit to the item. (See also 

NumberNotifyProc and NopNumberNotifyProc). 

default The user might not want to enter any value for the item. In this case, the 

value is forced to default. 

value is a long pointer to unspecified so that the client need not have access to the 

ItemObject in order to have access to the unspecified. FormSW assumes that 
the UNSPECIFIED occupies a full word; hence it should not be declared by the 
client to be a subrange of cardinal or integer, value points to an unspecified 
so that it can be either a cardinal or an integer. 

String is the string representation of valued- string is always convertible to 

value t unless it is empty, in which case value t will be default. 

bias is the difference between the displayed number and value (Displayed 

number -h bias = value f .) 

Forms W.OptionS: TYPE = RECORD ( 
type: FormSW.Type ^fixed, 
boldTags: boolean f- true, 
autoScroll: boolean ^true, 
scroll Vertical: boolean ^ true]; 

Options are associated with a form subwindow to control certain formatting aspects of the 
window. 
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type If type is fixed, then the client specifies the layout of items in the 

window; that is, the place field of each ItemObject specifies the location of 
the item in the window. If type is relative, then the place field of the 
ItemObjects is ignored and FormSW decides where to locate each item in 
the window. 

boldlags If boldTags is true, then all tags aredisplayed in a bold font. If boldTags 

is FALSE, all tags are displayed normally. 

autoScroll If autoScroll is true, then when editing an item would cause it to 
disappear from the bottom of the window, the window is automatically 
scrolled so that the item remains visible. If autoScroll is false, no such 
automatic scrolling is done. 

scrollVertical If scrollVertical is true, then the user is permitted to scroll the 
subwindow. If scrollVertical is false, the user is not permitted to scroll it. 

FormSW.PrOcType:TYPE = PROCEDURE [ 

sw: window.Handle ^NiL, item: FormSw.ltemHandle ^nil, 
index: cardinal Formsw.nulllndexj; 

A ProcType procedure is called whenever a client issues a command, sw is the sub window 
containing the item, item is the ItemHandle of the command item, index is the index of the 
item in the ItemDescriptor for the subwindow. 

FormSw.Radix:TYPE = {decimal. Octal}; 

In number ItemObjects and longNumber ItemObjects, if the user does not provide a 
specific radix (’D for decimal or *B for octal) when he enters or modifies the item, then the 
radix is assumed to be 10 if radix is decimal, 8 if radix is octal. 

FormSW.ReadOnlyProcType: type = FormSW.ProcType; 

A ReadOnlyProcType procedure is called whenever a client tries to edit a read-only item, 
sw is the subwindow containing the item, item is the ItemHandle of the item, index is the 
index of the item in the ItemDescriptor for the sub window. 

FormSw.SourceHandle: type = long pointer to source FormSw.lternObject; 

Not implemented. 

FormSW.StringFeedbackiTYPE = {normal, password}; 

This type controls the style of feedback for string ItemObjects. 

normal the characters themselves are to be displayed. 

password a is displayed in place of each character. 

FormSW.StringHandle: type = long pointer to string FormSw.lternObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. For string parameter items, the characters ” are appended to the tag to indicatie 
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that this is a string item. String items give the tool writer explicit control over the 
alteration of the supplied string and how it is to be displayed. The tool-supplied procedures 
are called whenever characters are to be added to the string. 

inHeap If this boolean is true, the Tajo StringEditProc dynamically allocates and de¬ 
allocates the backing string from the system heap. 

string This is a long pointer to long string that contains the characters entered by 
the user. The level of indirection is provided so that the original string may be 
replaced. 

feedback The characters of string are displayed on the screen as text unless feedback is 
password, in which case a ***** is printed in place of each character of string, 

boxWidth This is added to the tag*s width (including the supplied trailer) to determine 
the width of the box in which the LONG STRING is displayed. If the special value 
defaultBoxWidth is used, then the box extends to the right edge of the 
subwindow or to the next item, whichever is closer. 

filterProc The client*s filterProc is called whenever the user inputs characters to a 
selected string item, string, which may be nil, contains the characters to edit 
into the backing-store string at position insert. The backing-store 
modification is performed by calling StringEditProc. By interposing a 
filterProc between the user and StringEditProc, FormSW can optimize the 
display updating and maintain the consistency of selection and insert. (See 
also StringEditProc.) 

menuProc The client*s menuProc is called whenever the user selects the string item with 
the menu button. This gives the client the opportunity to supply a list of 
strings to be displayed in a menu. (See also MenuProcType and 
VanillaMenuProc.) 

FormSW.TagOnlyHandle: type = long pointer to tagOnly FormSw.lternObject; 

See the description of ItemObject for the definitions of the common fields of the ItemObject 
record. One use of a tagOnly ItemObject is to substitute for the tag of a string item. This is 
useful when the client wishes to present the illusion that the tag for an item is not on the 
same line as the item's body. (See also LabelHandle.) 

sw This is the form subwindow that contains the item. It is automatically set by 

Create; clients should ignore it. 

Otherltem This is the index of the other item for which this item is acting as a tag. For a 
TagOnlyHandie, it must be the index of a string item (otherwise the error 
ltemError[notStringOtherltem, i] will be generated by Create, where i is the 
index of the tagOnly item). 

To allow a tagOnly to act as a substitute tag, no special trailer is appended to the tag. 
When a tagOnly item is used as a substitute tag, all of the user actions directed at its tag 
are redirected by FormSW to the otherltem. Because of this redirection, the notification 
procedures of the target string item are called with arguments identical to those provided 
by FormSW when the string item's tag is operated on by the user. 
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FormSW.Type; TYPE = {fixed, relative}; 

Type indicates whether the client controls the formatting of a form subwindow or whether 
FormSW automatically formats the window. 

fixed The client specifies the location of each item in the form subwindow by 
specifying the place field of the ItemObjects. 

relative FormSW arranges the items in the window automatically. 

FormSW.WordBOOlean: type = record (select overlaid * FROM 
f1 = > [b; boolean], 
f2 = > [w; word], 

ENDCASE); 

WordBoolean is an overlaid variant record provided for forcing a boolean to occupy its 
own word in memory. This is a requirement of any boolean to be used with a boolean 
ItemObject. 

13.2 Constants and data objects 

FormSW.defaultBoxWidth; CARDINAL 0; 

defaultBoxWidth indicates that the display box of an item should extend to the right edge 
of a subwindow or to the next item, whichever is closer. 

FormSWV.IineDiff; private INTEGER = -1; 

FormSW.IineO: INTEGER = -3; 

FormSW.Iinel; INTEGER = FormSW.IineO * FormSW.IineDiff; 

FormSW.Iine2: INTEGER = FormSW.Iinel + FormSW.IineDiff; 

FormSW.IineS: INTEGER ^ FormSW.Iine2 + FormSW.IineDiff; 

FormSW.Iine4: INTEGER = FormSW.IineS -F FormSW.IineDiff; 

FormSW.IineS: INTEGER = FormSW.Iine4 + FormSW.IineDiff; 

FormSW.IineS: INTEGER = FormSW.IineS + FormSW.IineDiff; 

FormSW.Iine7: INTEGER = FormSW.IineS + FormSW.IineDiff; 

FormSW.IineS: INTEGER » FormSW.Iine? + FormSW.IineDiff; 

FormSW.IineS: INTEGER = FormSW.IineS * FormSW.IineDiff; 

Formsw.newLine: window.Place = [0, FormSw.nextUne]; 

newLine specifies that this item should start on the next line down from the preceding 
item. It works even if there is no preceding item. 
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FormSW.nextLine: INTEGER = -2; 

nextLine specifies that the y position for an item should be the next line after the y 
position of the preceding item. 

FormSw.nextPlace: Window. Place =: [-10, FormSw.sarneLine]; 

nextPlace specifies that this item should be on the same line as the preceding one, and 
should start a little past where the previous one left off. This is subject to all of the caveats 
mentioned for negative x*s in the discussion of places. 

FormSw.nullEnumeratedValue: unspecified = last[cardinal]; 

An enumerated value can never have an unknown value (unless the client is not playing 
by the rules). The value given to an enumerated value when no value is chosen is 
nullEnumeratedValue. If an enumerated value has nullEnumeratedValue, the display of 
the item has nothing between the braces (for one feedback) or nothing selected (for all 
feedback). (See also EnumeratedHandle.) 

Formsw.nullindex: CARDINAL =: LAST[CARDINAL]; 

nullindex is used as an index in SetSelection or SetTypeIn when the client wants nothing 
selected or wants no insert point. 

Formsw.nulllterns: Formsw.lternDescriptor = descriptor[long[nil],0]; 

FormSW.sameLine: integer = -1; 

sameLine specifies that the y position for this item should be the same as the y position for 
the preceding item. If this is the first item, the ERROR ltemError[illegalCoordinate, —] 
results. 

13*3 Signals and errors 

FormSW.ErrOr: SIGNAL [code: FormSW.ErrorCode]; 

FormSW.ErrorCode:TYPE = {alreadyAFormSW, notAFormSW, other}; 

alreadyAFormSW a client has passed a form subwindow to the Create procedure. 

notAFormSW a client has passed a subwindow that is not a form subwindow to the 

Destroy procedure. 

Other should never be raised. 

FormSW.IternError: signal [code: FormSw.ltemErrorCode, index: cardinal]; 

The index argument to ItemError is the index of the item that FormSW was processing 
when it discovered the error condition. 

FormSw.lternErrorCode: type = { 

illegalCoordinate, notStringOtherltem, nilBackingStore, other}; 
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illegaiCoordinate 


notStringOtherltem 
nilBackingStore 

other 

13.4 Procedures 

FormSW.Adjust; Tooiwindow.AdjustProcIype; 

The Adjust procedure adjusts a subwindow if it is necessary to move the subwindow within 
the parent window or to change its size. 

FormSw.AllocatelternDescriptor: procedure t 
nitems; cardinal, z:uncounted zones <-nil] 

RETURNS [Forrnsw.ltemDescriptor]; 

The AlIocateltemDescriptor procedure allocates an ItemDescriptor for the nitem number 
of items from z. z is defaulted to the system heap. 

FormSW.BooleanChoices: procedure returns [FormSW.EnumeratedDescriptor]: 

The procedure BooleanChoices permits a tool to display a boolean choice without using 
the boolean ItemObject's display conventions. It provides the EnumeratedDescriptor to be 
used in an enumerated ItemObject to display the enumerated values true and false. 

Formsw.Booleanltern: procedure [ 
tag: long string <- nil, 

readonly, invisible, drawBox, hasContext: boolean <-false, 
place: window.Place <- FormSw.nextPlace, 
proc: FormSW.NotifyProcType <- FormSW.NopNotifyProc, 
switch: LONG POINTER TO BOOLEAN, 
z: UNCOUNTED ZONES <-NIL] 

RETURNS [FormSw.BooleanHandle]; 

The procedure Booleanitem allocates a record of type boolean ItemObject from z. z is 
defaulted to the system heap. Such an item has a false clientOwnsItem. It occupies a node 
large enough only for a boolean ItemObject, not for any ItemObject. For a discussion of 
the parameters, see BooleanHandle. 


the client has made a error in specifying the layout of items in the 
form subwindow, such as not presenting the items in ascending 
order. Either an index has been skipped or the items are not 
ordered left to right, top to bottom. Another layout error is 
specifying a relative position for the first visible item in the 
subwindow, either using sameLine or a relative (negative) x value. 
Another layout error is specifying a relative (negative) x value for 
the item after an item that uses defaultBoxWidth. 

is raised if a tagOnly item refers to an item that is not a string 
item. 

is raised if NIL has been passed as the pointer to the backing object 

for a boolean, enumerated, longNumber, number, or string item. 

should never be raised. 
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ForrnSw.Commandltem: procedure ( 
tag: long string ^ nil, 

readonly, invisible, drawBox, hasContext: boolean false, 
place: window.Place ^FormSw.nextPlace, proc: FormSW.ProcType, 
z: uncounted zones <-nil] 

RETURNS [FormSw.ComrnandHandle]; 

The procedure Commanditem allocates a record of type command ItemObject from z. z is 
defaulted to the system heap. Such an item has a false clientOwnsItem. It occupies a node 
large enough only for a command ItemObject, not for any ItemObject. For a discussion of 
the parameters, see CommandHandle. 

ForrnSw.ContextFromltem: procedure [FormSw.lternHandle] returns [long pointer]; 

The procedure ContextFromItem returns a pointer to the client data associated with an 
item. 

Formsw.Create: procedure [ 

sw: Window. Handle, clientItemsProc: FormSw.ClientItemsProcType, 

readOnlyNotifyProc: FormSw.ReadOnlyProcType FormSW.IgnoreReadOnlyProc, 

options: FormSW.Options ^ [], 

initialState: Tooiwindow.State active]; 

zone: UNCOUNTED ZONE Heap.systemZone ]; 

The procedure Create creates a form subwindow. It can raise the errors 
Error[al ready AFormSW], and ItemErrorf..., nilBackingStore, illegalCoordinate, 
notStringOtherltem,...]. 

sw is the subwindow that is transformed into a form subwindow. If the 

subwindow is already a form subwindow, the error 

Error[alreadyAFormSW] results. 

clientItemsProc is called to get the items. If the ItemDescriptor was manufactured 

from the system heap, which can be done by calling 

AllocateltemDescriptor, then the client can have FormSW free it 
by returning a TRUE f reeDesc. 

readOnlyNotifyProc is called whenever the user attempts to modify an item with a true 
readonly flag. (See also IgnoreReadOnlyProc and 

NopReadOnlyProc). 

options If a type = relative, then where and how the items and their 

associated data are displayed is automatically determined by the 
form subwindow.. If the client specifies a type of fixed, it must 
designate a subwindow place for each item to be displayed. It is the 
client's responsibility to avoid overlapping or overwriting items 
and their data. If scrollVertical is TRUE, a vertical scrollbar is 
provided. [Note: In the relative case the parameter items are simply displayed 
one per line. This implies that the height of a subwindow that would contain all of 
your parameters is = n *LineHeightn.l 


13-15 




13 


FormSW 


initialState determines whether the form subwindow is awake when created. If 

initialState is not active, then the form subwindow is asleep. If 
initialState is active, then the clientItemsProc is called while still 
in Create. 

zone A heap can be passed to the Create procedure, from which storage 

will be allocated. The default heap is the system heap. 

FormSw.Destroy: procedure [window. Handle]; 

The Destroy procedure transforms a form subwindow back into an undifferentiated 
subwindow. If it is not currently a form subwindow, the ERROR Error[notAFormSW] results. 
(See also Isit.) 

FormSw.Display: procedure [w: window.Handle, yOffset: cardinal <-0]; 

The Display procedure allows a tool to redisplay the contents of the subwindow. Note that 
Display allows the tool to scroll, or unscroll, the items before the redisplay via the yOffset, 
which specifies the number of bits to offset the items upward. 

FormSW.Displayltem: procedure [sw: window.Handle, index: cardinal]; 

The Displayltem procedure is provided to allow a tool to redisplay the contents of an 
individual item. Redisplaying a single item may cause other items to also be redisplayed. 
Displayltem must be called immediately if the client changes any of the flags that affect 
the way the item is displayed or if the client changes the backing store for the item. Such 
changes are not safe in an arbitrary pre-emption environment, as there is a potential race condition. (See also 

ModifyEditable and ToggleVisibility.) 

Forrnsw.Enumeratedltem: procedure [ 
tag: long string <- nil, 

readonly, invisible, drawBox, hasContext: boolean *- false, 
place: window.Place «-Formsw.nextPlace, 
feedback: FormSW.EnurneratedFeedback <-one, 

proc: ForrnSW.EnumeratedNotifyProcType «- FormSw.NopEnumeratedNotifyProc, 
copyChoices: boolean «-true, choices: Formsw.EnurneratedDescriptor, 
value: long pointer to unspecified. 

z: UNCOUNTED ZONES <- NIL] 

RETURNS [FormSW.EnumeratedHandle]; 

The procedure Enumerateditem allocates a record of type enumerated ItemObject from z. 
z is defaulted to the system heap. Such an item has a false clientOwnsItem. It occupies a 
node large enough only for an enumerated ItemObject, not for any ItemObject. The 
parameters are used to initialize the ItemObject. For a discussion of their meaning, see 

EnumeratedHandle. 

FormSw.FindIndex: procedure [sw: window.Handle, item: Formsw.lternHandle] returns 
[cardinal]; 

FormSW assumes that there is a unique mapping between an item and an index into the 
ItemDescriptor for each subwindow. Given an item, the procedure Findindex finds its 
index. (See also Finditem.) 
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FormSW.Findltern: procedure [ 

sw: window.Handle. index: cardinal] returns [FormSw.ltemHandle]; 

FormSW assumes that there is a unique mapping between an item and an index into the 
ItemDescriptor for each subwindow. Given an index into an ItemDescriptor, the procedure 
Finditem finds its item. If index is too large (that is, does not correspond to an item in the 
subwindow’s ItemDescriptor), Finditem returns nil. (See also Findindex.) 

FormSW.FreeAllltems: procedure [sw: Window.Handle]; 

The procedure FreeAllltems deallocates all the items in a form subwindow. (See Freeltem 
for the semantics of deallocating an item.) Items are freed from the UNCOUNTED ZONE passed 
to the Create procedure. 

ForrnSw.Freeltem: procedure [ 

item: FormSw.ltemHandle, z: uncounted zone nil] returns [FormSw.ltemHandle]; 

The procedure Freeltem deallocates from z an item allocated by FormSW by one of the 
procedures Booleanitem, Commanditem, Enumerateditem, Labelltem, LongNumberltem, 
Numberltem, Stringitem, or TagOnlyltem. z is defaulted to the system heap. 

If item.clientOwnsItem is true, then for each item type, the following actions are taken: 

enumerated If copyChoices is true, the choices are freed. 

longNumber, number The ItemObject.string is freed. 

string If inHeap is true, the ItemObject.string is freed. 

All other types Nothing is freed. 

The client must be very careful when using this procedure. It may deallocate the item that 
contains either the selection or insertion, in which case the client must guarantee there 
will be no references to either. It is considerably safer to deallocate all of the items at once. 
(See FreeAllltems.) 

Formsw.GetSelection: procedure [ 

Window.Handle] returns [index: cardinal, first, last: cardinal]; 

The GetSelection procedure allows a tool to get the currently selected item, index is the 
index of the form item containing the current selection. If nullindex is returned, then 
there is no current selection. The current selection is described using the character 
positions first and last. These positions are relative to a zero origin, which is to the left of 
the first character of the tag (or main body of the item, if there is no tag). The interval is 
half open (i.e., first = last = 0 is an empty selection, and first = 0, last = 1 is a selection 
containing the first character in the item). 

FormSW.GetTypeIn: procedure [ 

Window.Handle] returns [index: cardinal, position: cardinal]; 

The GetTypeIn procedure allows a tool to get the item containing the insert point, position 
indicates the number of characters to the left of the insertion point. This position is 
relative to a zero origin, which is to the left of the first character of the tag (or main body of 


13-17 




13 


FormSW 


the item, if there is no tag), index is the index of the form item containing the insertion 
point. If nullindex is returned, then there is no insertion point. 

FormSW. IgnOreReadOnlyPrOc: FormSW.ReadOnlyProcType; 

The IgnoreReadOnlyProc procedure blinks the display when called. 

FormSW.IndexFromEnumeratedValue: procedure [ 

FormSW.EnurneratedHandle] returns [cardinal]; 

The IndexFromEnumeratedValue procedure returns the index into choices of the current 
value of enumerated ItemObject. 

FormSW.InHeapFreeHintsProc: FormSW.FreeHintsProcType; 

The InHeapFreeHintsProc procedure is a FreeHintsProcType that assumes the hints are 
from the system heap and returns them there. If the hints are not from the system heap, 
then the client should supply its own FreeHintsProc. 

Formsw.lsit: PROCEDURE [sw; window.Handle] returns [yes: boolean]; 

The Isit procedure returns true if sw is a form subwindow and false otherwise. 

Formsw.lslternlnverted: procedure [ 

sw: Window.Handle, index: cardinal] returns [yes: boolean]; 

This procedure is not currently implemented. 

Formsw.Labelltern: procedure [ 
tag: long string nil, 

readonly, invisible, drawBox, hasContext: boolean *- false, 
place: window.Place <- FormSw.nextPlace, 
z: UNCOUNTED ZONE NIL ] 

RETURNS [FormSW.LabelHandle]; 

The procedure Labelltem allocates a record of type tagOnly ItemObject from z. z is 
defaulted to the system heap with has a false clientOwnsItem. It occupies a node large 
enough only for a boolean ItemObject, not for any ItemObject. For a discussion of the 
parameters, see LabelHandle. 

Formsw.LineHeight: procedure [sw: window.Handle nil] returns [cardinal]; 

The height of a line can be determined by calling LineHeight, which accounts for all fudge 
factors added to the fontHeight. The parameter sw is ignored. 

FormSW.LineN: procedure [n: cardinal] returns [integer]; 

The procedure LineN takes a line number and returns the appropriate negative y for use as 
a place parameter. This is helpful for calculating where the next item should be positioned 
in the form subwindow. 


13-18 




Mesa Programmer’s Manual 


13 


ForrnSw.LongNumberltem: procedure [ 
tag: long string «- nil, 

readonly, invisible, drawBox, hasContext: boolean false, 

place: window.Place <- FormSw.nextPlace, 

signed: boolean <-true, notNegative: boolean <-false, 

radix: FormSw.Radix *- decimal, boxWidth: cardinal [0..256) <— 64, 

proc: FormSW.LongNumberNotifyProcType *- 

FormSw.NopLongNumberNotifyProc, 

default: long unspecified *- last[long integer], 

value: long pointer to long unspecified, 

bias: INTEGER <-0.z: UNCOUNTED zone 4-nil] 

RETURNS [ForrnSw.LongNumberHandle]; 

The procedure LongNumberltem allocates a record of type longNumber ItemObject from 
z. z is defaulted to the system heap. clientOwnsItem is defaulted to false. It occupies a 
node large enough only for a longNumber ItemObject. (For a discussion of the parameters, 
see LongNumberHandle.) bias is the difference between what value points to and what is 
displayed. (Displayed number + bias = value f .) 

FormSW.Markltern: procedure [ 

sw: window.Handie, index: cardinal, action: Textoata.MarkingAction, 
mode: Textoata.SelectionMode]; 

This procedure is not currently implemented. 

FormSw.MinHeight: procedure [ 

items: FormSW.ItemDescriptor,type: Formsw.Type] returns [cardinal]; 

The procedure MinHeight returns the minimum height a form subwindow would need to 
display items. The form subwindow that displays items need not exist when this procedure 
is called. (See also NeededHeight). 

FormSW.ModifyBoolean: procedure [ 

sw: Window.Handie, index: cardinal, mark: boolean, notify: boolean]; 

This procedure is not currently implemented. 

ForrnSw.ModifyCommand: procedure [ 

sw: Window.Handie, index: cardinal, mark: boolean, notify: boolean]; 

This procedure is not currently implemented. 

FormSW.ModifyEditable: procedure [ 

sw: Window.Handie, index: cardinal, position, length: cardinal, 
new: long string <- nil, keepTrash: boolean false]; 

The best way to modify the backing store of an editable item (i.e., one of type string, 
number, or longNumber) is to call ModifyEditable, which changes the backing store and 
the display as little and as quickly as possible, position is the left end of the text in the 
item's body that is to be changed. The zero position is to the left of the first character of the 
main body of the item. If new is nil, then the modification is a deletion; otherwise, if 
length is 0, it is an insertion. If length is non-zero, the modification is a replacement. In all 
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cases, the removed characters are discarded unless keepTrash is true, in which case they 
become the current contents of the global trash bin. (See the Selection interface for a 
discussion of the trash bin.) The item to be modified cannot be readonly. 

ForrnSW.ModifyEnumerated: procedure [ 

sw: window.Handle, index: cardinal, mark: boolean, notify: boolean, newValue: 
unspecified]; 

This procedure is not currently implemented. 

FormSW.NeededHeight: procedure [ 

Window.Handle] returns [min, current: cardinal]; 

A tool often needs to know how high a form subwindow should be to display all items. 
There are two heights of interest; the minimum height for the subwindow is the height if 
none of the textual item types (i.e., longNumber, number, string, source) overflow a single 
line; the current height is the true height of the subwindow, accounting for overflowing 
items. These are returned by NeededHeight as min and current, respectively. 
NeededHeight requires that the form subwindow already exist. (See also MinHeight.) 

FormSw.NopEnumeratedNotifyProc: FormSW.EnumeratedNotifyProcType; 

NopNotifyProc is a EnumeratedNotifyProcType that does nothing when called. 

FormSW.NopFreeHintsProc: FormSW.FreeHintsProcType; 

NopFreeHintsProc is a FreeHintsProcType that does nothing when called. It is appropriate 
if the hints are in the client's global frame. 

ForrnSW.NopLongNumberNotifyProc: FormSW.LongNumberNotifyProcType; 

NopLongNumberNotifyProc is a LongNumberNotifyProcType that does nothing when 
called. 

FormSW.NopNotifyProc: FormSW.NotifyProcType; 

NopNotifyProc is a NotifyProcType that does nothing when called. 

FormSW.NopNumberNotifyProc: FormSW.NumberNotifyProcType; 

NopNumberNotifyProc is a NumberNotifyProcType that does nothing when called. 

FormSW.NopReadOnlyProc: FormSW.ReadOnlyProcType; 

NopReadOnlyProc is a ReadOnlyProcType that does nothing when called. 

Fonnsw.Numberltem: procedure [ 
tag:'LONG string <- nil, 

readonly, invisible, drawBox, hasContext: boolean <- false, 
place: window.Place <-FormSw.nextPlace, signed: boolean <-true, 
notNegative: boolean <- false, radix: Formsw.Radix <-decimal, 
boxWidth: cardinal [0..128) <- 64, 

proc: FormSW.NumberNotifyProcType «-FormSW.NopNumberNotifyProc, 
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default: unspecified last[integer], value: long pointer to unspecified, 
bias : integer ^ 0, z: uncounted zone ^ nil] 

RETURNS [ForrnSW.NumberHandle]; 

The procedure Numberltem allocates a record of type number ItemObject from z. z is 
defaulted to the system heap. clientOwnsItem is set to false. It occupies a node large 
enough only for a number ItemObject. (For a discussion of the parameters, see 
NumberHandle.) bias is the difference between what value points to and what is 
displayed. (Displayed number + bias = value |.) 

FormSw.Redisplayltern: procedure [ 

sw: Window. Handle, index: cardinal, sameSize: boolean]; 

This procedure is not currently implemented. 

FormSW.SetCurrent: procedure [$w: window.Handle, index: cardinal]; 

The SetCurrent procedure is equivalent to SetSelection, with first and last selecting the 
non-tag and trailer portion of the item. It also places the insert point at the item’s end. 

FormSW.SetlVIodifyNotificationProc: procedure [ 
sw: Window. Handle, proc: FormSw.ProcType]; 

The SetModifyNotificationProc allows the client to have a procedure that is called when 
the form subwindow has been modified. The procedure Proc should reset the modified bit 
by calling FormSW.ToggleFlag [modified]. 

FormSw.SetOptions; procedure [sw: window.Handle, options: FormSw.Options]; 

The procedure SetOptions changes the current Options for the subwindow sw. 

FormSW.SetSelection: PROCEDURE [ 

sw: Window.Handle, index: cardinal, first, last: cardinal]; 

The procedure SetSelection allows a tool to set the current selection to one of the items in 
the form subwindow. (See the Selection interface for a discussion of the current selection.) 
This procedure should be used judiciously to avoid pre-empting the user, index is the index 
of the form item containing the current selection, nulllndex is used as an index when the 
client wants ’’nothing” selected. The new selection is delimited by the character positions 
first and last. These positions are relative to a zero origin, which is to the left of the first 
character of the tag (or main body of the item, if there is no tag). The interval is half open, 
(i.e., first = last = 0 is an empty selection, and first = 0, last = 1 is a selection containing 
the first character in the item). 

FormSw.SetTagPlaces: procedure [ 
items: FormSW.IternOescriptor, 

tabStops: long descriptor for array of cardinal, bitTabs: boolean]; 

It is often desirable for items on different lines to have the same horizontal positions. The 
SetTagPlaces procedure simplifies this task . The tabStops are in raster points if bitTabs is 
TRUE; otherwise, they are multiplied by the width of the digit 0. A positive x is used as a 
zero-origin index into the tabStops array. If the place is nextPlace, it means "move to the 
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next tab stop”. Negative x's are ignored. This routine is a pre-processor that changes the 
items’ places; it should be called before giving the items to the FormSW package. 

FormSW.SetTypeIn: procedure [ 

sw: window.Handle, index: cardinal, position: cardinal]; 

The procedure SetTypeIn allows a tool to set the insert point of the window to a location in 
an item. (See the Selection interface for a discussion of the insert point.) It should be used 
judiciously to avoid pre-empting the user, index is the index of the form item containing 
the insertion point, nullindex is used as an index when the client wants no insert point, 
position indicates the number of characters to the left of the new insertion point. The zero 
position is to the left of the first character of the tag (or main body of the item, if there is no 
tag). 

FormSw.SkipToNext: procedure [$w: Window.Handle]; 

SkipToNext implements the Next function. If a client notification procedure wants to 
implement a synonym for the Next function, it should call SkipToNext. 

Formsw.Sleep: procedure [window.Handle]; 

If a tool window is being made tiny, its subwindows do not need to keep state information 
for display. A form subwindow can be told to discard such state data by calling Sleep. This is 
done automatically if using the Tool interface. (See also Wakeup.) 

FormSw.SourceEditProc: FormSW.FilterProcType; 

This procedure is not currently implemented. 

FormSW.Sourceltern: procedure [ 
tag: long string <- nil, 

readonly, invisible, drawBox, hasContext, inHeap: boolean <—false, 
place: window.Place <-Formsw.nextPlace, 
boxWidth: cardinal <-FormSw.defaultBoxWidth, 
filterProc: FormSW.FilterProcType <— FormSw.SourceEditProc, 
menuProc; FormSW.MenuProcType *- FormSW.VanillaMenuProc, 
source; Textsource.Handle, z: uncounted zone «-nil] 
returns [FormSW.SourceHandle]; 

This procedure is not currently implemented. 

FormSW.StringEditProc; FormSW.FilterProcType; 

The String Ed itProc procedure is the standard editing procedure provided by Tajo for 
editing string ItemObject. 

Formsw.Stringltern: procedure [ 
tag: long string <- nil, 

readonly, invisible, drawBox, hasContext, inHeap: boolean <- false, 
place: window.Place «- Formsw.nextPlace, 
feedback: FormSW.StringFeedback *- normal, 
boxWidth: cardinal <- FormSw.defaultBoxWidth, 
filterProc; FormSW.FilterProcType «-FormSW.StringEditProc, 
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menuProc: FormSW.MenuProcType FormSW.VanillaMenuProc, 
string: long pointer to long string, z: uncounted zone <-nil] 

RETURNS [FormSW.StringHandle]; 

The procedure Stringitem allocates a record of type string ItemObject from z. z is defaulted 
to the system heap. Such an item has a FALSE clientOwnsItem. It occupies a node large 
enough only for a string ItemObject, not for any ItemObject. (For a discussion of the 
parameters, see StringHandle.) 

FormSW.TagOnlyltern: procedure [ 
tag: long string nil, 

readonly, invisible, drawBox, hasContext: boolean false, 
place: window.Place <-FormSw.nextPlace, 

otherltem: cardinal 4- Formsw.nullindex, z: uncounted zone 4-nil] 
returns [FormSW.TagOnlyHandle]; 

The procedure TagOnlyltem allocates a record of type tagOnly ItemObject from z. z is 
defaulted to the system heap. Such an item has a false clientOwnsItem. It occupies a node 
large enough only for a tagOnly ItemObject, not for any ItemObject. (For a discussion of 
the parameters, see TagOnlyHandle.) 

FormSw.ToggleFtag: procedure [ 

sw: window.Handle, index: cardinal, 
flag:FormSw,Flag]; 

The procedure ToggleFlag toggles the flag of index’s item. 

FormSW.ToggleVisibility: procedure [$w: Window.Handle, index: cardinal]; 

The ToggleVisibility procedure changes the visibility of an item from visible to invisible. 
It minimizes the necessary repainting when the item’s visibility is changed. In addition, 
the procedure deals properly with making the item invisible when it contains the current 
selection or insertion point. (See the Selection interface for a discussion of the current 
selection and insertion point.) sw is the form subwindow containing the item, and index is 
the index of the item in the subwindow’s ItemDescriptor. 

FormSW.VanillaMenuProc: FormSW.MenuProcType; 

The VanillaMenuProc procedure is a MenuProcType for which BASElhints] = nil, implying 
that no prompt menu will be available to the user. 

Formsw.Wakeup: procedure [window.Handle]; 

If the tool window is being made tiny, its subwindows do not need to keep state 
information for display. A form subwindow can be told to recreate the display state (when 
the window becomes big) by calling Wakeup. This is done automatically if using the Tool interface. 
(See also Sleep.) 
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The MsgSW interface implements message subwindows. Message subwindows provide a 
simple way of posting messages to the user. Typical tools have a message subwindow as 
their first subwindow. See ExampleTool. mesa in Appendix A. A Message subwindow is 
built on a String subwindow (see StringSW). 


14.1 Types 


M$gSW.Severity:TYPE = {info, warning, fatal}; 

Every message subwindow has a Severity associated with it, which is the Severity of the 
latest message sent to it by MsgSW.Post or MsgSW.PostAndLog if prefix is true. Messages of 
severity warning are prefaced by "Warning: ", and messages of severity fatal are prefaced 
by "Fatal Error: 


14.2 Constants and data objects 

MsgSw.defaultOptions: Textsw.Options a [ 

access: append, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom: false]; 

defaultOptions are the default window options used in creating a message subwindow. 

14.3 Signals and errors 

MsgSW.Error: SIGNAL [code: MsgSW.ErrorCode]; 

MsgSW.ErrorCode: type * (appendOnly, notAMsgSW, other}; 

appendOnly is raised by MsgSW.Create if options.access is not append. 

notAMsgSW is raised when a client performs a MsgSW operation on a window that is not a 
message sub window. 
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14.4 Procedures 

MsgSW.AppendString: userinput.StringProcType; 

The Appendstring procedure appends the parameter string onto the latest message. This 
is the procedure used for userinput.StringOut. The Severity associated with sw is set to 
info. This procedure can raise Error(notAMsgSW]. 

MsgSw.Clear: procedure [sw: window.Handle]; 

The Clear procedure erases the contents of the message subwindow. The Severity 
associated with sw is set to info. This procedure can raise Error[notAMsgSW]. 

MsgSw.Create: procedure [ 

sw; Window.Handle, lines: cardinal 1, 
options: Textsw.Options ^-MsgSw.defaultOptionsl; 

The Create procedure creates a message subwindow from an ordinary subwindow. The 
lines parameter specifies the minimum number of lines that the subwindow will keep in 
its backing store before discarding the oldest line. The subwindow height controls how 
many lines will be visible. If the number of lines visible to the user is greater than lines, 
then all the visible lines are kept in the backing store. When the options.access parameter 
is anything but append, an Error is raised with a code of appendOnly. Subwindows 
created by MsgSw.Create should be destroyed by MsgSW. Destroy, not by Textsw.Destroy, 

MsgSw.Destroy: procedure [sw: window.Handle]; 

The Destroy procedure destroys the backing store and transforms the message subwindow 
into an ordinary sub window. This procedure can raise Error[notAMsgSW]. 

MsgSw.GetSeverity: procedure [w: window.Handle] returns [severity: MsgSw.Severity]; 

The GetSeverity procedure returns the severity associated with the message subwindow 
sw. This is either the severity of the last message sent to the subwindow or the severity set 
by SetSeverity, whichever happened last. This procedure can raise Error[notAMsgSW]. 

Msgsw.lsit: procedure [sw: window.Handle] returns [yes: boolean]; 

The Isit procedure returns true if and only if sw is a message sub window. 

MsgSw.LastLine; procedure [sw: window.Handle, ss: string.SubString]; 

The LastLine procedure fills in the parameter ss with the base, offset, and length of the 
current message. The client may want to copy ss and the string ss.base, because this 
information may change. This procedure can raise Error[notAMsgSW]. 

MsgSW.Post: procedure [ 

sw: Window.Handle, string: long string, severity: MsgSw.Severity ^ info, 
prefix: boolean true, endOfMsg: boolean ^true]; 

The Post procedure appends string onto the latest message. The severity of the message is 
severity. If the prefix parameter is true and the message is starting a new line, a short 
string that depends on severity (info: warning: ’’Warning: ” or fatal: ’’Fatal Error: ”) 
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starts the line before the client message. The endOfMsg parameter set to TRUE delimits 
the message without having to put an Ascii.CR in string. (See also PostAndLog.) This 
procedure can raise Error[notAMsgSW]. 

MsgSw.PostAndLog: procedure [ 

sw: window.Handle, string; long string, severity: MsgSw.Severity info, 
prefix: boolean true, endOfMsg: boolean ^true, logSW: Window.Handle nil]; 

The PostAndLog procedure acts like MsgSW.Post. In addition, the logSW parameter 
enables the same message appearing in the message subwindow to be directed to another 
subwindow for logging. If the value is nil. the output is directed to the default Put window 
and the tool’s name is prefixed to the message. (See also Post.) This procedure can raise 

Error[notAMsgSW]. 

MsgSw.SetSeverity: procedure [ 

sw: Window.Handle, severity: MsgSW.Severity <-info]; 

The SetSeverity procedure sets the severity associated with the message subwindow sw. 
This procedure can raise Error[notAMsgSW]. 
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The ScratchSW interface creates a subwindow that is backed by a scratch source; that is, 
by a piece of virtual memory. It should be used when an editable window not backed by a 
file is desired. An example of the use of ScratchSW is for the implementation of an empty 
file window. (See also ScratchSource.) 


15.1 Types 


Scratchsw.Options: type = Textsw.Options; 

15.2 Constants and data objects 

Scratchsw.defaultOptions: Scratchsw.Options * [ 

access: edit, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom: false]; 

15.3 Signals and errors 

None. 

15.4 Procedures 

Scratchsw.Create: procedure [ 

SW: Window.Handle, block: Environment.Block Environment.nullBlock, 
extraRoom: cardinal f-0, expandable: boolean ^ true, 
options: Scratchsw.Options Scratchsw.defaultOptions]; 

The Create procedure creates a scratch subwindow, sw is the ordinary window from which 
the scratch subwindow is created. If sw is NIL, the signal windowlsNil is generated from 
the Context interface; it is caught by ScratchSW, block is the initialized storage that is 
used to back the subwindow. extraRoom is the amount of storage beyond the end of block 
that the scratch subwindow can use. If expandable is false and the scratch subwindow 
runs out of room in the block, editing operations have no effect. If expandable is true, the 
scratch subwindow allocates another larger block when it runs out of room, copies the old 
block into it, and deallocates the old block (see ScratchSource). In this case, the block must 
have been allocated from MSegment.GetPages, and the block is dealloctated byScratchSW 
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when the subwindow is destroyed, options indicates the initial value of the subwindow’s 
Options. Subwindows created by ScratchSW.Create should be destroyed by 
ScratchSW. Destroy, not by Textsw.Destroy, since TextSW.Destroy is called from within 
ScratchSW. Destroy 

Scratchsw.Destroy: procedure [sw: window.Handle]; 

The Destroy procedure destroys a scratch subwindow that was created by ScratchSW.Create, 
turning it back into an ordinary subwindow. If sw is NIL, then no errors or signals are 
generated and no actions are performed. 

ScratchSW.Info: PROCEDURE [sw: Window.Handle] 

RETURNS [ block: Environment.BlOck, extraROOm: CARDINAL, 
expandable: boolean, options: Scratchsw.Options]; 

The Info procedure returns the block backing the scratch subwindow, how much extra 
room there is after the block, whether the block is expandable, and the current value of the 
subwindow options. If sw is nil, then the returned values are: 


[block: Environment.nullBlock, extraRoom: 0, 
expandable: false, options: Scratchsw.defaultOptionsj. 

Scratchsw.lsit: PROCEDURE [sw: Window.Handle] RETURNS [yes: boolean]; 

The Isit procedure returns TRUE if the Handle is a scratch subwindow and FALSE otherwise. 
If sw is NIL, then Scratchsw.lsit returns FALSE. 
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The StringSW interface provides the definitions and procedures to create and manipulate 
text subwindows whose backing store is a LONG STRING. (See TextSW for more information.) 


16.1 Types 


stringSW.Options: TYPE = Textsw.Options; 

16.2 Constants and data objects 

StringSW.defaultOptions: ScratchSW.Options - [ 

access: edit, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom: false]; 

defaultOptions are the default window options used in creating a string subwindow. 

16.3 Signals and errors 

StringSW.OoesNotExist: SIGNAL; 

The signal DoesNotExist is never raised. It is deleted when the interface is next changed. 

16.4 Procedures 

stringsw.Create: procedure [ 

sw: window.Handle, s: long pointer to long string *- nil, 
options: stringSW.Options stringsw.defaultOptions, 
expandable: boolean <-true]; 

The Create procedure creates a string subwindow, expandable indicates whether the 
string is automatically expandable by the string window implementation. If s is nil, 
expandable is forced to be true. If s f is nil and expandable is true or s is nil, the 
subwindow will allocate and manage a heap string for the backing store. Expandable 
strings must be allocated from the system heap. If expandable is false and s is not nil, the 
client is responsible for the storage management of the string. If expandable is false and 
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the string source runs out of room in the string, String«StringBoundsFault[ps] is raised. 
Subwindows created by stringSwXreate should be destroyed using stringSW.Destroy, not 
Textsw.Destroy, because stringSW.Destroy calls Textsw.Destroy. 

stringSW.Destroy: PROCEDURE [sw: Window. Handle]; 

The Destroy procedure destroys a string subwindow created by StringSW.Create, turning it 
back into an ordinary subwindow. 

stringSw.GetString; procedure [w: window.Handle] returns [s: long pointer to long string]; 

The GetString procedure returns the current backing string for a string sub window. 

StringSW.Info: PROCEDURE [sw: Window.Handle] RETURNS [ 

s: LONG POINTER TO LONG STRING, options: stringSW.Options, expandable: boolean]; 

The Info procedure returns the current backing string for a string subwindow, whether 
the string is expandable, and the current value of the subwindow options. 

StringSW.IsIt: PROCEDURE [sw: Window.Handle] RETURNS [yes: BOOLEAN]; 

The Isit procedure returns TRUE if the Handle is a string subwindow and false otherwise. 
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The TextSW interface defines a comprehensive set of facilities for viewing text 
independent of the source. It takes a client-created subwindow and text source, creates the 
necessary data structures, and then provides appropriate procedures for viewing, 
scrolling, and text selection. Throughout this chapter, a display region is either a 
subwindow or one of its splits. Splits are horizontal subregions created by means of the 
SplitMCR. 


17*1 Types 


TextSW.AccesS: TYPE = TextSource.AcceSS; - {read, append, edit} 

Textsw.Bounds: type s record [from, to; TextSource.Position, delta: long integer]; 

Textsw.InvalidRegions: TYPE = long pointer to Textsw.InvalidList; 

TextSW.InvalidList: TYPE = record [ 
length: cardinal, 

seq: sequence maxLength; cardinal of Textsw.Bounds); 

A Textsw.InvalidRegions is returned by the client procedure passed to 
TextSW.ModifySource. It describes the regions in the source that have been modified so 
that TextSW can update its display region accordingly. Textsw.Bounds describes a single 
region where the source was modified, from and to are the positions in the source where 
modifications were made, resulting in a change in length of delta in the source. 

TextSW.OnOff: TYPE = {on, off}; 

TextSW.OptionS: TYPE = RECORD [ 

access: Textsw.Access, menu: boolean, split: boolean, wrap: boolean, 
scrollbar: boolean, flushTop: boolean, flushBottom: boolean]; 

menu indicates whether to instantiate the standard text operations menu with the 
subwindow at create time, split indicates whether to allow the subwindow to be divided 
into an arbitrary number of splits or horizontal subregions, wrap indicates whether a line 
too long to fit across the subwindow should be broken at a word boundary and continued 
on the next line or be clipped at the subwindow boundary, scrollbar indicates whether the 
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subwindow should have a vertical scrollbar. flushTop indicates whether the standard 
border should be supplied at the top of the subwindow. flushBottom indicates whether the 
standard border should be supplied at the bottom of the subwindow. 

Textsw.SplitInfoProcType: type = procedure [ 

first, last: TextSource.Position, nLines: cardinal] returns [boolean]; 

17.2 Constants and data objects 

Textsw.defaultOptions;Text5W.Options = [ 

access: read, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom; false]; 

17.3 Signals and errors 

TextSW.OoesNotExist: signal; 

17.4 Procedures 

TextSW.Adjust: ToolWindow.AdjustProcType; 

The Adjust procedure is called when a text subwindow is moved or sized. 

Textsw.BlinkingCaret: procedure [sw: window. Handle, state: Textsw.OnOff]; 

The BlinkingCaret procedure enables or disables the blinking caret for an append or edit 
text subwindow. 

Textsw.Create: PROCEDURE [ 

sw: window.Handle, source: TextSource.Handle, sink: Textsink.Handle <-nil, 
options: Textsw.Options <-Textsw.defaultOptions, position: TextSource.Position e-O, 
allowTypeIn: boolean <-true, resetLengthOnNewSession: boolean <-false]; 

The Create procedure creates a text subwindow from an ordinary subwindow, position 
indicates the initial character position in source that should be displayed at the top of the 
subwindow. If sink is nil, an ASCII sink is used as a sink. 

Textsw.DeleteText: procedure [ 

sw: Window.Handle, pos: TextSource.Position, count: long cardinal, 
keepTrash: boolean *- true]; 

The DeleteText procedure allows the client to alter the contents of the text source 
currently being displayed in the text subwindow by deleting count positions starting at 
pos. keepTrash determines whether the deleted text is placed in the trashbin. (See the 
Selection interface for documentation of the trashbin.) The text subwindow and source 
must have either edit or append access to use this operation correctly. 

TextSW. Destroy: procedure [sw: window.Handle]; 

The Destroy procedure destroys a text subwindow, freeing all data structures. However, 
the client-supplied source is not destroyed. Attempting to destroy a non-text subwindow 
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results in no action. This procedure should not be used to destroy '"differentiated’’ 
subwindows (subwindows created by interfaces such as FileSW or StringSW) because 
auxiliary data structures may not be recorded in the subwindow’s context object and hence 
would be lost. An example of such a data structure is the backing string for a StringSW 
when it is allocated by Tajo rather than by the client. Such subwindows should be 
destroyed by calling the appropriate routine in the interface for that subwindow type. 

TextSW.DoEditActioniPROCEDURE [ 

sw: Window. Handle, action: lextSource.EditAction] returns [delta: long integer]; 

The DoEditAction procedure deletes characters in the source according to action. The 
characters are deleted starting at and preceding the current insertion point, delta is 
always non-negative. 

Textsw.EnumerateSecondarySelections: procedure [ 

sw: Window.Handle, proc: procedure [Textoata.Selection] returns [boolean]]; 

The EnumerateSecondarySelections procedure enumerates the secondary selections of a 
text subwindow, calling proc for each one. These will have been defined by previous 

SecondarySelectionFromPosition and SetSecondarySelection calls. 

Textsw.EnumerateSplits: procedure [ 

sw: Window. Handle, proc: Textsw.SplitInfoProcType]; 

The EnumerateSplits procedure enumerates the splits of a text subwindow. Note that a 
text subwindow always has at least one split. 

TextSW.FindMCR: Menu.MCRType; 

The FindMCR procedure implements the Find command of the TextOps menu. It uses the 
current selection as the text to find. If the current selection is contained in this display 
region, it searches from that position; otherwise, it uses the current top of the region. This 
procedure allows clients to construct their own menus. 

Textsw.ForceOutput: procedure [sw: window.Handle]; 

All output to text subwindows is buffered for efficiency. The ForceOutput procedure 
ensures that all pending output has made it to the source. 

Textsw.GetEOF: procedure [sw: Window.Handle] returns [TextSource.Positionl; 

The GetEOF procedure obtains the "end-of-file” position of a text subwindow. 

Textsw.GetInsertion: procedure [sw: window.Handle] returns [TextSource.Position]; 

The Getinsertion procedure obtains the insertion position of a text subwindow. 

Textsw.GetOptions: procedure [ 

sw: Window.Handle] returns [options: Textsw.Options); 

The GetOptions procedure returns the current options setting for a text subwindow. 
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Textsw.GetPosition; procedure [ 

sw: window.Handle, line: cardinal] returns [TextSource.Position]; 

The GetPosition procedure determines the position of the first character on line. 

Textsw.GetSelection: procedure [ 

sw: Window.Handle] returns [left, right: TextSource.Position]; 

The GetSelection procedure obtains the selection position of a text subwindow. 

Textsw.GetSource: procedure [ 

sw: Window. Handle] returns [source: TextSource. Handle); 

The GetSource procedure returns the text source backing a text subwindow. 

Textsw.lnsertBlock: procedure [ 

sw: Window. Handle, block: Environment.Block, 
pos: TextSource.Position ^-TextSource.nullPosition]; 

The InsertBlock procedure allows the client to alter the contents of the text source 
currently being displayed in the text subwindow by inserting the block block at position 
pos. If pos is nullPosition, the block is inserted at the current insertion position. The text 
subwindow and source must have either edit or append access to correctly use this 
operation. 

Textsw.lnsertChar: procedure [ 

sw: window.Handle, char: character, 

pos: TextSource.Position 4-TextSource.nullPosition]; 

The InsertChar procedure allows the client to alter the contents of the text source currently 
being displayed in the text sub window by inserting the character char at position pos. If 
pos is nullPosition, the character is inserted at the current insertion position. The text 

subwindow and source must have either edit or append access to correctly use this 

operation. 

Textsw.lnsertString: procedure [ 
sw: Window.Handle, s: long string, 
pos: TextSource.Position ^TextSource.nullPosition]; 

The Insertstring procedure allows the client to alter the contents of the text source 
currently being displayed in the text sub window by inserting the string s at position pos. 
If pos is nullPosition, the string is inserted at the current insertion position. The text 

subwindow and source must have either edit or append access to correctly use this 

operation. 

Textsw.lnsertSubString: procedure [ 

sw: Window.Handle, ss: string.SubString, 

pos: TextSource.Position ^TextSource.nullPosition]; 

The Insertsubstring procedure allows the client to alter the contents of the text source 
currently being displayed in the text subwindow by inserting the substring ss at position 
pos. If pos is nullPosition, the substring is inserted at the current insertion position. The 
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text subwindow and source must have either edit or append access to correctly use this 
operation. 

Textsw.lsit: PROCEDURE [sw: window.Hdndle] RETURNS [yes: boolean]; 

The Isit procedure returns TRUE if the window is a text subwindow, and false otherwise. 
Textsw.JumpEndMCR: Menu.MCRType; 

The JumpEndMCR procedure implements the J.End function of the TextOps menu. It 
positions the display region with the last line of the source at the top. 

TextswJumpInsertionMCR: Menu.MCRType; 

The JumpInsertionMCR procedure implements the J.Insert function of the TextOps menu. 
It positions the display region with the line containing the insertion position at the top. 

Textsw.JumpSelectionMCR: Menu.MCRType; 

The JumpSelectionMCR procedure implements the J.Select function of the TextOps menu. 
If the subwindow contains the current selection, it positions the display region with the 
line containing the current selection at the top. 

TextswJumpTopMCR: Menu.MCRType; 

The JumpTopMCR procedure implements the J.First function of the TextOps menu. It 
positions the display region with the first line of the source at the top. 

Textsw.ModifySource:PROCEDURE [ 
sw: Window.Hdndle, 

proc: PROCEDURE [window.Handle, Textsource.Handle, long pointer] 

RETURNS [invalidRegions; Textsw.InvalidRegions], 
data; long pointer]; 

The ModifySource procedure is provided for clients who wish to batch several changes to a 
text subwindow’s source. ModifySource acquires the TextSW monitor and then calls proc 
with sw, its source, and whatever data was passed in to make these changes, proc is 
expected to return a description of the regions in the source that were modified in 
invalidRegions. The text subwindow updates its display region according to this 
information. 

Textsw.PositionFromPlace: procedure [ 

sw: window.Handle, place: window.Piace] returns [position: TextSource.Position]; 

The PositionFromPlace procedure enables clients to resolve window coordinates to the 
nearest text source position. It always returns a valid position. 

Textsw.PositionIsVisible: procedure [ 

sw: Window.Handle, position: TextSource.Position] returns [boolean]; 

The PositionIsVisible procedure returns true if position position of the source is currently 
being displayed. It does not take other windows overlapping sw into account. 
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TextSW.PositionMCR: Menu.MCRType; 

The PositionMCR procedure implements the Position function of the TextOps menu. It 
interprets the current selection as a number and positions the display region that contains 
the cursor with the line containing the current selection at the top. 

Textsw.PositionToLine: procedure [sw: window.Handle, position: TextSource.Position]; 

The PositionToLine procedure positions the top of a text subwindow to the first line after 
the specified position. However, if the position corresponds to the first character of a line, 
that line is displayed. (Compare this procedure with SetPosition.) 

Textsw.RemoveAllSecondarySelections: procedure [sw: window.Handle]; 

The RemoveAllSecondarySelections procedure removes each secondary selection in a text 
subwindow. 

Textsw.RemoveSecondarySelection: procedure [ 
sw: Window.Handle, s: TextData,Selection]; 

The RemoveSecondarySelection procedure removes a specified secondary selection. 
lextsw.ReplaceText: procedure [ 

sw: Window.Handle, pos: TextSource.Position, count: long cardinal, 
block: Environment.Block, keepTrash: boolean ^true]; 

The ReplaceText procedure allows the client to alter the contents of the text source 
currently being displayed in sw by replacing the count characters beginning at pos with 
block. keepTrash determines whether the deleted text is placed in the trashbin. (See the 
Selection interface for documentation on the trashbin.) The text subwindow and source 
must have edit access to use this operation correctly . 

Textsw.SecondarySelectionFromPosition: procedure [ 

sw: Window.Handle, position: TextSource.Position] returns [s: TextData.Selection]; 

The SecondarySelectionFromPosition procedure returns the secondary selection in the 
window at position position. If there is no secondary selection there, nil is returned. 

Textsw.SetEOF: procedure [sw: window.Handle, eof: TextSource.Position]; 

The SetEOF procedure alters the ”end-of-file'' position of the source in the subwindow. 

Textsw.SetInsertion: procedure [sw: Window.Handle, position: TextSource.Position]; 

The Setinsertion procedure alters the insertion position of the source in the subwindow. 

Textsw.SetOptions: procedure [sw: window.Handle, options: Textsw.Options]; 

The SetOptions procedure sets the current options for a text subwindow. 

Textsw.SetPosition: procedure [sw: window.Handle, position: TextSource.Position]; 
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The SetPosition procedure positions the top of a text subwindow to the line containing the 
character at the specified position. (Compare this procedure with PositionToLine.) If the 
position is not visible because of a long wrapped line, the subwindow may scroll a line at a 
time until it is visible. 

Textsw.SetSecondarySelection: procedure [ 

sw: window.Handle, left, right: TextSource.Position, mode: TextData.SelectionMode] 
RETURNS [s: TextData.Selection]; 

The SetSecondarySelection procedure defines a secondary selection starting at left and 
ending at right. The secondary selection is highlighted according to mode. 

Textsw.SetSelection: procedure [ 

sw: Window.Handle, left, right: TextSource.Position]; 

The SetSelection procedure alters the selection position of the subwindow. 

Textsw.SetSource: procedure [ 

sw: window.Handle, source: TextSource.Handle, position: TextSource.Position ^0, 
reset: boolean ^true]; 

The SetSource procedure changes the text source for a text subwindow, reset indicates 
whether the current display/source correspondence is valid or should be rebuilt. 

Textsw.Sleep: procedure [sw: window.Handle]; 

The Sleep procedure requests that the text subwindow package minimize its resource 
requirements by destroying all state related to text display. 

TextSW.SpiitMCR: Menu.MCRType; 

The SplitMCR procedure implements the Split function of the TextOps menu. It splits the 
display region in two. 

Textsw.SplitView; procedure [ 

sw: Window.Handle, key: Textsw.KeyName, y: integer]; 

The SplitView procedure splits a text subwindow y pixels down from the top of sw. key is 
an ignored obsolete parameter. This procedure, used internally in building the menu and 
split view facilities, is potentially useful for constructing client menu routines. 

Texts w.Update: procedure [ 

sw: Window.Handle, from, to: TextSource.Position, charsDeleted: boolean true]; 

The Update procedure is called when the display/source correspondence is invalid. The 
characters between from and to are redisplayed to reflect any changes in the source. If any 
characters were deleted, charsDeleted must be set true because more computation may be 
required to reestablish the display/source correspondence. This operation, as well as the 
next two update procedures, are intended for more experienced TextSW users who wish to 
create their own editors. 
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Textsw.UpdateRange: procedure [ 

sw: Window. Handle, from, to: TextSource.Position, delta: long integer, 
charsDeleted: boolean ^true]; 

The UpdateRange procedure is called to reestablish the display/source correspondence 
after changes have been made to the source. The modifications were between from and to, 
and resulted in a change delta in the total number of characters. If any characters were 
deleted, charsDeleted must be set true because more computation may be required to 
reestablish the display/source correspondence. 

Textsw.UpdateToEnd: procedure [ 

sw: Window. Handle,from: TextSource.Position, charsDeleted: boolean 4- true]; 

The UpdateToEnd procedure is called when the display/source correspondance is invalid. 
The characters after from will be redisplayed to reflect any changes in the source. If any 
characters were deleted, charsDeleted must be set true because more computation may be 
required to reestablish the display/source correspondence. 

Textsw.Wakeup: procedure [sw: window.Handle]; 

The Wakeup procedure requests that the text subwindow package recompute all its 
display state that it discarded when Sleep was called. 

TextSW. WrapMCR: Menu.MCRType; 

The WrapMCR procedure implements the Wrap function of the TextOps menu. It toggles 
the wrap BOOLEAN in the text subwindow options record. 
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The TTYSW interface allows for traditional teletype interaction. Other Tajo user- 
interaction facilities are based on the notification concept. Because many programs are 
already written using a teletype-like control structure, the teletype subwindow is 
available to clients for upward compatibility. 

TTYSWs are built on the TTY abstraction that is available as a common software interface. 
See the tty section of the Pilot Programmer s Manual for details on some of the following. 

18.1 Types 

None. 

18.2 Constants and data objects 

TTYSW.defaultOptions;Textsw.Options = [ 

access: append, menu: true, split: true, wrap: true, scrollbar: true, 
flushTop: FALSE, flushBottom: false]; 

18.3 Signals and errors 

TTYSW.Error: signal [code: TTYSW.ErrorCode); 

TTYSW.ErrorCode: TYPE = {notATTYSW, badTTYHandle, other}; 
notATTYSW a passed-in subwindow is not a TTY subwindow. 
badTTYHandle an obsolete error code, never used, 
other an obsolete error code, never used. 
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TTYSW.LineOverflow: signal [s: long string] returns [ns: long string]; 

TTYSW.Rubout: signal; 

The procedures below that read strings from the user are implemented by calls on similar 
functions from the TTY interface. If any of those routines raise LineOverflow or Rubout, 
that signal is mapped into the corresponding one from the TTYSW interface. 


18-4 Procedures 

TTYSW.AppendGhar: procedure [sw: window. Handle, char: character]; 

The AppendChar procedure can be used for output to a teletype subwindow. (See also 
Appendstring and the Put interface.) This procedure can raise TTYSW. Error[notATTYSW]. 

TTYSW.AppendString: Userinput.StringProcType; 

The Appendstring procedure can be used to produce formatted output to a teletype 
subwindow. (See also the Put interface.) This procedure can raise 

TTYSW.Error[notATTYSW]. 

TTYSw.Create: procedure[ 

sw: Window. Handle, backupFile: long string, s: stream.Handle nil, 
newFile: boolean true, options: Textsw.Options TTYSW.defaultOptions, 
resetLengthOnNewSession: boolean <-» false]; 

The Create procedure creates a teletype subwindow from an ordinary subwindow. The 
backupFile parameter specifies the name of the file on which the teletype subwindow 
writes. However, if s is not nil, s is assumed to be the stream handle on the file. When 
newFile is true, the length of the file is set to zero at create time; otherwise, the existing 
length is used. When the teletype subwindow is created, the client must fork a process (the 
input process) that plans to do input (i.e., a procedure called directly from the Notifier 
cannot do input from a TTY sub window). This process should be able to handle the signals 
LineOverflow and Rubout and the errors Error, aborted, and stHng.InvalidNumber. 

TTYSW. Destroy: procedure [sw: wmdow.Handle]; 

The Destroy procedure destroys teletype sub window attributes of the sub window. 
However, before this procedure is called the input process should be aborted. (See also 

DestroyFromBackgroundProcess.) 

TTYSw.DestroyFromBackgroundProcess: procedure [sw: window.Handle]; 

The DestroyFromBackgroundProcess procedure destroys the teletype subwindow from 
within the input process. The client should call this procedure as it returns from the Input 
process. (See also Destroy.) 
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TTYSW.EndOf: procedure [sw: window.Handle] returns [yes: boolean]; 

If characters have been typed in but not yet seen by the client program, TTYSW.EndOf 
returns false; otherwise it returns TRUE. This is equivalent to testing that the number 
returned from CharsAvailable is 0. 

TTYSw.GetTTYHandle: procedure [sw: Window.Handle] returns [tty: tty.H andle]; 

The GetTTYHandle procedure returns the TTY.Handle associated with sw. If there is no 
corresponding TTY.Handle, TTY.nullHandle is returned. 

TTYSw.lsIt: PROCEDURE [sw: Window.Handle] returns [yes: boolean]; 

The Isit procedure returns true if the subwindow is a teletype subwindow and false 
otherwise. 


18.5 Procedures mapped to calls on TTY 

The rest of the procedures in this interface are implemented by converting the subwindow 
passed into them into a TTY.Handle and calling the corresponding routine from the TTY 
interface. Any of them may raise TTYSW.Error[notATTYSW]. TTY.Rubout and 
TTY.LineOverflow are mapped into the corresponding signals from the ttysw interface. The 
type of each of the following procedures can be determined by replacing the "h: 
TTY.Handle” argument with "sw: Window.Handle”. The one exception is that the second 
argument of TTYSW.PutBackChar is "char; CHARACTER” and the second argument of 
TTY.PutBackChar is "c: character”. All of these procedures will be withdrawn in a future 
release. You are advised to convert your calls to be directly on the tty interface. 

BackingStream 

CharsAvailable 

GetChar 

GetDecimal 

GetEcho 

GetEditedString 

Getid 

GetLine 

GetLongOecimal 

GetLongNumber 

GetLongOctal 

GetNumber 

GetOctal 

GetPassword 

GetString 

Newline 

PopAlternateInputStreams 

PushAlternateInputStreams 

PutBackChar 

RemoveCharacter 

RemoveCharacters 

SetBackingSize 

SetEcho 
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The Put interface provides output procedures for windows. All the procedures in the Put 
interface take a Window. Handle, a piece of data to be formatted and, where appropriate, a 
format specification. See the documentation on the Format interface for comments about 
the actual output format of these procedures. 


19-1 Types 

Put.NetFormat: TYPE = Format. NetFormat; 

19.2 Constants and data objects 

None. 

19.3 Signals and errors 

None. 

19.4 Procedures 

In all the following procedures, the output is directed to the Userinput.StringOut procedure 
associated with the window, Handle. If the Window. Handle is NIL, the output is directed to the 
default output sink. 

Put.Blank, Put.Blanks: procedure [h: window.Handle «-nil, n: cardinal 1]; 

The Blank procedure invokes Format, Blank. 

Put.Block: PROCEDURE [h: Window.Handle 4-nil, block: Environment.BlOck]; 

The Block procedure invokes Format. Block. 

Put.Char: procedure [h: window. Handle 4-nil, char: character]; 

The Char procedure invokes Format.Char. 
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Put.CR: PROCEDURE [h: Window.Handle «-nil]; 

The CR procedure invokes Format. CR. 

Put.CurrentSelection; procedure [h: window.Handle «-nil]; 

The CurrentSelection procedure passes the string that is the current selection to the 
output procedure of the Userinput.StringOut procedure associated with the Window. Handle. 
If the Window. Handle is nil, the output is directed to the default output sink. 

Put.Date: procedure [ 

h: Window. Handle *- nil, pt: Time. Packed, 
format: Format.DateFormatnoSeconds]; 

The Date procedure invokes Format. Date. 

Put.Decimal: procedure [h: window. Handle <- nil, n; integer]; 

The Decimal procedure invokes Format. Decimal. 

Put.HostNumber: procedure [ 

h: Window. Handle *- nil, host: System.HostNumber, format: Format.NetFormat <—octal]; 
The HostNumber procedure invokes Format. HostNumber. 

Put.Line: procedure [h: window. Handle nil, s: long string]; 

The Line procedure invokes Format.Line. 

Put.LongDecimal: procedure [h: window.Handle nil, n: long integer]; 

The LongDecimal procedure invokes Format. LongDecimaI. 

Put.LongNumber: procedure [ 

h; Window.Handle «- nil, n: long unspecified, format: Format.NumberFormat]; 

The LongNumber procedure invokes Format. LongNumber. 

Put.LongOctal: procedure [h: window.Handle e- nil, n: long unspecified]; 

The LongOctal procedure invokes Format. LongOctaI. 

Put.LongString: procedure [h: window.Handle e- nil, s: long string]; 

The LongString procedure invokes Format. LongString. 

Put.LongSubString: procedure [h: Window.Handle «- nil, ss: string.SubString]; 

The LongSubString procedure invokes Format.LongSubString. 
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Put.NetworkAddress: procedure [ 

h: window.Handle nil, address: System. NetworkAddress, 
format: Pormat.NetFormat«— octal]; 

The NetworkAddress procedure invokes Format. NetworkAddress 

Put.NetworkNumber: procedure [ 

h: Window.Handle e- nil, networkNumber: System. NetworkNumber, 
format: Format. NetFormatj; 

The NetworkNumber procedure invokes Format. NetworkNumber. 

Put.Number: procedure [ 

h: Window.Handle <- nil, n: unspecified, format: Format.NumberForrnatj; 

The Number procedure invokes Format.Number. 

Put.Octal: procedure [h: Window.Handle e- nil, n: unspecified); 

The Octal procedure invokes Format. Octal. 

Put.SocketNumber: procedure [ 

h: Window.Handle e- nil, socketNumber: System. SocketNumber, 
format: Format. NetFormatj; 

The SocketNumber procedure invokes Format. SocketNumber. 

Put.SubString: procedure [h: Window.Handle <- nil, s: string.SubString]; 

The Substring procedure invokes Format. Substring. 

Put.Text: PROCEDURE [h: window.Handle <- nil, s: long string); 

The Text procedure invokes Format. Text. [Te.xt is not String because it causes a name conflict with the 
interface named String.) 
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The Tool interface permits tool writers to use the Tajo user interface mechanism without 
worrying about the details of invocation. It reduces to a minimum the knowledge the 
client needs of Tajo’s more basic levels. Refer to the ExampleTool in Appendix A for a tool 
that uses the Tool interface. 


20.1 Types 


Tooi.MakeSWsProc: type = procedure [window: window.Handle]; 

At various points, depending on the initial state of the tool and user actions, Tajo calls on 
the MakeSWsProc procedure supplied to Create to let the client create subwindows and 
menus. 

Tool.State; TYPE = {inactive, tiny, active, default}; 

Tool.SWPrOC: TYPE = PROCEDURE [sw: Window.Handle]; 

Tool.SWType: type = machine DEPENDENT{vanilla(0), predefined(376B), last(377B)}; 

The Tool interface manages client-defined subwindow types just as it manages the 
predefined subwindow types: Form, File, Message, String, and TTY. If a client wants to 
register a subwindow type that would use the SimpleAdjustProc, the NopSleepProc, and 
the NopWakeupProc, it can instead use a Tool.SWType of vanilla. 

20.2 Constants and data objects 

Tool.DefaultHeight: integer - Tooiwindow.nullBox.dims.h; 

20.3 Signals and errors 

Tooi.Error: signal [code: Tooi.ErrorCode]; 

TooI.ErrorCode: TYPE = { 

notATool, unknownSWType, swNotFound, invalidWindow, invalidParameters, 
other}; 
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invalidWindow can be raised by any procedure that takes a Window. Handle 

argument, if the associated window is not a valid tool window. 

notATool can be raised by any procedure that takes a window. Handle 

argument, if the associated window was not created by Tool.Create. 

unknownSWType can be raised by any procedure that takes a Tool.SWType argument. 

20.4 Procedures 

Tooi.AddThisSW: procedure [ 

window: window.Handle, sw: window.Handle, 

swType: Tool.SWType 4- predefined, nextSW: window.Handle ^ nil, 

h: INTEGER Tool. DefaultHeight]; 

The AddThisSW procedure allows clients that use methods other than Tool procedures to 
create subwindows for communicating these methods to the Tool interface. The Tool 
interface inserts sw above the nextSW subwindow, and the bottom subwindow is grown or 
shrunk to accommodate the new subwindow. [Warning: Usually the Create call hasn’t returned 
when the MakeSWsPrOC procedure is called. The Window.Handle variable into which the client assigns the 
value returned from Create is uninitialized. Thus, the client should not reference this variable in its 
MakeSWsPrOC procedure. Instead, the client should use the window parameter passed to the 
MakeSWsPrOC procedure.) 

Tool.Create: procedure [ 

name: long string, makeSWsProc: Tooi.MakeSWsProc, 
initialState: Tool.State ^default, 
clientTransition: Toolwindow.TransitionProcType f-NiL, 
movableBoundaries: boolean ^true, 
initialBox: window.Box 4-Toolwindow.nullBox, 
cmSection, tinyNamel, tinyName2: long string ^ nil, 
named: boolean^ TRUE] 

RETURNS [window: Window.Handle]; 

The Create procedure creates a tool. The name parameter is the string that appears in a 
tool's name stripe if the named parameter is true; the string used in the inactive menu is 
derived from this string. The parameters tinyl and tiny2 specify both parts of the tiny 
name used when the tool is made tiny. If these parameters are nil, the tiny name is derived 
from the name parameter. cmSection specifies the name of the section in the User .Cm 
that contains the symbiote menu, initial state, tiny place, and initial window box. When 
the initialState is default, the tool assumes a predetermined state, depending on how it is 
created. The tool is initialized to be active when loaded while the user is in Tajo, because 
the user will probably want to use it right away. If the clientTransition procedure is not nil, 
it is called before the tool is about to change state (e.g., before calling MakeSWsProc, see 
below) and before anything is done to the data managed by the Tool interface. The one 
exception to this ordering rule is that FormSW.FreeAllltems is called for each FormSW in the 
tool when the tool is going inactive before the client's transition procedure is called. It is 
common for a client's transition procedure to deallocate a record containing data that the 
FormSW.FreeAllltems procedure references. Thus, the data must be referenced before it goes 
away, [If the client doesn't like being called in this order, it could set its own procedure to be the window- 
transition procedure that could call Tool.Transition. This could be important if the client has a process that is 
updating things in a form sub window.] When the movableBoundaries parameter is true, the user 
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may select the boundary line between subwindows and reposition it. The initialBox 
parameter can be used to specify the tool box (bitmap relative). A value of 
ToolWindow.nullBox lets Tajo assign the box from the next available box slot. 

Tool.DeleteThisSW: procedure [sw: window.Handle]; 

The DeleteThisSW procedure removes the subwindow sw from its tool window and 
distributes the window space among the remaining subwindows of the tool. The 
subwindow will not be deleted if it is the only subwindow in the tool. Clients should first 
free all menus and FormSW items specific to sw. Menus should be destroyed by 
Menu.Uninstantiate followed by Menu.Destroy. FormSW items should be destroyed by 
ForrnSW.FreeAllltems. The space that was taken by sw will be given to the bottom 
subwindow of the tool. 

Tool. Destroy: procedure [window: window.Handle); 

The Destroy procedure is used to destroy a tool window created by the Tool interface. It 
may also be used for removing a subwindow of the tool. This procedure also calls the 
client-transition procedure supplied to Tool. Create with a new Tool. State of inactive before 
the tool is destroyed. If window is a subwindow, its associated data structures are cleaned 
up as follows: normally, the client should destroy anything that it creates, such as any 
private data, before a tool goes inactive. The tool mechanism relieves the client from 
having to destroy subwindows and menus that were created in a standard way. In 
particular, menus should be created by a call to Menu.Make; ForrnSW.ItemDescriptors 
should be created by a call to FormSW.AllocateltemDescriptor; FormSW.ItemObjects should 
be created by calls to FormSW.*ltem procedures. 

Tool.DestroySW: procedure [window: window.Handle]; 

The DestroySW procedure is not currently implemented. 

Tool.lnfo: procedure [window: window.Handle] returns [ 

name, cmSection: long string, makeSWsProc: Tooi.MakeSWsProc, 
clientTransition: Tooiwindow.TransitionProcType, 
movableBoundaries: boolean]; 

The Info procedure returns the values of certain parameters supplied to Tool.Create. The 
client should not modify name or cmSection, as these values may become dangling 
references when the tool is destroyed. 

Tool.lsit: procedure [window: window.Handle] returns [boolean]; 

The Isit procedure returns true if window was created by Tool.Create and false otherwise. 
Tool.MakeClientSW: procedure [ 

window: window.Handle, clientProc: procedure [sw: window.Handle, 
clientData: long pointer], clientData: long pointer, 
swType: Tool.SWType, h: integers- Tooi.DefaultHeight] 

RETURNS [sw:window.Handle]; 

The MakeClientSW procedure allows clients to create their own subwindow types. The 
clientProc is the client’s procedure that will create the subwindow. The client passes 
clientData to the Tool interface, which in turn is passed to the clientProc procedure. The 
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swType is obtained from TooI.RegisterSWType. The h parameter is the new subwindow’s 
initial height. 

Tool.MakeDefaultSWs: procedure [ 

window: window. Handle, messageLines: cardinal e-0, 
formProc: ForrnSW.ClientltemsProcType <-NiL, 

formHeight: cardinal <—Tooi.DefaultHeight, logName: long string <—nil] 

RETURNS [msgSW, formSW, logSW: window. Handle]; 

The MakeDefaultSWs procedure creates a message subwindow, a form subwindow, and a 
log file subwindow as subwindows of window. If messageLines is 0, there will be no 
message subwindow. IfformProc is nil, there will be no form subwindow. If logName is nil, 
there will be no file subwindow. 

Tool.MakeFileSW: procedure [ 

window: window.Handle, name: long string, access: Fiiesw. Access <-append, 
h: INTEGER <- Tooi.DefaultHeight, allowTypeIn: boolean *- true, 
resetLengthOnNewSession: boolean «-false, 
resetLengthOnActivate: boolean <-false] 

RETURNS [sw: Window.Handle]; 

The MakeFileSW procedure is usually called from a MakeSWsProc to create a file 
subwindow. (See the FileSW interface for details on file subwindows.) This procedure may 
raise TextSource.Error[fileNameError] if access is read and the file is not found, or if the file 
cannot be acquired. The boolean parameter allowTypeIn specifies whether the log accepts 
type-in. The BOOLEAN parameter resetLengthOnNewSession specifies whether the length 
of the file is set to zero at the start of a new debugging session. resetLengthOnActivate 
specifies whether the length of the file is set to zero when the tool is activated. 

Tool.MakeFormSW: procedure [ 

window: window.Handle, formProc: FormSW.ClientItemsProcType, 
options: FormSW.Options <- [], h: integer <-Tooi.DefaultHeight, 
zone; uncounted zone nil] 

RETURNS [sw: Window.Handle]; 

The MakeFormSW procedure is usually called from a MakeSWsProc to create a form 
subwindow. (See the FormSW interface for details on form subwindows.) To take 
advantage of automatic tool deallocation, FormSW.IternOescriptors should be created by a 
call to FormSW.AllocateltemOescriptor and FormSW.ItemObjects should be created by calls 
to FormSW.*ltem procedures. The zone parameter is passed to FormSW when the FormSW 
items are allocated. 

Tool.MakeMsgSW: procedure [ 

window: window.Handle, lines: cardinal <-1, h: integer «- Tooi.DefaultHeight] returns 
[sw: Window.Handle]; 

The MakeMsgSW procedure is usually called from a MakeSWsProc to create a message 
subwindow. (See the MsgSW interface for details on message subwindows.) 
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Tool.MakeStringSW: procedure [ 

window; window. Handle, s: long pointer to long string «-nil, 
access: Textsw.Access <-append, h: integer «-Tooi.DefaultHeight, 
expandable: BOOLEAN false] 
returns (sw: Window. Handle]; 

The MakeStringSW procedure is usually called from a MakeSWsProc to create a string 
subwindow. (See the StringSW interface for details on string subwindows.) 

Tool.MakeTextSW: procedure [ 

window; window.Handle, source: TextSource.Handle, sink; Textsink.Handle ^ nil, 

options: Textsw.Options <—Textsw.defaultOptions, 

position: TextSource.Position «-0, allowTypeIn: boolean <-true] 

RETURNS [sw: Window.Handle]; 

The MakeTextSW procedure is usually called from a MakeSWsProc to create a text 
subwindow. (See the TextSW interface for details on text subwindows.) 

Tool.MakeTTYSW: PROCEDURE [ 

window; window.Handle, name: long string, h: integer <-Tooi.DefaultHeight, 
resetLengthOnNewSession: boolean «-false] 

RETURNS [sw: Window.Handle]; 

The MakeTTYSW procedure is usually called from a MakeSWsProc to create a TTY 
subwindow. (See the TTYSW interface for details on TTY subwindows.) 

Tool.NopSleepProc: Tooi.SWProc; 

The NopSleepProc procedure is provided for those who wish to register a new Tool.SWType, 
it does nothing when called. 

Tool.NopWakeupProc; Tooi.SWProc; 

The NopWakeupProc procedure is provided for those who wish to register a new 
Tool.SWType; it does nothing when called. 

Tooi.RegisterSWType: procedure [ 

adjust: Tooiwindow.AdjustProcType <-Tool.SimpleAdjustProc, 
sleep: Tooiwindow.SWProc <- Tooi.NopSleepProc, 
wakeup: Tooiwindow.SWProc <-Tool.NopWakeupProc] 

RETURNS [uniqueSWType: Tool.SWType]; 

The RegisterSWType procedure registers a client-defined subwindow type with the Tool 
interface. The adjust procedure is called whenever the user moves the subwindow or 
changes the subwindow size. The sleep procedure is called whenever the window in which 
the subwindow lives becomes tiny. The subwindow is then expected to throw away any 
data that it uses only to display its contents. The wakeup procedure undoes what sleep did 
when the tool becomes active again. If a client wants to register a subwindow type that 
would use the SimpleAdjustProc, the NopSleepProc, and the NopWakeupProc, it can 
instead use a Tool.SWType of vanilla. 
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Tool.SimpleAdjustProc: Toolwindow.AdjustProcType; 

The SimpleAdjustProc is a null procedure. If no Toolwindow.AdjustProcType is passed to 
RegisterSWType, the SimpleAdjustProc is used. 

Tool.SwapSWs: procedure [ 

window, oldSW, newSW: window.Handle, newType: looi.SWType 4- predefined] 
RETURNS [oldType: Tooi.SWIype]; 

The SwapSWs procedure switches one subwindow for another subwindow in a tool, 
window is the tool window. oldSW identifies the currently displayed subwindow that will 
be replaced by newSW. newSW cannot currently be part of the tree that makes up the 
hierarchy of displayed windows. When this procedure has returned, oldSW has been 
removed from this tree. Error[code: swNotFound] may be raised from this procedure. The 
original newSW must be created with procedures other then the ones provided in the Tool 
interface; for example, you might call Toolwindow.CreateSubwindow followed by 
FormSW.Create. In addition, the call to Toolwindow.CreateSubwindow should supply nil as 
the parent argument. 

Tool.Transition: Tooiwindow.TransitionProcType; 

The Transition procedure is called whenever the tool changes state. In turn, it calls the 
client transition procedure supplied to Tool. Create. If the new Tool. State of the tool is 
inactive, the Formsw.ltems are freed before the client transition procedure is called. The 
client transition procedure is called before the Tool interface takes any other action. 

Tool.UnusedLogName: procedure [unused, root: long string]; 

The UnusedLogName procedure guarantees unique log file names among file and TTY 
subwindows by enumerating all the current file and TTY subwindows and checking that 
each name is not currently in use. If a name is in use, a derived name is generated and 
checked until a unique name is generated. Note that the development environment file 
system does not permit multiple writeable handles on a file, so this procedure should be 
called if there might be multiple instances of the tool. A unique name is generated by 
setting the length of unused to 0, appending the root, and appending a number. 
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The facilities of ToolWindow enhance those provided by the Window interface. 
Specifically, they provide functions that implement Tajo's window illusion for tools. 


21,1 Types 


ToolWindow.AdjuStPrOCType: TYPE = PROC[ 

window: Tooiwindow.Handle« box: Tooiwindow.Box, when: ToolWindow.When]; 

Because users can change the location and size of windows on the display, Tajo provides 
the individual tools with a mechanism for knowing when one of their windows has been 
adjusted. Before the system adjusts a window’s location or size, it calls the tool’s limit 
procedure (see LimitProcType). It then uses the box returned by the limit procedure to call 
the tool’s adjust procedure. The adjust procedure is called both before and after the actual 
adjustment is made; the when parameter is used by the AdjustProcType to indicate the 
difference. 

ToolWindow.BoX: TYPE = Window.BoX; 

ToolWindow.BoxPrOCTypeiTYPE = PROC RETURNS [bOX: ToolWindow.Box); 

A BoxProcType is the type of the parameters passed to SetBoxAllocator. 

Toolwmdow.DisplayProcType:TYPE = proc [window: Tooiwindow.Handle]; 

A DisplayProcType is called whenever the contents of the window need to be refreshed on 
the display; for example, when a window previously on top of a given window is moved out 
of the way. For all Tajo-supplied subwindow types, display procedures are automatically 
supplied at create time. 

Toolwindow.EnumerateProcType: type = proc [ 

window: Tooiwindow.Handle] returns [done: boolean]; 

Toolwindow.EnumerateSWProcType: type = proc [ 

window, sw: Tooiwindow.Handle] returns [done: boolean]; 
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ToolWindow.Handle: TYPE = Window.Handle; 

ToolWindow.LimitProcType: type = procedure [ 

window: ToolWindow.Handle* box: TooIWindow.Box] RETURNS [ToolWindow.Box], 

Although the user moves windows around on the display, Tajo allows the individual tools 
to exercise veto or modification rights over moves. This is particularly useful for allowing 
a tool to prohibit, for example, its window becoming smaller than some certain size or 
moving completely off the visible display region. When the system adjusts the window’s 
location or size, it first calls the limit procedure with the requested box and then passes 
the returned box to the tool’s adjust procedure. 

ToolWindow.OnOff: TYPE = {on. Off}; 

OnOff is the type used to set and unset the tool name stripe. 

ToolWindow.Place: TYPE = Window.Place; 

Place is the type of the top left corner of a box. 

Toolwindow.Size: TYPE = {tiny* normal, zoomed}; 

A tool always has one of three Sizes. 

tiny displays as a small rectangular box that contains a name for the tool, 
zoomed displays as a normal tool, but fills the whole screen. 

Tooiwindow.State: TYPE = {inactive* tiny, active}; 

A tool is always in one of three States. 

inactive indicates that the user is not interested in any of the functions the tool 
implements, and all resources it utilizes should be freed. When a tool is inactive, 
a menu entry whose text is derived from its name is placed on the Inactive 
menu. 

tiny the user is not interested what the tool normally displays; therefore resources 
associated with the display state should be freed. 

Tooiwindow.TransitionProcType:TYPE = proc[ 
window: old* new: Tooiwindow.State]; 

A tool’s TransitionProcType is called to notify a tool whenever a user action causes Tajo to 
change the tool’s state (see Tooiwindow.State above). TransitionProcs are often used to free 
some of a tool’s resources when its state changes. 

ToolWindow. When; TYPE = {before* after}; 

Tooiwindow.WindowType: TYPE = {root* tool* clipping* sub* other}; 

Whereas the Window interface allows arbitrary window tree structures to be created, 
ToolWindow restricts the types of window trees that can be created and imposes specific 
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semantics on those trees. A ToolWindow tree consists of a root level, a tool window level, a 
clipping window level, and (optionally) subwindow levels. 

root window is the underlying bitmap. 

tool window is referred to in this document as a tool window. 

clipping window is associated with each tool window, where the clipping window is the 
child of the tool window. Clipping windows prevent subwindows from obscuring 
their parents; they should be of no concern to clients. 

sub windows are subwindows of tool windows, 

Other windows are all lower levels. 

21.2 Constants and data objects 

ToolWindow. nullBox: ToolWindow. Box s [[0, 0], [0« 0]]; 


21.3 Signals and errors 

None. 

21.4 Procedures 

ToolWindow.Activate: proc [window: Tooiwindow.Handlel; 

Activate activates a tool; that is, changes its state to active. The tool’s transition 
procedure is called to allow it to respond to the change in state. 

Toolwindow.Create: proc [ 

name: long string, adjust: ToolWindow.AdjustProcType, 
transition: Tooiwindow.TransitionProcType, 
box: ToolWindow.Box ToolWindow.nullBox, 

limit: Toolwindow.LimitProcIype ^-Tooiwindow.StandardLimitProc, 
initialState: Tooiwindow.State active, named: boolean 4-true, 
gravity: window.Gravity ^ nw] 

RETURNS [Tooiwindow.Handlel; 

Create creates an empty tool window with the indicated box. If box is nullBox, Tajo uses 
the normal box allocator to assign a box to the tool. If named is true, the window will have 
a black band across the top that displays name. initialState is the State with which the 
window is created. (See AdjustProcType, TransitionProcType, and LimitProcType above 
for explanations of the meaning of these parameters.) gravity is the Window.Gravity that 
Tajo should use when changing the size of the tool window. 

TooiWindow.CreateSubwindow: proc [ 

parent: ToolWindow.Handle,display: Toolwindow.DisplayProcType 4 -nil, 
box: ToolWindow.Box 4- ToolWindow.nullBox, gravity: window.Gravity 4— nw] 

RETURNS [Tooiwindow.Handlel; 
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Subwindows are normally created by the client to simplify window manipulations. A 
subwindow is a box (a rectangle defined by an x, y and a width and height) within the the 
parent tool’s clipping window (i.e., within that box occupied by the tool, but not including 
its borders or name stripe). The subwindow is clipped at its parent’s clipping window so 
that it does not obscure the parent. However, a subwindow can extend ''outside” the 
parent’s window (it is legal for a subwindow’s box to have a negative x, or a height greater 
than that of the window); only those bits within the parent’s clipping window are 
displayed. 

CreateSubwindow creates a new subwindow object with the indicated box within its 
window and links it into the parent window’s chain of subwindows. The display procedure 
is called whenever the content of the window needs to be refreshed onto the bitmap 
display. For all Tajo-supplied subwindow types, display procedures are automatically 
supplied at create time. (See also EnlinkSubwindow and DelinkSubwindow.) 

ToolWindow. Deactivate: proc (window: Tooiwindow. Handle] returns [aborted: boolean]; 

Deactivate changes a tool’s state to inactive. The window’s transition procedure is called to 
respond to the state change. Deactivate notifies subsystems that depend on 
Event.toolWindow first. If the event is aborted, the tool is not deactivated, and Deactivate 
returns FALSE. 

ToolWindow. DelinkSubwindow: proc [child: Tooiwindow.Handle]; 

DelinkSubwindow removes the subwindow and its children from the window structure. 
This procedure is not normally called by Tajo clients. 

ToolWindow. Destroy: proc [window: Tooiwindow.Handle]; 

Destroy destroys both tool windows and subwindows. 

ToolWindow.DrawNameFrame: ToolWindow.DisplayProcType; 

DrawNameFrame draws the tool’s name frame, which is the stripe containing the tool 
name at the top of the window. 

Tooiwindow.DrawRectangle: proc[ 

window: Tooiwindow.Handle, box: ToolWindow. Box, width: cardinal 1]; 

DrawRectangle paints the outline of a rectangular box with dimensions box. width is the 
width (in pixels) of the rectangle’s border. 

ToolWindow. EnlinkSubwindow: proc [parent, child, youngerSibling: Tooiwindow.Handle]; 

EnlinkSubwindow links the subwindow into parent’s subwindow chain in the indicated 
position. This procedure is not normally used by Tajo clients, as subwindows are linked 
upon creation. 

Toolwindow.EnumeratelnactiveWindows : proc [proc: Tooiwindow.EnumerateProcType]; 
EnumeratelnactiveWindows enumerates the tool windows on the Inactive menu. 
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Toolwindow.EnumerateSWs: proc [ 

window: window.Handle, proc: Toolwindow.EnumerateSWProcType]; 

EnumerateSWs enumerates all the subwindows within a tool window. 
Toolwindow.GetAdjustProc: proc[ 

window: Tooiwindow.Handle] returns [Tooiwindow.AdjustProcType]; 

GetAdjustProc returns the AdjustProcType associated with a tool window. 

Tooiwindow. GetBox: PROC [window: Tooiwindow. Handle] returns [Tooiwindow.B ox]; 

GetBox returns the tool window’s box. 

Tooiwindow. GetCiippedOims: proc [window: Tooiwindow. Handle] returns [window. Dims]; 

GetClippedDims returns the dimensions of the window for the tool in its active state. The 
tool need not be active when this procedure is called. 

ToolWindow.GetGravity: proc [ 

window: Tooiwindow.Handle] returns [gravity: window.Gravity]; 

GetGravity returns the gravity used to change the tool window's size. 

Tooiwindow. GetInactiveName: proc [ 

window: Tooiwindow. Handle] returns [name: long string]; 

GetInactiveName returns the name that the tool will be given when it becomes inactive 
(see SetName). This is the name that is entered in the inactive menu when the tool is 
deactivated. It is the client's responsibility to free the string returned by this procedure to 
the system heap. 

Tooiwindow. GetLimitProc: proc[ 

window: Toolwindow.Handle] returns [Tooiwindow.LimitProcIype]; 

GetLimitProc returns the LimitProcType associated with the tool window. 

Toolwindow.GetName: proc [window: Toolwindow.Handle] returns [name: long string]; 

GetName returns the name of the tool. The client must free the string returned by this 
procedure to the system heap. 

ToolWindow.GetNameStripe: proc[ 

window: Toolwindow.Handle] returns [ToolWindow.OnOff]; 

GetNameStripe returns the state of the name stripe, on or off. 

Tooiwindow.GetState: proc [window: Toolwindow.Handle] returns [state: Tooiwindow.State]; 
GetState returns the state of a tool window. 


21-5 




21 


ToolWindow 


ToolWindow.GetTinyName: proc ( 

window: Tooiwindow. Handle] returns [name, name2: long string]; 

GetTinyName copies the tiny name of the window into two strings allocated from the 
system heap. It is the client’s responsibility to free these strings. 

Toolwindow.GetTinyPlace: proc [ 

window: Tooiwindow. Handle] returns [place: Tooiwindow. Place]; 

GetTinyPlace returns the place of the tool window when it is in its tiny state. The tool need 
not be tiny at the time this procedure is called. 

Tooiwindow. GetTransitionProc: proc [ 

window: Tooiwindow.Handle] returns [Tooiwindow.TransitionProcType]; 

GetTransitionProc returns the TransitionProcType associated with the tool window. 

ToolWindow.Hide: proc [window: Tooiwindow. Handle]; 

Hide removes window from the group of windows displayed on the bitmap. This 
procedure is not normally called by Tajo clients. 

Tooiwindow. IsPlaceInWindow: proc [ 

place: Tooiwindow. PI ace, window: Tooiwindow. Handle] returns [boolean]; 

IsPlacelnWindow returns true if place is within window; otherwise it returns false. 

ToolWindow.MakeSize: proc [window: Tooiwindow.Handle, size: Toolwindow.Size]; 

MakeSize changes the size of a tool window. 

Toolwindow.SetAdjustProc: proc[ 

window: Tooiwindow.Handle, proc: Tooiwindow. AdjustProcType] 

RETURNS [old:Tooiwindow.AdjustProcType]; 

SetAdjustProc makes proc the AdjustProc for a tool window and returns the old one. 

Tooiwindow. SetBox: PROC [window: Tooiwindow.Handle, box: Tooiwindow. Box]; 

SetBox changes the size and position of a tool window. 

Tooiwindow. SetBoxAllocator: proc [normal, tiny: Tooiwindow. BoxProcType]; 

SetBoxAllocator registers procedures that determine where to display the tool upon 
creation. 

ToolWindow.SetGravity: proc [window: Toolwindow.Handle,gravity: window.Gravity]; 
SetGravity sets the gravity of a tool window. 
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ToolWindow.SetLimitProc: proc[ 

window: Tooiwindow, Handle, proc: Toolwindow.LimitProc] 

RETURNS [old: Tooiwindow.LimitProcIypel; 

SetLimitProc associates proc with the tool window and returns the old LimitProc. 

Toolwindow.SetName: proc [window: Toofwindow.Handle, name: long string]; 

SetName procedure changes the text of the menu entry placed on the Inactive menu when 
the tool is inactive. 

ToolWindow.SetNameStripe: proc [window: Tooiwindow.Handle, onOff: Tooiwindow.OnOff]; 
SetNameStripe sets the state of the name stripe on or off. 

Tooiwindow. SetTinyName: proc [ 

window: Tooiwmdow.Handle, name: long string, name2: long string nil]; 

SetTinyName changes the text that is displayed when the window is tiny, name is the first 
line of text and name2 is the second. 

Toolwindow.SetTinyPlace: proc [window: Tooiwindow.Handle, place: Tooiwindow.Place]; 

SetlinyPlace dictates where the tool will be positioned when it is tiny. 

Tooiwindow. SetTransitionProc: proc [ 

window: ToolWindow.Handle, proc: Toolwindow.TransitionProcIype] 

RETURNS [Tooiwindow.TransitionProcIype]; 

SetTransitionProc associates proc with the tool window and returns the old 

TransitionProc. 

Tooiwindow.Show: PROC [window: ToolWindow.Handle]; 

Show causes window and its subtree of windows to be displayed. It should be called after 
a tool window is set up. 

Tooiwindow. StandardLimitProc: Tooiwindow. LimitProcType; 

StandardLimitProc performs the normal Tajo window-limiting operations. These prevent 
a window from being moved off the bitmap and prevent a tool from being made smaller 
than a tiny window. 

ToolWindow.Type: PROC [ 

window: ToolWindow.Handle] returns [type: Toolwindow.WindowType]; 

The Type procedure tells you the type of the window. 

ToolWindow.WindowForSubwindow: proc [ 

sw: ToolWindow.Handle] returns [window: ToolWindow.Handle]; 

WindowForSubwindow returns the tool window of a subwindow. 
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Window and subwindow building 


Windows and subwindows are the most basic building blocks for tools in the XDE system. 
The interfaces described in this section are lower level than those described in the 
previous section (Tool building). In particular, those interfaces were built using these 
interfaces. 

IILl The window package 

The window package provides procedures that enable the client to display data by 
whitening and blackening the bits in the window. These include procedures for painting 
characters and strings and blackening, whitening, or graying boxes. The window package 
also provides procedures for copying arrays of bits and brush-and-trajectory painting, 
which allows graphics curves to be easily drawn. (See the Display interface.) 

A window is conceptually an instance of an abstract window object. The window package 
obtains storage for window objects from Tajo. Contact the Tajo implementors if you must 
allocate your own window objects. 

Each window object contains a client-supplied display procedure, which, on demand, will 
repaint all or part of the window. This procedure is invoked by the window package, for 
instance, when a window that was obscured by an overlapping window suddenly becomes 
more visible. However, clients should not call their display procedure directly. Instead, 
they should update their data, call InvalidateBox to mark part or all of the window 
invalid, and then call Validate to indicate to the window package that any invalid areas 
should be validated by calling the window's display procedure. 

The window package allows clients to supply bitmap unders. These are blocks of memory 
used to maintain the bits that would appear in the bitmap where a window is if the 
window and the windows covering it did not exist. The window package can then fix up the 
bitmap without calling the display procedure of all the windows (partially) hidden by this 
one when it is removed from the tree. Menus can thus appear and disappear quickly. 
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The window package that implements the Window interface is passive, responding only to 
calls from the client's program. It creates no processes and allocates almost no storage. 


IILl.l Windows 

Windows overlap other windows and may be manipulated even when they are under other 
windows. Windows are contained within their parent’s rectangular regions: if they would 
stick out of their parent, their display is trimmed at their parent’s edge. 

For instance, the Window interface defines the window management package that is used 
by Tajo. The Window interface manipulates a tree of windows. There is one root window 
(at level ''zero”) that is always equated to the visible bitmap and that supplies the 
background gray. Any window may have child windows contained within it. Child 
windows obscure their parent; that is, they are above their parent in the apparent stack of 
windows visible on the screen. Sibling windows may overlap: the eldest sibling-the one 
that appears first in the list-is the sibling on top of the stack. The Window interface 
contains routines for creating and destroying windows, for arranging them, and for 
displaying data within them. 

Windows occupy (possibly overlapping) rectangular regions of the display. A window’s 
location and size are defined in terms of its parent’s location. The root window is always at 
bitmap location [0,0] even though its box.place may not be [0,0]. The box.place of 
rootWi ndow is the screen place of the bitmap origin*routines. 

Arbitrary scrolling can be implemented quite simply by imbedding a window (the one that 
paints the data to be scrolled) within another window (the "frame”) and then just altering 
the position (y coordinate for vertical scrolling) of the former within the latter; routines 
are provided that will perform the appropriate BiTBLTs to minimize the area to be painted. 

Within a window as shown on the bitmap, sections of bits may become incorrect because of 
external circumstances-for example, because a window that was hiding them was just 
deleted. The window package accumulates these invalid areas and then calls the client’s 
display procedure to adjust them. 

Normally, when the client is called to paint the invalid area(s), there are no bits in the 
area that are black but should be white (the window package has possibly cleared the area 
to ensure this) so the repaint procedure can use "or” functions. If the client knows that its 
repaint procedure always sets all the bits in the area(s), it indicates this in the window 
object, which may save the window package from performing unnecessary clearings. 

When a window is being validated, a bad phosphor list is set up for it just before its display 
procedure is called. This list consists of the visible portions of the window’s invalid areas. 
When there is a bad phosphor list for a window, any painting done to that window will be 
clipped to the list. This lets the client avoid calls to EnumerateInvalidBoxes to find exactly 
which regions need repainting. So, for example, if the window provides a gray background 
in a particular area, the display procedure may call Display.Gray for the entire region that 
the gray background should appear in. This guarantees that valid areas of the window 
will not be overwritten. window.FreeBadPhosphorList causes this bad phosphor list to be 
ignored. 
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III.2 Sources and sinks 

Sources and sinks are interfaces for data input and output. For instance, a source need not 
be dealt with as a particular structure, such as a disk file or a teletype, but can be thought 
of as a source of input (such as the backing store for screen display). Similarly, a sink can 
be thought of as a generic place to send output. 

There are only two pre defined sinks in XDE, AsciiSink and TextSink; most kinds of data 
can be put into those categories. AsciiSink is a special case of TextSink. There are several 
different sources, however. The interface TextData consists of data types shared by sources 
and sinks. 

Advanced programmers may want to create sources and sinks to use as backing storage 
and output for their own text subwindows. For example, a source that maintains text 
attributes along with the text is required to display text in various fonts. 

IIL3 Interface abstracts 

IIL3.1 Windows 

Context allows clients to associate data with windows. It is used by clients that implement 
their own window types. 

Display provides facilities for display in windows. 

III.3.2 Subwindows 

Caret allows clients to implement and manage a blinking caret that marks the insertion 
point in editable windows. 

Cursor manipulates the appearance of the cursor that represents the mouse position on the 
screen. 

Menu provides the menu facility used by many tools for simple command invocation. It 
gives a client control over which menus the user sees and what actions an individual menu 
item performs. 

Scrollbar provides a mechanism for specifying and invoking scroll actions, maintaining a 
consistent user interface for them. 

Selection allows clients to manipulate the current selection; that is, the text or graphics 
designated by the user and highlighted on the screen. 

ToolFont provides Tajo’s interface to the WindowFont facilities, including font storage 
management. 

WindowFont converts .strike fonts into a representation more convenient for the 
Window package to display characters. 
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11 [.3.3 Sources and sinks 

AsciiSink implements a text sink that outputs Ascii text. (Text sinks are defined by the 
interface TextSink.) 

BlockSource creates a text source backed by a block of Ascii characters. 

DiskSource creates a text source backed by a stream or a file in the local file system. 

PieceSource creates a text source backed by a piece table maintained on a text source. 

ScratchSource creates a text source backed by a block of virtual memory containing Ascii 
characters. 

StringSource creates a text source backed by a long string containing Ascii text. 

TextData provides the definitions of data types that a few procedures in TextSW and 
FormSW need. It is not of interest to most clients. 

TextSink defines a sink for text that is displayed in a window. Text sinks help isolate Tajo’s 
uniform text display, selection, and editing facilities from the representation of text. It is 
intended for clients that have other than Ascii representation of information. The 
standard interface AsciiSink is provided for normal clients and is used as the default. 

TextSource defines a source for text that is displayed in a window. Sources help isolate 
Tajo’s uniform text display, selection, and editing facilities from the representation of text. 
It is intended for clients that wish to maintain their own data structures to be displayed in 
a window. 
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When a tool performs various functions, it may wish to save and retrieve state from one 
notification to the next. This is an immediate consequence of the notification scheme, for a 
tool cannot keep its state in the program counter without stealing the processor after 
responding to an event. Thus a tool must explicitly store its state in data. Because most 
notification calls to a tool provide a window or subwindow handle, it is natural to associate 
these contexts with windows. The context mechanism is an alternative to the tool’s having 
to build its own associative memory for retrieving its context, given a window handle. 


22.1 Types 


Context.Type: TYPE = MACHINE DEPENDENT{ 

all(0),first(1), lastAllocated(37737B), laSt(37777B)}; 

Type is unique for each client of the context mechanism. An argument of this type is 
passed to most of the procedures in this interface so that the correct client data can be 
identified. 

Context.Data: TYPE = long pointer TO unspecified; 

Data, the value that a client may associate with each window, is typically a pointer to a 
record containing the client’s state for some window. 

context.CreateProcType: type = 

procedure returns [Context.Data. Context.DestroyProcType]; 

CreateProcType is used by FindOrCreate. The procedure passed in as an argument to 
FindOrCreate is called to create a context only if a context of the appropriate type cannot 
be found. 

Context.DestroyProcType: type = procedure [Context.Data. window.Handle]; 

A DestroyProcType is passed to Create so that the client can be notified when the context 
should be destroyed. It may be the result of the window being destroyed. 
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22.2 Constants and data objects 


None. 


22.3 Signals and errors 

Context.Error: ERROR [code: Context.ErrorCode]; 

Error is the only error raised by any of the Context procedures. 

Context.ErrorCode: type =s {duplicateType, windowlsNIL, tooManyTypes, other}; 

duplicateType is raised by Create if there is already a context of the given type on the 
window passed as an argument. 

windowlsNIL is raised if the client has passed in a nil window. 
tooManyTypes is raised if UniqueType has been called too many times. 

22.4 Procedures 

Context.Acquire: PROCEDURE [type: Context.Type, window: window,Handle) 

RETURNS [Context-Data]; 

The procedure Acquire retrieves the data field from the specified window, nil is returned if 
no such context exists on the window. It also locks the context object so that no other calls 
on Acquire or Destroy with the same type and window will complete until the context is 
freed by a call on Release. 

Context. Create: procedure [ 

type: Context.Type, data: Context.Data, proc: Context,DestroyProcType, 
window: window.Handle]; 

The procedure Create creates a new context of type type that contains data. The context is 
associated with the indicated window; it is said to **hang'* on the window. If window 
already possesses a context of the specified type, the error Error[duplicateType] is raised. 
If the window is nil, the error Error[windowlsNIL] is raised. The proc is supplied so that 
when the window is destroyed, all the context data can be destroyed (deallocated) in an 
orderly way. 

Context.Destroy: PROCEDURE [type*. Context.Type, window; Window.Handle); 

The procedure Destroy destroys a context of a specific type on window. If the context 
exists on the window, it calls the DestroyProcType for the context being destroyed. 

Context. Destroy All: procedure [window: window.Handle]; 

The procedure Destroy All destroys all the contexts on window. DestroyAll can be very 
dangerous because Tajo keeps its window-specific data in contexts on the window. DestroyAll should not be used 
except in special circumstances. It is called by the routines that destroy windows. 
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Context.Find: PROCEDURE [type: Context.Type, window: window.Handle) 

RETURNS [Context.Data]; 

The procedure Find retrieves the data field from the specified context for window, nil is 
returned if no such context exists on the window. 

Context.FindOrCreate. procedure [ 

type: Context. Type, window: window. Handle, createProc: Context. CreateProcType] 

RETURNS [Context.Data); 

The procedure FindOrCreate resolves the outcome of the race that occurs when creating 
new contexts in a multi-process environment. If a context of type type exists on window, 
it returns the context's data; otherwise, it creates a context of type by calling createProc 
and then return data. If the window is nil, the ERROR Error[windowlsNIL] is raised. 

Context.NopDestroyProc: Context.DestroyProcType; 

The procedure NopDestroyProc does nothing. It is provided as a convenience to clients 
that do not want to create their own '’do-nothing” DestroyProcType to pass to Create. 

Context.Release: procedure [type: Context.Type, window: window.Handle); 

The procedure Release releases the lock on the specified context object for window that 
was locked by the call on Acquire. If the specified context cannot be found or if it is not 
locked, Release is a no-op. 

Context.Set: PROCEDURE [ 

type: context.Type, data: Context.Data, window: window.Handle); 

The procedure Set changes the actual data pointer of a context. Subsequent Finds return 
the new data. The client can change the data pointed to by the data field of a context at 
any time. Race conditions could occur if multiple processes are doing Finds for the same 
context and modifying the data. It is the client’s responsibility to monitor the data in such 
cases. If the window is nil, the error Error[windowlsNIL] is raised. 

Context.SimpleDestroyProc: Context.DestroyProcType; 

The procedure SimpleDestroyProc merely calls the system heap deallocator on the data 
field. It is provided for clients whose context data is a simple heap node in the system zone. 

Context.UniqueType: procedure returns [type: Context.Type); 

The procedure UniqueType is called if a client needs a unique Type not already in use 
either by Tajo or by another client. If no more unique types are available, the error 
Error[tooManyTypes] is raised. 

22.5 Discussion 

Acquire and Release can be used in much the same way as a Mesa monitor. It is important 
that the client call Release for every context that has been obtained by Acquire; this is not 
done automatically. The cost of doing an Acquire is barely more than entering 
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MONITOR and doing a Find. Using this technique allows the client to monitor its data rather 
than its code. 

If it is necessary for several tools to share global data, it is possible to place a context on 
Window. rootWindow that is never destroyed, even when the bitmap is turned off. To share 
a Context. Type without having to EXPORT a variable, you can use one in the range 
(lastAllocated..last]. Contact the support organization to have one allocated to you. 
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The Display interface provides routines for painting into windows on the user’s screen. 
(See Window for details of the Tajo window package.) Unless stated otherwise, all 
procedures that paint to the screen clip to the window’s bad phosphor list. (This list is 
explained in the Window chapter.) 

Some procedures in this interface are not available in the released boot file. DisplayImpI 
must be loaded before these procedures can be called. 


23.1 Types 

oispiay.BreakReason: TYPE * {normal, margin, stop}; 

BreakReason is returned by Block, MeasureBlock, and ResolveBlock to indicate why these 
procedures terminated. 

normal all data is displayed. 

margin the next character overlaps the margin. 

stop the next character has no representation in the font. 

Display.Brick: type = long DESCRIPTOR FOR array OF cardinal; 

Bricks are used by Gray and Trajectory to describe a gray pattern with which to tile a 
window. The maximum size of a Brick is 16 words; each word is one row of the pattern. 

Display.TrajectoryProc: type = PROc[window.Handle] returns [window.Box, integer]; 

TrajectoryProc is the type of the procedure that is passed to Trajectory. When called, the 
procedure should return a small area within the window where painting should occur. 
Think of it as a "brush stroke.” 
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23.2 Constants and data objects 

Display.fiftyPercent: Brick 
This is a 50% gray pattern. 

Display.infinity: integer = integer.last; 

infinity is used as an argument to the Block and Text routines. It indicates that the 
operation should terminate at the right edge of the window. 

oisplay.paintGrayFlags, bitFlags: BitBltBitBItFlags s [ 

direction: forward, disjoint: true, disjointitems: true, gray: true, 
srcFunc: null, dstFunc: or, reserved: 0]; 

oisplay.replaceGrayFlags, boxFiags: BitBltBitBItFlags s [ 

direction: forward, disjoint: true, disjointitems: true, gray: true, 
srcFunc: null, dstFunc: null, reserved: OJ; 

oispiay.xorGrayFlags, xorBoxFiags: BitBltBitBItFlags s [ 

direction: forward, disjoint: true, disjointitems: true, gray: true, 
srcFunc: null, dstFunc: xor, reserved: 0]; 

oisplay.replaceFlags: BitBltBitBItFlags a [ 

direction: forward, disjoint: true, disjointitems: true, gray: false, 
srcFunc: null, dstFunc: null, reserved: 0]; 

Display.textFlags, paintFlags: BitBltBitBItFlags a [ 

direction: forward, disjoint; true, disjointitems; false, gray; false, 
srcFunc: null, dstFunc: or, reserved: Oj; 

Display .xorFlags: BitBltBitBItFlags a [ 

direction: forward, disjoint: TRUE, disjointitems: FALSE, gray: FALSE, 
srcFunc: null, dstFunc: xor, reserved: OJ; 

BitBit.BitBitFlags are passed into several display procedures; they control what actually 
happens on the display. These flags are provided for some of the most common cases; they 
include painting, replacing, and xORing of text, bits, and gray patterns. Use 
Oisplay.paintGrayFlags to paint black, oisplay.replaceGrayFlags to paint white, and 
Oispiay.xorGrayFlags to invert. These flags are documented further in the Mesa Processor 
Principles of Operation. 

23.3 Signals and errors 

None. 
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23.4 Procedures 


Display.Arc: PROC[ 

window: window.Handle, place: Window.Place, radius: integer, 
startSector, stopSector: cardinal, start, stop: window.Place, 
bounds: window.BoxHandle 4-nil]; 

Arc displays a portion of a circular arc centered at place of radius in window. The arc goes 
from start in the startSector to stop in the stopSector. Sectors are simply octants 
numbered from 1 to 8, starting with I at NNE going clockwise. The arc is clipped to the 
window.Box described by bounds; a bounds of nil clips the arc at window’s bounding box. 

This procedure is not available in the released boot file. Displaylmpl must be loaded before it can be called. 

oispiay.BitAddressFromPlace: proc [ 

base: eiteit.BitAddress, x, y: natural, raster: cardinal] 

RETURNS [BitBit.BitAddress]; 

BitAddressFromPlace returns the BitBit.BitAddress of the (x, y) coordinates in the bitmap 
described by base, raster is the number of bits per line in the bitmap This procedure is 
provided as a utility to calculate the address parameter to Display. Bitmap. 

Display. Bitmap: proc[ 

window: window. Handle, box: window.Box, address: BitBit.BitAddress, 
bitmapBitWidth: cardinal, flags: BitBit.BitBItFlags 4- Dispiay.paintFlags]; 

Bitmap paints the bitmap described by address and bitmapBitWidth into box in window, 
using flags to control the interaction with bits already displayed in the window, 
box.dims.w should be less than or equal to bitmapBitWidth. This procedure may also be 
used instead of Display.Gray to display a gray pattern that is not aligned relative to the 
window origin. 

Display. Black: PROC [window: window.Handle, box: Window.Box]; 

Black makes the region of window described by box black. 

Display.Block: PROC[ 

window: window.Handle, block: Environment.Block, 
lineLength: integer 4- oispiay.infinity, place: window.Place, 
font: WindowFont.Handle 4- nil, flags: BitBit.BitBItFlags 4- Display.textFlags, 
bounds: window.BoxHandle 4— nil] 

RETURNS [newPlace: window.Place, positions: cardinal, why: Dispiay.BreakReason]; 

Block is used to display a block of characters in a window, block describes the block of 
characters to be displayed. The characters are painted into window starting at place. The 
total width of the characters painted will not exceed lineLength. If lineLength is 
Oispiay.infinity, characters will be painted up to (but not past) the right edge of the window. 
Painting will also stop if block is consumed or a character is encountered that is not 
represented in font, font is the character font to be used; if font is nil, the default font will 
be used. (See windowFont.SetDefault.) flags is used to affect how the bits are painted into 
the window, bounds is an optional box to which the text should be clipped. newPlace is 
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where the next character would have been painted, positions is the number of characters 
painted, why is the reason painting was stopped. 

Display.Character: proc [ 

window: window.Handle, char: character, place: Window.Place, 
font: windowFont.Handle nil, flags: sitBit.BitBltFlags oispiay.textFlags, 
bounds: window.BoxHandle ^ nil] 

RETURNS [Window.Placej; 

Character displays a single character. If the character has no representation in font, the 
special undefined character in the font will be displayed, bounds is an optional box to 
which the character should be clipped. The returned window. Place is where the next 
character should be displayed. 

Display.Circle: proc[ 

window: window.Handle, place: window.Place, radius: integer, 
bounds: window.BoxHandle <-nil]; 

Circle displays a circle centered at place of radius in window. The circle is clipped to the 
Window. Box described by bounds; a bounds of nil clips the circle to window’s bounding 

box. This procedure is not available in the released boot file. DisplayImpI must be loaded before it can be called. 

Display.Conic: PROC[ 

window: window.Handle, a, b, c, d, e, errorTerm: long integer, 
start, stop, errorRef: window.Place, 

sharpCornered, unboundedStart, unboundedStop: boolean, 
bounds: window. BoxHandle ^nil]; 

Conic displays the portion of the curve of the equation ax2 + by2 -f ccy +dx + ey + /“= 0 
in window from start to stop. Instead of passing in the last coefficient, /*, this procedure 
takes the errorTerm resulting from substituting start into the equation. If the conic 
contains points whose radius of curvature is less than or equal two pixels, it must be 
displayed using multiple calls with sharpCornered boolean true; otherwise 
sharpCornered should be false. These ”sharp~cornered” conics must be broken up into 
segments where the corners become a new segment’s start and stop points. For example, a 
very long skinny ellipse must be displayed in two pieces. errorRef and the booleans 
unboundedStart and unboundedStop are ignored. The curve is clipped to the window.Box 
described by bounds; a bounds of nil clips to the window’s bounding box. This procedure is not 
available in the released boot file. DisplayImpI must be loaded before it can be called. 

Display.Ellipse: PROC[ 

window: window.Handle, center: window.Place, xRadius, yRadius: integer, 
bounds: window.BoxHandle 4- nil]; 

Ellipse only displays ellipses with axes parallel to the x-y coordinate system centered at 
center with an x radius of xRadius and a y radius of yRadius in window. The ellipse is 
clipped to the Window.Box described by bounds; a bounds of nil clips the ellipse to 
window’s bounding box. Other types of ellipses must be displayed with the Display.Conic 
procedure. This procedure is not available in the released boot file. DisplayImpI must be loaded before it can be 
called. 
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Display. Gray: proc[ 

window: window.Handle, box: window.Box, gray: Brick 4- Display.fiftyPercent, 
dstFunc: Biteit.DstFunc ^ null]; 

Gray paints the the gray pattern described by gray into the box region of window. dstFunc 
affects how the bits are painted into the window. The gray pattern is aligned relative to 
the window origin. 

Display. Invert: PROC [window: window.Handle, box: window.Box]; 

Invert inverts the box region of window. 

Display.Line: PROC[ 

window: window.Handle, start, stop: window.Place, 
bounds: window. BoxHandle ^ nil]; 

Line displays a single pixel-wide line from start to stop in window. The line is clipped to 
the window.Box described by bounds; a bounds of nil clips the line to window’s bounding 

box. This procedure is not available in the released boot file. DisplayImpI must be loaded before it can be called. 


Display. MeasureBlock: proc[ 

window: Window.Handle, block: Environment.Block, 
lineLength: integer oispiay.infinity, place: window.Place, 
font: windowFont.Handle ^nil] 

RETURNS [newPlace: window.Place, positions: cardinal, why: Display. BreakReason]; 

MeasureBlock is used to measure the length of a block of text if it were painted to the 
screen. The arguments and return values are the same as described by oispiay.Block. 

Dispiay.Point: PROC [window: window.Handle, point: window.Place]; 

Point turns a single pixel black at point in window, if it is visible. 

oisplay.ResolveBlock: proc[ 

window: window.Handle, block: Environment.Block, 
offsets: LONG pointer to array cardinal [0. . 0) OF CARDINAL, 
font: windowFont.Handle <“NIl] 

RETURNS [positions: cardinal, why: Dispiay.BreakReason]; 

ResolveBlock is used to determine the locations of characters in a block of text. The offset 
of the left edge of each character in block is stored into offsets. It is the client’s 
responsibility to ensure that this array is long enough to hold the offsets of all the 
characters in block. This procedure terminates either because it has reached the end of 
block (why = normal) or it has reached a character that has no representation in font 
(why = stop). In either case, positions is the number of characters processed. 

Display.Shift: proc[ 

window: window.Handle, box: window.Box, newPlace: window.Place]; 

Shift does a bitblt-style move of part of the window contents, box describes the region of 
window to be moved to newPlace. This call may produce invalid areas within the window 
(bits that should be moved into visible areas of the window but are not available because 
they have either been clipped or obscured). To avoid difficulties with the client’s display 
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procedure, it is not called; this call simply leaves the window marked invalid. It is the 
client's responsibility to call Window.Validate or windoweValidateTree as soon as it has 
corrected its data structures to reflect the call. Shift does not invalidate the areas where 
the box has been moved "'from.” If they should be repainted, invalidating them is the 
client's responsibility. Shift does not clip the actual region painted to window's bad 
phosphor list (see the Window chapter for an explanation of the bad phosphor list.) 

Display.Text: PROC[ 

window: window. Handle, string: long string, place: window. Place, 

font: windowFont. Handle nil, lineLength: integer c- DisplayJnfinity, 

flags: BitBitBitBItFlags ^ oispiay.textFlags, bounds: Window. BoxHandle ^ nil] 

RETURNS [newPlace: Window.Place]; 

Text uses a single call on Display. Block to paint characters from string at place in window. 
The value returned is the window-relative place where the next character should go. Note 
that the string is painted only up to the first character that is not represented in font. 

Display.TextInline: proc[ 

window: window.Handle, string: long string, place: window.Place, 

font: windowFont.Handle ^ nil, lineLength: integer ^ infinity, 

flags: Biteit.BitBltFlags oispiay.textFlags, bounds: window.BoxHandle ^nil] 

RETURNS [window.Place] = INLINE { 

RETURN[0isplay.Bl0ck[ 

window, [LOOPHOLE[@string. text], 0, string.length], lineLength, place, 
font, flags, bounds].newPlace]}; 

Textinline is an inline version of Display.Text provided for clients who are willing to trade 
some code space in their own module to avoid an extra procedure call at run time. 

Display.Trajectory: proc [ 

window: Window.Handle, box: window.Box ^ window.nullBox, 
proc: Dispiay.TrajectoryProc, source: long pointers-nil, bpi: cardinals- 16, 
height: cardinal 16,flags: BitBitBitBItFlags ^ oispiay.bitFlags, 
missesChildren: boolean false, brick; Display.Brick ^nil]; 

Trajectory is designed to avoid much of the overhead of successive calls to the normal 
display routines, window is the window of interest, box is the window region where 
painting might occur; the client promises it will not try to paint outside this area, proc is 
the client procedure that, when called, repeatedly returns a window-relative box in which 
painting should occur (think of it as a brush stroke) and the x-offset into the client's source 
data. To end the trajectory, proc should return window.nullBox. The client may wish to 
alter the brush shape along the trajectory by defining the source bitmap as a wide one 
with several different brush shapes in it and then returning the x-offset into the source 
bitmap with the brush-box. flags is used to describe the type of painting that should be 
performed on each small area. The use of this argument is similar to Display.Bitmap, brick 
is a gray brick to be used if flags.gray is true. (This is described in more detail for 
Display.Gray.) missesChildren is unused. 

Display.White: procedure [window: Window.Handle, box: window.Box]; 

White makes the region of window described by box white. 
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The Window interface defines the window management package that Tajo uses. These 
procedures are mostly of interest to clients who are implementing their own subwindow 
types. (See Display for routines that paint into windows.) 


24,1 Types 


Window.Box: TYPE = RECORD [place: Window.Place, dims: Window.Dims]; 

Box describes a window-relative region, place describes the top left corner of the region, 
[place.x + dims.w, place,y + dims.h] describes the bottom right corner of the region. This 
point is actually outside the region described by the Box. 

Wmdow.BoxHandle:TYPE = LONG POINTER TO Box; 

window.Clarity: TYPE = {isClear, isDirty}; 

Clarity is used by a client of InvalidateBox to indicate whether an invalid region is known 
to be white. 

isClear window package believes that the region is all white and performs no 

clearing. 

isDirty window package believes that the region is not all white and clears it. 

Window.Dims: TYPE = RECORD [w, h: INTEGER]; 

Dims is the size of a window, w is the the number of pixels in the window’s width, h is the 
the number of pixels in the window’s height. 

window.Gravity: TYPE = {nil, nw, n, ne, e, se, s, sw, w, c, xxx}; 

Gravity indicates what to do with the current contents of a window when it changes size, 
nil the contents stay in the same place on the bitmap. 
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nw, n, ne, e, se, s, sw, w the contents stay attached to the indicated compass point, 

which is either a corner or the middle of a side (e.g., for nw 
the contents stay in the upper-left corner). 

c the contents stay in the middle (i.e., trimming occurs 

equally at all edges). 

XXX no attempt is made to save the contents: the window is 

repainted. 

Window.Handle.TYPE = LONG POINTER TO Window. Object; 

Handle represents a window. 
window.MinusLandBitmapUnder. TYPE = [4] ; 

MinusLandBitmapUnder is provided for clients who need to allocate their own window 
objects. 

window.MouseTransformerProc: type = proc [window.Handle, window.Place] 

RETURNS [Window.Handle, Window.Place]; 

MouseTransformerProc is not supported in this release. 

Window.Object: TYPE = [18] 

Window.Place: TYPE = UserTerminal.COOrdinate; 

Place is a window-relative coordinate. 

window.UnderChangedProc: type = procedure [window.Handle, window.Box]; 
UnderChangedProc is not supported in this release. 

24.2 Constants and data objects 

Window.nul I Box: Window. Box = [[0,0], [0,0]]; 

nullBox is a zero-sized Box at the upper-left corner of a window. 

window.rootWindow: readonly window.Handle; 

rootWindow is the exported root of the window tree. It represents the entire display. 

24.3 Signals and errors 

window.Error: error [code: window.ErrorCode]; 

Error is the only error raised by any of the Window procedures. 
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Window. ErrorCode: type = {illegalBitmap. illegalFloat, windowNotChildOfParent, 
whosSlidingRoot, noSuchSibling, noUnderVariant,windowlnTree, 
sizingWithBitmapUnder, illegalStack}; 


illegalBitmap This error is never raised. 

illegalFloat The client passed illegal parameters to Float. 

windowNotChildOfParent The window passed as a parameter is not in the list of its 

parent’s children. This error can be raised by any 
procedure that deals with a window; that is, by most of the 
procedures in the Window interface. 


whosSlidingRoot The client has attempted to move the root window. 

noSuchSibling The client has requested a change to the window tree, 

asking that a window’s new sibling be a window that is not 
a child of its new parent. 


noUnderVariant 


A client has attempted to manipulate the bitmapUnder 
data of a window for which underVariant is false. 


window!nTree An attempt was made to use one of the "Set” procedures on 

a window that is currently a descendant of rootWindow. 
In most cases, you should use one of the 
SlideAndSizeAndStack procedures instead. 

sizingWithBitmapUnder A client has tried to change the size of a window that 

currently has a bitmap under^ 

illegalStack The client is attempting to move a window between 

parents, one of which is in the window tree and the other is 
not. 


24A Procedures 

window.BitmapPlace: proc [ 

window: window.Handle, place: window.Place <-[0,0] ] returns [window.Place]; 

BitmapPlace returns the bitmap-relative coordinates of place in window. 

Window. BitmapPlaceToWindowAndPlace: proc [bitmapPlace: window.Place] 

RETURNS [window: window.Handle, place: Window.Place]; 

Given a bitmap-relative place, bitmapPlace, BitmapPlaceToWindowAndPlace returns the 
most deeply nested window containing bitmapPlace and the window-relative coordinates 

of bitmapPlace. 

window.BoxesAreDisjoint: proc [a, b: window.Box] returns [boolean]; 

BoxesAreDisjoint returns true if and only if a and b do not intersect. 
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Window. EnuirieratelnvalidBoxes: proc [ 

window: window. Handle, proc: proc [window. Handle, Window. Box]]; 

EnumerateInvalidBoxes procedure calls proc for each of the invalid boxes of window; it 
should only be called from within window’s display procedure, window is passed through 
to proc as its first parameter. The second parameter to proc describes the region that is 
invalid. The invalid areas are clean unless the client has set clearingNotRequired for 
window; that is, there are no pixels in them that are currently black but should be white. 

window.EnumerateTree: proc [ 

root: Window.Handle, proc: proc [window: window.Handle]]; 

EnumerateTree calls proc for each window that is a descendant of root, root need not itself 
be a descendant of Window. rootWindow. The order of enumeration is not specified. 

Window.Float: proc [window, temp: window.Handle, 
proc: proc [window: window.Handle] 
returns [place: window.Place, done: boolean]]; 

Float changes window’s position and adjusts the display. It requires that window be a 
bitmap-under window. It also requires that the user supply for scratch storage a temp 
window with a bitmap under, exactly the same size as window but not in the window tree. 
Float repeatedly calls proc and does a continuous move to the new place as long as done is 
FALSE. The window is forced to the top of the sibling stack before the move begins. A new 
place that would require moving the window so it is not completely visible is a client error. 
ValidateTree is called to pick up the bits that must be on the bitmap when the window is 
moved away. This procedure can raise the error Error[illegalFloat]. 

window.FreeBadPhosphorList: proc [window: Window.Handle]; 

FreeBadPhosphorList forces the window package to ignore window’s bad phosphor list 
when painting to it. 

window.GetBitmapUnder: proc [window: window.Handle] returns [long pointer]; 

GetBitmapUnder returns a long pointer to the bitmap-under data for window, window 
must be a bitmap-under variant or Error[noUnderVariant] will be raised. If there is no 
current bitmap-under pointer, this procedure returns nil. 

Window.GetBox: proc [Window.Handle] returns [window.Box]; 

GetBox returns the current Box for a window. 

Window.GetChild: proc [window.Handle] returns [window.Handle]; 

GetChild returns the window’s topmost (eldest) child. 

window.GetClearingRequired: proc [window.Handle] returns [boolean]; 

GetClearingRequired returns the current value of the clearing-required flag for a window. 
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Window.GetDisplayProc: proc [window.Handle] returns [proc [window.Handle]]; 
GetDisplayProc returns the window’s display procedure. 
window.GetParent: proc [window.Handle] returns [window.Handle]; 

GetParent returns the the window’s current parent. 
window.GetSibling: proc [window.Handle] returns [window.Handle]; 

GetSibling returns the window’s topmost (eldest) sibling. 

Window. InitializeWindow: proc[ 

window: Window.Handle, display: proc [window.Handle], box: window.Box, 
parent: window.Handle <-window.rootWindow, sibling, child: window.Handle ^nil, 
clearingRequired: boolean true, under: boolean 4- false]; 

InitializeWindow sets the values of the listed fields in the window object. This procedure 
should be called before InsertIntoTree. (Most Tajo clients should not need this procedure.) 

Window. InsertIntoTree: proc [window: Window.Handle]; 

InsertIntoTree adds the client-supplied window. Object to the window tree. The caller must 
have set the following fields of the window object by calling InitializeWindow or one of the 
''Set” procedures: parent, sibling, child, display, under, sibling should be nil if this window 
is to be the last child of its parent. The root window must have been defined before this 
procedure is called. The client can force all the just-inserted windows to be painted by 
calling ValidateTree and passing a window that contains all of the inserted windows. If an 

inserted window has a bitmap under and the new window is partially obscured (if all the bits needed for the 
bitmap under are not available), then ValidateTree is called on the parent of the inserted window to obtain those 

bits. This procedure can raise Error[noSuchSibling]. (Most Tajo clients should not need this 
procedure.) 

window.IntersectBoxes; PROC[b1,b2: window.Box] returns [box: window.Box]; 

IntersectBoxes returns a Box that is the intersection of b1 and b2. If their intersection is 
empty, window.nullBox is returned. 

window.InvalidateBox: proc [ 

window: window.Handle, box: Window.Box, clarity: window.Clarity isDirty]; 

InvalidateBox adds the region described by box to the list of invalid regions of window, 
clarity controls whether the window package should clear the region; if clarity is isClean, 
the region is not cleared. InvalidateBox does not update the display; the client should call 
Validate on window to cause the window package to update the display. The client should 
not call its display procedure directly when its window needs repainting. Instead, it should 
update its data to reflect the newly desired content and call InvalidateBox. A call on 
InvalidateBox followed by a call on Validate may result in no call to the display procedure if, for instance, the 
invalidated areas stick out of the parent. 
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window.lsBitmapUnderVariant:PROClwindow.Handle]RETURNS [boolean]; 

IsBitmapUnderVariant returns the value of the under parameter as of the last call on 
InitializeWindow for the window. If InitializeWindow has not been called, this procedure 
returns FALSE. 

window.lsDescendantOfRoot: proc [window.Handle] returns [boolean]; 

IsDescendantOfRoot determines if the window is currently a part of the tree rooted at 

Window . rootWi ndo w. 

window.lsPlaceInBox: proc [place: windowPlace, box: window.Box] returns [boolean]; 

IsPlaceInBox is a utility that determines whether place is inside box. Points on box's 
border are considered to be inside. 

window.ObscuredBySibling: proc [window.Handle] returns [boolean]; 

ObscuredBySibling returns true if and only if the box of an older sibling (one closer to the 
top of the sibling stack) intersects window's box. 

Window. RemoveFromTree: proc [window.Handle]; 

RemoveFromTree removes the argument window and its children from the visible window 
tree. (Most Tajo clients should never have to call this procedure.) 

Window. Root: PROC RETURNS [Window.Handle]; 

Root returns wjndow.rootWindow. 

window.SetBitmapUnder: proc [ 

window: window.Handle, pointer: long pointer ^ nil, 
underChanged: window.UnderChangedProc f- nil, 
mouseTransformer: window.MouseTransformerProc ^ nil] 

RETURNS [long POINTER]; 

SetBitmapUnder allows the client to specify a bitmap under for the window, allowing the 
window package to maintain the pixels that would appear on the display if the window did 
not exist. The window package can thus quickly adjust the display when the window is 
removed from the tree without having to call the display procedure of all the (partially) 
hidden windows. A client clears the data by passing in nil for pointer. The old value of the 
data pointer is returned, and the client can free it at that time. The allocation of an 
appropriate amount of space is the caller's responsibility (see 
window.WordsForBitmapUnder.) The underChanged and mouseTransformer parameters 
are ignored in the current release. While the bitmap under is in effect, the window's size 
cannot be changed. This procedure can raise Error[noUnderVariant]. 

window.SetChild: proc [window, newChild: Window.Handle] 

RETURNS [oldChild: Window.Handle]; 
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SetChild allows you to change the value of window’s eldest child. This procedure should 
not be called for a window that is part of the visible window tree: Window. Error[inTree] will 
be raised in this case. Use Window. Stack instead. 

window.SetClearingRequired: proc [window: Window.Handle, required: boolean] 

RETURNS [old: boolean]; 

SetClearingRequired changes the value of the clearing required field in window. It 
returns the old value of this field. 

window.SetDisplayProc: proc [window.Handle, proc [window.Handle]] 

RETURNS [proc [window.Handle]]; 

SetDisplayProc sets the window display procedure. It returns the old display procedure. 

window.SetParent: proc [window, newParent: Window.Handle] 

RETURNS [oldParent: Window.Handle]; 

SetParent allows you to change the value of window’s parent. This procedure should not 
be called for a window that is part of the visible window tree: window.Error[inTree] will be 
raised in this case. Use window.Stack instead. 

Window.Setsibling: proc [window, newSibling: window.Handle] 

RETURNS [oldSibling: window.Handle]; 

Setsibling allows you to change the value of window’s eldest sibling. This procedure 
should not be called for a window that is part of the visible window tree: 
Window.Error[inTree] will be raised in this case. Use window.Stack instead. 

window.Slide: proc [window: window.Handle, newPlace: window.Place]; 

Slide changes window’s place within its parent. This procedure can be used for any child 
movement. It can raise Error[whosSlidingRoot]. Tajo clients do not usually call this 
procedure directly. 

window.SlideAndSize: proc [ 

window: window.Handle, newBox: Window.Box, gravity: window.Gravity nw]; 

SlideAndSize changes both the place and the dims of window’s box relative to window’s 
parent, (See window.Gravity for the use of gravity in changing the size of a window.) The 
window package tries to minimize the amount of repainting necessary. This procedure can 
raise Error[sizingWithBitmapUnder] and Error[whosSlidingRoot]. Tajo clients do not 
usually call this procedure directly. 

Window. SlideAndSizeAndStack: proc [ 

window: window.Handle, newBox: window.Box, newSibling: window.Handle, 
newParent: window.Handle nil, gravity: Window.Gravity ^ nw]; 

SlideAndSizeAndStack performs the SlideAndSize and Stack functions; that is, it changes 
both window’s box and window’s location in the window tree. This procedure can raise 
Error[sizingWithBitmapUnder], Error[illegalStack], and Error[whosSlidingRoot]. Tajo 
clients do not usually call this procedure directly. 
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window.SIideAndStack: proc [ 

window: window. Handle, newPlace: Window. Place, newSibling: window. Handle, 
newParent: window. Handle 4— nil]; 

SlideAndStack performs the Slide and Stack functions; that is, it changes both window's 
place and window’s location in the window tree. This procedure can raise 
Error[illegalStack], and Error[whosSlidingRoot]. Tajo clients do not usually call this 
procedure directly. 

Window. Slidelconically: proc [window: window. Handle, newPlace: window. Place]; 
Slidelconically is not currently implemented. 

Window. Stack: proc[ 

window, newSibling: window.Handle, newParent: Window.Handle 4“ nil]; 

Stack changes window's location in the window tree. If newParent is not nil, then window 
is moved to be a child of newParent. The sibling list containing window is modified so 
that window is now immediately above newSibling in the stack. Supplying 
newSibling = NIL puts window on the bottom of the sibling stack. Unless window is 
already on top, supplying newSibling = window.GetParent.GetChild puts window on the 
top of the stack. If window is on top, the previous expression is a client error that is not 
guarded against. This procedure can raise Error[illegalStack]. Tajo clients do not usually 
call this procedure directly. 

Window, TrimBoxStickouts: PROC [ 

window: Window.Handle, box: window.Box] returns [window. Box]; 

TrimBoxStickouts returns a box that is the result of excluding any portion of box that 
sticks out of window or its ancestors. 

window.Validate: proc [window: window.Handle]; 

Validate calls window's display procedure if window has any visible invalid regions. 

Window.Va IidateTree: proc [window: Window.Handle 4—window. rootWindow]; 

ValidateTree calls the display procedure for each window in the tree rooted at window 
that has any visible invalid regions. 

window.WordsForBitmapUnder: proc [window: Window.Handle] returns [cardinal]; 

The WordsForBitmapUnder procedure returns the number of words of storage needed for a 
bitmapUnder for a window the size of window.GetBox.dims. 
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The Caret interface provides a way for clients to manage a blinking caret that marks the 
insertion point. It is intended for clients implementing their own subwindow types. The 
procedures in this interface create a caret, clear it, cause it to blink, and start or stop it 
from blinking, regardless of which client is the current manager. A client can also 
implement a set of actions to perform when another client forces it to relinquish control of 
the caret. 

This interface does not determine where a caret should be displayed, nor can it paint the 
caret on the screen. The client must maintain the information necessary for positioning 
and displaying the caret. Whenever an action is to be performed on the caret, client 
procedures should not only implement the definition of the various caret actions but also 
position and display it. 

25.1 Types 

Caret.Action:TYPE = MACHINE DEPENDENT { 

clear(0h mark(i), invert(2h startO), stop(4h reset(5), firstFree(6), last(255)}; 
action defines the operations that can be performed on a caret, 

clear removes the caret. 

mark creates the caret and sets it to the on (positive) polarity, 

invert sets it to off (negative) polarity. 

start starts the caret blinking between the on and off polarities, 

stop stops it from blinking, 

reset causes the current owner to relinquish control of the caret. 

firstFree is used internally by UniqueAction and should not be used by Tajo clients. 
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Caret.ClientData; TYPE = LONG POINTER; 

Caret.MarkProcTypeiTYPE = procedure [data: CaretClientData, action: Caret.Action]; 

A MarkProcType procedure is provided by the manager of a caret to execute actions on a 
caret. 

25.2 Constants and data objects 

None. 

25.3 Signals and errors 

None. 


25.4 Procedures 

Caret. ActOn: PROCEDURE [Caret. Action]; 

The ActOn procedure allows clients to act on the current caret without regard to the 
current owner. 

Caret.NopMarkerProc: Caret.MarkProcType; 

The NopMarkerProc procedure is used by a client that does not want to display anything 
on the screen when it is the manager of the caret. It is passed as the marker parameter to 
the Set procedure. 

Caret.ResetOnMatch: procedure [data: caretXlientData]; 

The ResetOnMatch procedure allows a client to relinquish control of the blinking caret if 
it is currently the owner. If data is nil, no actions are performed. Simply doing a Caret.Set with 
data set to NIL and a marker that is the NopMarkerProc does not accomplish the same effect because of race 
conditions in an arbitrary pre-emption environment. 


Caret.Set: PROCEDURE [data: Caret.ClientData, marker: Caret.MarkProcType]; 

The Set procedure allows a client to become the manager of the caret, data is passed back 
to marker whenever it is called. If a client does not want to mark the display when it is the 
manager of the caret, it can use NopMarkerProc as its marker. If data is nil, then the 
caret's current manager is forced to relinquish control. No client manages the caret until 
the next Set operation is performed with a non-nil data value. 

Caret.UniqueAction; procedure returns [Caret.Action]; 

The UniqueAction procedure allows clients to define private actions. Implementors of 
caret-marking procedures should thus ignore actions they do not implement. 
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The Cursor interface provides a procedural interface to the hardware mechanism that 
implements the cursor on the screen. To prevent chaos, all tools must manipulate the 
cursor through this interface. 


26.1 Types 


Cursor.Oefined: type = Cursor.Type [activate..groundedTextl; 

There is a distinction between user and system-manufactured cursors. To keep things 
straight, clients may access system cursors only by their type. The range Defined contains 
the system-manufactured cursors. 

Cursor.Handle; TYPE = POINTER TO Cursor.Object; 

Cursor.Info: TYPE = RECORD [type: Cursor.Type, hotX: [0..16), hotY: [0..16)]; 

Cursor.Object: TYPE = RECORD [info: Cursor.InfO, array: UserTerminal.CursorArray]; 

The cursor facilities define an Object that contains a cursor type, a specification of which 
bit in the cursor is to be considered "hot", and a 16-by-16 array of bits that is the bitmap for 
the cursor (i.e., the array of bits that are or'ed into the display). When the cursor is on the 
screen, the "hot" bit is the place to which the cursor points. 

Cursor.Type; TYPE = MACHINE DEPENDENT{ 

activate(0),blank(i),bullseye(2),confirm(3),crossHairsCircle(4).ftp(5),ftpBoxes(6), 
hourGlass(7), lib(8), menu(9). mouseReddO), mouseYellow(ii), mouseBlue(i2), mtp(i3), 
pointDownfU), pointLeftfis), pointRight(i6),pointUp(i7). questionMark(l8), retry(i9), 
scrollOown(20).scrollLeft(2i),scrollLeftRight(22),scrollRight(23), scrollUp(24), 
scrollUpDown(25),textPointer(26),typeKey(27),groundedText(28),iast(377B)}; 

26.2 Constants and data objects 

The cursors in the subrange Type[activate..groundedText] are built in (system supplied). 
Some special notes on what some of the built-in cursors look like follow: 
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activate 

ftp 

ftpBoxes 

lib 

mouseRed 
mouseYellow 
mouseBlue 
textPointer 
groundedText 

26^3 Signals and errors 

None. 

26.4 Procedures 

Cursor.Fetch: PROCEDURE [Cursor.Handle]; 

The Fetch procedure copies the current cursor object into the cursor object pointed to by 

Handle. 

Cursor.FetchFromType: procedure [cursor: Cursor.Handle, type: Cursor.Defined]; 

The FetchFromType procedure copies the cursor object corresponding to type into the 
cursor object pointed to by Handle, 

Cursor.Getinfo: procedure returns [CursorJnfoJ; 

The Getinfo procedure allows clients to find out about the current cursor. 

Cursor.Invert: procedure returns [boolean]; 

The Invert procedure makes each white bit in the current cursor black, and vice versa. It 
returns true if the new state of the cursor is positive. 


used by the Librarian interface to indicate that a libject is being 
activated. LIB is in the upper half, ACT in the lower. 

used to indicate a file transfer in progress. FTP is along the diagonal 
from the upper left to the lower right; triangles are in in the lower-left 
and upper-right corners. 

also used to indicate a file transfer in progress. Black quadrants are in 
the upper left and lower right, white quadrants elsewhere. 

used to indicate a Librarian transaction in progress. LIB is along the 
diagonal from the upper left to the lower right; triangles are in the lower- 
left and upper-right corners. 

a three-button mouse with the left button highlighted, 
a three-button mouse with the center button highlighted, 
a three-button mouse with the right button highlighted, 
an arrow pointing up and to the left, 
a textPointer with a small bar though the tail. 
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Cursor. MakelMegative; procedure; 

The MakeNegative procedure is equivalent to MakePositive followed by Invert. 

Cursor. MakePositive: procedure; 

The MakePositive procedure restores the current cursor's polarity to be as if a Set or Store 
had just been done. 

Cursor. MoveIntoWindow: procedure [ 

window; window.Handle, place: window.Place]; 

The MoveIntoWindow procedure causes the cursor to appear at place in window. 

Cursor.Set: procedure [cursor.Defined]; 

The Set procedure sets the displayed cursor to be one of the system-defined cursors. 

Cursor. Store: procedure [cursor.Handle]; 

The Store procedure sets the displayed cursor to be a client-defined cursor. 

Cursor.Swap: procedure [old, new: Cursor.Handle]; 

The Swap procedure places the old cursor object in to old f and Stores the new cursor. 
Cursor.UniqueType: procedure returns [Cursor. Type]; 

The UniqueType procedure lets clients assign a unique type to their defined cursors. It 
returns a Cursor.Type that is different from all predefined types as well as different from 
any that has previously been returned by UniqueType. 
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The Menu interface gives a tool writer control over which menus the user sees and what 
actions an individual menu item performs. The General Tools section of the XDE User's 
Guide describes how menus appear to the user and how to interact with them. 

27.1 Types 

Menu.EnumerateFor: TYPE = {all, inSW, availableinSW}; 

EnumerateFor is used to control which menus will be passed back to you by Enumerate. 

all all menus instantiated with a window should be enumerated. 

inSW only menus instantiated with a subwindow are enumerated. 

availablelnSW ail menus that the user could display for a subwindow are enumerated 

(including the system menus and menus instantiated on the Tool 
window). 

Menu.EnumerateProcType: type = 

PROCEDURE [window: window.Handle, menu: Menu.Handle] 

RETURNS [stop: BOOLEAN]; 

This procedure type is used with the Enumerate procedure, window is the window to 
which menu is attached, and menu is one of the menus that are being enumerated. If stop 
is TRUE, the enumeration is terminated. 

Menu.Handle: TYPE = long pointer to Menu.Object; 

Most procedures in the Menu interface take a Handle as an argument. 

Menu.ltemHandle: type = long pointer to Menu.ltemObject; 

ItemHandle is not used by the Menu package but is provided as a convenience to the client. 

Menu.ltemObject: type = record [ 

keyword: long string, mcrProc: Menu.MCRType]; 
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Kach menu item has a keyword (a string of characters) and a Mena Command Routine 
(MCR) associated with it. 

Menu.ltems: TYPE = LONGDESCRIPTORFOR ARRAY OF Menu.ltemObject; 

A variable of type Items is a parameter to the Create operation. This variable is stored in 
Object; the data referenced by Items (the keywords and procedures) must not be 
deallocated until the menu is destroyed. 

Menu.MCRType:TYPE = PROCEDURE ( 

window: Window.Handle menu: Menu.Handle 

index: cardinal ^ last[cardinal1]; 

A Menu Command Routine (MCR) is a procedure that is called when the user invokes the 
associated menu item, index allows the procedure to determine which menu item was 
selected. Clients have often found that using one MCR per menu is useful because only one large catch phrase 
need be written to handle common exception cases. 


Menu.Object: TYPE = RECORD [ 
permanent: boolean, 
ninstances: cardinal [0,.77777B], 
name: long string, 
items: Menu.ltems]; 

The Object contains the normally invariant data associated with a menu. An unlimited 
number of menus may be associated (instantiated) with the Tool window or any 
subwindow. The menu mechanism maintains a ring of menu instances (pointers to 
associated menus) for each subwindow (if there is at least one associated menu). One of 
these associated menus is taken to be the ’’current** menu for that subwindow. Some 
menus (at least the system global ones) want to be available from virtually every 
subwindow. This could be accomplished by creating an Object for each use, but the 
primary memory cost of multiple copies of an Object is large. In addition, you may want to 
dynamically alter the items contained in menus (such as lists of available fonts). As a 
result, a level of indirection is used. Thus, Tajo never copies a client’s Object; instead it 
always keeps a pointer to that Object. It is the client’s responsibility to guarantee that the 
Object is valid as long as Tajo has a pointer to it. The client should only Make or Create a 
menu once, but you may Instantiate that menu over as many windows as you like. Objects 
are created and destroyed by the menu implementation. 

27.2 Constants and data objects 

None. 


27.3 Signals and errors 

Menu.Error: error [code: Menu.ErrorCodej; 

Menu.ErrorCode: type * { 

isinstantiated, alreadyinstantiated, notinstantiated, contextNotAvailable, 
isPermanent, other}; 
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isinstantiated a clionl is attempting to destroy a menu that is currently 

instantiated by the user. 

alreadyinstantiated a client is attempting to instantiate a menu that is already 

instantiated. 


notinstantiated a client is attempting to un-instantiate a menu that is not 

instantiated. 


contextNotAvailable Tajo has detected an internal inconsistency in its data structures. 
isPermanent a client is attempting to destroy a permanent menu. 


27.4 Procedures 

Menu.Create: procedure [ 

items: Menu.ltems, name: long string, permanent: boolean 4- false] 

RETURNS [Menu.Handle]; 

The Create procedure allows a tool to create a menu. It returns a pointer to a menu Object 
named name, which is made up of items. The permanent flag indicates whether the 
created object can subsequently be destroyed. Ownership of items is passed to the menu 
mechanism, name is copied and you retain ownership of the original string, which may be 
a local STRING. 

Menu.Destroy: procedure [Menu.Handle]; 

The Destroy procedure allows a tool to destroy a menu. It deallocates storage for the 
Object pointed to by Handle. It first verifies that the Object has an instantiation count == 
0; if not, the ERROR Error[islnstantiated] is generated. See Instantiate and Uninstantiate. If 
the menu is permanent, the error Error[isPermanent] is generated. 

Menu.Enumerate: procedure [ 

window: window.Handle, which: Menu.EnumerateFor, 
proc: Menu.EnumerateProcTypeJ; 

The Enumerate procedure enumerates the menus instantiated with a window. The which 
argument specifies which menus that proc will be called with during the enumeration. If 
which is all, window is expected to be a Tool window and all the menus instantiated with 
window are enumerated. If which is inSW, window is expected to be a subwindow and all 
the menus instantiated with the subwindow are enumerated. If which is availablelnSW, 
window is expected to be a subwindow and all the menus that you could display are 
enumerated (this includes the system menus and menus instantiated on the Tool window). 
If true is returned from proc, the enumeration is terminated. 

Menu.Free: procedure [menu: Menu.Handle, freeStrings: boolean 4-true]; 

The Free procedure frees a menu, optionally freeing the copied strings. Free is the 
complement of Make. After freeing the items that were created in the call to Make, 
Destroy is called. 
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Menu.Freeltem: procedure [Menu.ltemObject]; 

The Freeltem procedure frees a menu item. 

Menu.GetFont: procedure returns [font: windowFont.Handle]; 

The GetFont procedure allows a tool to get a handle for the font used for menus. 

Menu.Instantiate: procedure [menu: Menu.Handle, window: Window.Handle]; 

The menus chosen for display depend on the window that the cursor is over. This allows 
the displayed menu stack to vary, depending on the window layout. The Instantiate 
procedure associates the menu with the passed window so it will be displayed when the 
cursor is over that window. It also increments a use count in menu. If this is the first menu 
to be instantiated in window, the window manager menu is also instantiated. If menu is 
NiL,only the system global window manager menu is instantiated. If menu is already 
instantiated, the ERROR Error[alreadylnstantiated] is generated. Uninstantiate is the 
complement of Instantiate. 

Menu.Invoke: procedure [window: window.Handle, place: window.Place]; 

Invoke displays the menu stack that is available at that place in the window. This is 
normally called from a TiP.NotifyProc (see the TIP chapter). 

Menu. Make: procedure [ 

name: long string, strings: long descriptor for array of long string, 
mcrProc: Menu.MCRType, copyStrings: boolean 4-true, 
permanent: boolean 4 - false] 

RETURNS [Menu.Handle]; 

The Make procedure makes a menu named name that has the elements contained in 
strings. When one of the strings is selected, the mcrProc is called, indicating the index of 
the string in the array. The permanent flag indicates whether the created object can 
subsequently be destroyed. The copyStrings flag indicates whether strings should be 
copied into the system heap. Free is the complement of Make. Make is usually followed by 
Instantiate. 

Menu.Makeltem: procedure [keyword: long string, mcrProc: Menu.MCRType] returns 
[Menu.ltemObject]; 

The Makeltem procedure makes a menu item, keyword is copied and may be a local 
STRING. 

Menu.MCRForKeyword: procedure [ 

sw: wmdow.Handle, menuName, keyword: long string] 

RETURNS [mcr: Menu.MCRType, menu: Menu.Handle, index: cardinal]; 

The MCRForKeyword procedure allows the client to get the arguments necessary to 
invoke a menu item knowing only the subwindow, menu name, and item name. If the 
menu item is not found, the error Error[notlnstantiated] is generated. 

Menu.SetFont: procedure [font: WindowFont.Handle]; 
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The SetFont procedure allows a tool to set the font used for all menus. 

Menu.SetPNR: PROCEDURE [window: window.Handle]; 

If a window is not managed by Tajo (if it is a client-defined window type), the client may 
set the standard menu PNR by calling the SetPNR procedure. If a window is managed by 
Tajo, the standard menu PNR is already set up. (See also PNR.) 

Menu. Uninstantiate: procedure [menu: Menu. Handle, window: Window.Handle]; 

The menus chosen for display depend on the window that the cursor is over. This allows 
the displayed menu stack to vary, depending on the window layout. The Uninstantiate 
procedure removes menu from the window so it will not be displayed when the cursor is 
over this window. It also decrements its use count. Eventual deallocation of the menu 
must be performed by the client. If this menu is not instantiated with this window, then 
the error Error[notlnstantiated] is generated. It is also possible that the error 
ErrorfcontextNotAvailable] will be generated, indicating that Tajo has detected an 
internal inconsistency in its data structures. 

27.5 Examples 

For an example of how to use menus, see ExampleTool in Appendix A. 
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The Scrollbar interface provides a consistent user interface and mechanism for specifying 
and invoking scroll actions. It does not scroll (move bits on the screen). 


28.1 Types 


Scrolibar.Direction.TYPE = {forward, backward, relative}; 

A Direction is used to specify the type of scrolling requested. 

forward scrolls the window so that data near the bottom (right) of the window is 
moved toward the top (left). 

backward scrolls the window so that data near the top (left) of the window is moved 
toward the bottom (right). 

relative indicates that the window should display the data at a relative location in the 
underlying source. 

Scrollbar.Percent: TYPE = [0..1001; 

Percent controls the amount of information scrolled or the location in the file to be 
displayed. (See ScrollProcType for the interaction between the interpretation of Direction 
and Percent.) It is possible to overflow when multiplying a Percent with a 
window.box.dims.w while converting between percentage locations and coordinates. 

Scroiibar.ScrollbarProcType:TYPE = procedure [window: window.Handle] 

RETURNS [box: Window.BOX, offset, portion: Scrollbar.Percent]; 

A ScrollbarProcType procedure gets the scrollbar data from the client to display it. box is 
the region of window occupied by the scrollbar; offset is the relative position in the file 
occupied by the first character in the window and portion is the percentage of the file 
displayed (the percentage of the file represented by the offset of the last character in the 
window minus the offset of the first character of the window). 
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SaoUbar.ScrollProcType: type = procedure [ 

window: window.Handle, direction: Scroilbar.Direction, 
percent: Scroiibar.Percent]; 

A ScrollProcType procedure communicates to the client a user's scroll request, window is 
the window in which the scrollbar was created, and direction is the direction of scrolling 
desired. If direction is relative, percent specifies the location in the file to display; for 
example, 0 is the beginning, 100 is the end, and 50 is the middle. If direction is not 
relative, percent is the amount of the window to be scrolled; for example, 0 means "don't 
scroll at all," 100 means "scroll one window contents," 50 means "scroll so that half of the 
current window contents is still displayed." 

Scroiibar.Type:TYPE = {horizontal, vertical}; 

Type indicates whether the scrollbar controls the up-down movement of data (vertical) or 
the left-right movement (horizontal). 

28.2 Constants and data objects 

None. 

28.3 Signals and errors 

Scrollbar. Error: error [code: Scrollbar. ErrorCode]; 

Scrolibar.ErrorCode: TYPE = {alreadyExists.doesNotExist, other}; 

already Exists the client is attempting to add to a window a scrollbar of a type that 

already exists on that window. 

doesNotExist is raised by GetNotifier and SetNotifier if no scrollbar exists on the 
window in question. 

other is not used. 

28.4 Procedures 

Scroilbar.Adjust: PROCEDURE [window: Window.Handle, box: Window.Box] RETURNS [ 
clientBox: Window.Box, 

verticalWindow: Window.Handle, verticalBox: Window.Box, 
horizontalWindow: Window.Handle, horizontalBox: Window.Box]; 

Adjust is used by the client whenever it changes the size or position of a subwindow that 
has scrollbars. The client calculates the box to contain both the subwindow and its 
scrollbar windows. clientBox describes the area that the subwindow (minus the scrollbars) 
should actually occupy. verticalWindow is the window used to display the vertical 
scrollbar, and verticalBox is the region that verticalWindow should occupy. 
horizontalWindow and horizontalBox are similar. verticalWindow or horizontalWindow 
is NIL if that type of scrollbar does not exist for the subwindow. (If the subwindow has no 
scrollbars, then both verticalWindow and horizontalWindow are nil and clientBox equals 
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box.) The client must use this information for the actual Window. SlideAndSize for its 
sub window and each of the scrollbar windows. 

Scrollbar. Create; procedure [ 

window: window.Handle, type: Scroiibar.Type, scroll: Scroilbar.ScrollProcType, scrollbar: 
Scroilbar.ScrollbarProcType, notify: Scroilbar.ScrollProcType ^ nil]; 

Create creates a scrollbar in the subwindow window for vertical or horizontal scroll 
functions, scroll is called to request a scrolling action, scrollbar is called to obtain 
information about the scrollbar and its window, notify is called every time a scrolling 
action occurs; it permits the client to monitor scrolling actions. If Create is called for a 
subwindow that already has a scrollbar of that type, the error Error[alreadyExists] is 
generated. 

Scrollbar.Destroy: PROCEDURE [window: Window.Handle, type: Scroiibar.Type]; 

Destroy deletes a scrollbar. If Destroy is called for a subwindow that has no scrollbar of 
that type, no operation is performed. 

Scrollbar.GetNotifier: procedure [window: window.Handle, type: Scroiibar.Type] 

RETURNS [Scroilbar.ScrollProcType]; 

GetNotifier is called to find out what notify procedure has been associated with window 
and type. 

Scroiibar.HasScrollbar: procedure [ 

window: window.Handle, type: Scroiibar.Type] returns [boolean]; 

HasScrollbar returns a true if and only if window has a scrollbar of type type. 

Scroiibar.SetNotifier: procedure [ 

window: window.Handle, type: Scroiibar.Type, notify: Scroilbar.ScrollProcType] 
returns [Scroilbar.ScrollProcType]; 

SetNotifier is called to change the notify procedure associated with window and type. It 
returns the old notify procedure. 

Scroilbar.WindowNowDelinked: procedure [window: window.Handle]; 

WindowNowDelinked is used by the client when it removes a subwindow from a tool 
without destroying the scrollbar property associated with that window. 

Scroiibar.WindowNowEnlinked: procedure [window: window.Handle]; 

WindowNowEnlinked gets the scrollbar windows attached to the tool window when the 
client has inserted its window back as a son of the tool window. 

28.5 Discussion 

Clients of the Tool interface should not have to call Adjust, WindowNowDelinked, or 
WindowNowEnlinked. 
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Selection 


The Selection interface is the mechanism that communicates the current selection among 
various tools. It is the responsibility of a client of this interface to provide for actual 
selection of text or graphics within its window(s). The client window containing the 
current selection is referred to as the manager of the current selection. The Selection 
interface also defines two abstractions known as the trashbin and the insertion. The trash 
bin saves the most recent text cuts for subsequent pastes. The insertion saves the most 
recent text inserted into a text subwindow. (Note that text inserted elsewhere, such as 
form subwindows, is not saved.) 

Two classes of clients use the Selection interface. Most commonly, tools that wish to 
obtain the value of the current selectioncall Convert (or maybe (Long)Number, which in 
turn calls Convert). These tools need not be concerned with the details of how selection 
happens. There is one slightly tricky concept for such tools to understand-if they want the 
selection as a string, they should also be prepared to get the selection as a Source in case it 
is longer than Selection.maxStringLength. 

The other class is those clients who wish to manage the current selection. In this case, the 
tool calls Selection.Set and provides procedures that may be called to convert the selection or 
perform various actions on it. The tool remains in control of the current selection until 
some other tool calls Selection.Set. 


29.1 Types 

Selection. Action . TYPE = MACHINE DEPENDENT { 

clear(0h mark(ih unmark(2h deleteO), clearlfHaslnsert(4), firstFree(5), last(255)}; 
clear ”unselects” and dehighlights the current selection, 

mark highlights the current selection, 

unmark dehighlights the current selection. 

delete deletes the contents of the current selection. The manager of the 

current selection may decide against actually deleting it. 
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clearffHasInsert same as clear, but only if the insertion point is in the selection. 

firstFree is used internally by UniqueAction and should not be used by clients. 

Selection.ActOnPrOcType; TYPE = PROCEDURE [ 

data: Seiection.ClientData, action: Selection. Action], 

ActOnProcType procedures are provided by the manager of the selection to handle actions. 

Selection.ClearTrashBinProcType:TYPE = procedure [data: Seiection.ClientData]; 

ClearTrashBinProcType procedures are provided by the manager of the trashbin or the 
insertion. 

Seiection.ClientData: TYPE = LONG POINTER; 

Selection.ConvertProcTypeiTYPE = procedure [ 

data: Seiection.ClientData, target: Seiection.Target] returns [long pointer]; 

ConvertProcType procedures are provided by the manager of the selection, trashbin, or 
insertion to implement Convert. 

Selection.DestroyProC: TYPE = procedure [source: Selection.Source]; 

DestroyProc procedures are provided for clean-up when a manager ceases to be the 
manager of the selection, trashbin, or insertion (when Selection.Set is called again). 

Selection.Source: TYPE = LONG POINTER TO Selectlon.SourceObject; 

Selection.SourceObject: TYPE = RECORD [ 

data: long pointer to unspecified, proc: Seiection.SourceProc, 
destroy: Seiection.DestroyProc]; 

The Source mechanism processes textual selections that are longer than a few hundred 
characters. It works as follows: The client asks for the current selection to be converted as 
a Source by calling Convert with a Seiection.Target of source. The manager of the current 
selection creates an instance of the Source data structure and returns a pointer to it to the 
client. The client then makes repeated calls on proc, supplying a string of arbitrary size. 
The manager of the current selection fills the string with text and returns. The manager 
does not need to fill the string completely, but it must return some data with each call, as 
end-of-selection is indicated by returning an empty string. When the client receives a zero- 
length string, it must call the destroy procedure supplied in the SourceObject; otherwise, 
the space allocated for the source is lost. 

Selection.SourcePrOC: TYPE = PROCEDURE [ 

data: Seiection.ClientData, string: long string]; 

SourceProc procedures are contained in Selection.SourceObjects, and are called by client 
procedures to have string filled with characters from the selection. The data that is passed 
to the SourceProc should be the data field of the SourceObject that contains the 
SourceProc. The selection source need not completely fill string, but must return at least 
one character unless the source is exhausted. 
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Selection.Target: TYPE = MACHINE DEPENDENT{ 

window(o). subwindow(i), string(2), sourceO), length(4), position(5), pieceList(6), 
longlnteger(7), interpressMaster(8), potentiallnterpressMaster(9), token(io), 
firstFree(ii), last(255)}; 


Target describes the type of data to which a selection may be converted (see Convert). 
Tools that manage the current selection (by calling Selection. Set) may choose not to 
implement conversion to some (or all) of these types: 


window 

subwindow 

string 

source 

length 

position 

pieceList 

longinteger 

interpressMaster 


returns a Window. Handle to the window containing the 
selection. 

returns a Window. Handle to the subwindow containing 
the selection. 

returns a long string allocated from the system heap 
that contains a copy of the selection. If the current 
selection is too large, the manager of the selection may 
return nil when asked to convert to a string. The client 
program should then ask for the selection as a source. 

returns a Selection.Source on the selection. 

returns a LONG POINTER TO LONG CARDINAL containing the 
length of the selection in characters. 

returns a long pointer TO long cardinal containing the 
position in the source. 

returns a list of pieces, understood by the internals of 

PieceSource. 

returns LONG pointer to long integer containing the 
result of converting the contents of the selection to a 
number. 

converts the contents of the selection into an Interpress 
master. 


potentialInterpressMaster returns nil if the manager is not willing to produce an 

Interpress master, or a non>NiL pointer (to an otherwise 
uninteresting small quantity) if it is willing. Even 
though the quantity is uninteresting, the client must 
free it to the system heap, or storage will be lost 
(Convert uniformly returns a legitimate pointer to 
storage that the client should free.) 

token returns a long string allocated from the system heap 

that contains the first token of the current selection. 
What constitutes a token is not defined by the 
Selection interface; all that is necessary is that the 
manager and a client agreed to a definition . 
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firstFree is used internally by UniqueTarget and should not be 

used by clients. 

Only the following targets are supported by the standard Tajo selection manager: length, 
source, string (only if the length is less than Selection. maxStringLength characters), 

subwindow, window. 

29.2 Constants and data objects 

Selection.maxStringLength: cardinal s 200; 

maxStringLength is the largest string that can be produced by Convert. 

29.3 Signals and errors 

None. 

29.4 Procedures 

Selection. ActOn: PROCEDURE [Selection. Action]; 

The ActOn procedure communicates a request for an action to the manager of the current 
selection. (See also UniqueAction.) 

Seiection.Clear: procedure; 

The Clear procedure requests that the current selection be cleared. It is equivalent to 
calling Selection.ActOn[clear]. 

Seiection.ClearInsertionOnMatch: procedure [pointer: long pointer]; 

It is sometimes difficult to determine if you are the manager of the current insertion. The 
CtearInsertionOnMatch procedure will clear the current selection if and only if the client 
is the current owner. A client is the current owner if pointer is equal to the latest pointer 
that was passed into Setlnsertion. 

Seiection.ClearOnMatch: procedure [pointer: long pointer]; 

It is sometimes difficult to determine if you are the manager of the current selection. The 
ClearOnMatch procedure will clear the current selection if and only if the client is the 
current owner. A client is the current owner if pointer is equal to the latest pointer that 
was passed into Set. 

Selection.Convert: PROCEDURE [seiection.Target] returns [long pointer]; 

The Convert procedure will perform the requested conversion and return a LONG pointer to 
the data. The data returned for many types of items is allocated out of the system heap. 
The storage ownership is passed to the recipient, which must deallocate it. (See Target for 
the effect of different conversion targets.) nil is returned if the manager of the current 
selection does not implement the desired conversion, (See also SourceObject.) 
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Seiection.ConvertInsertion: procedure [seiection.Target] returns [long pointer); 

The Convertinsertion procedure converts the contents of the insertion like Convert. 

Selection. ConvertTrashBin: procedure [Seiection.Target] returns [long pointer); 

The ConvertTrashBin procedure converts the contents of the trash bin like Convert. 

Seiection.LongNumber: PROCEDURE [radix: cardinal 4 -10) returns [longcardinal); 

The LongNumber procedure will perform the requested conversion to a number. If the 
current selection is not acceptable to the Mesa runtime, then String. InvalidNumber will be 
raised by the runtime and allowed to propagate through these procedures. 

Selection. Number; PROCEDURE [radix: cardinal 4 -10] returns [cardinal]; 

The Number procedure will perform the requested conversion to a number. If the current 
selection is not acceptable to the Mesa runtime as a number, then stHng.InvalidNumber 
will be raised by the runtime and allowed to propagate through these procedures 

Selection.Set: PROCEDURE [ 

pointer: long pointer, conversion: Seiection.ConvertProcType, 
actOn: Selection.ActOnProcType); 

The Set procedure allows a client to become the manager of the current selection by 
supplying the Selection interface with a pair of procedures. The ActOnProcType is called 
to modify the current selection. The ConvertProcType is called to get the value of the 
current selection. The value of pointer passed to Set will be used as the data argument in 
calls to conversion or actOn. 

Seiection.SetInsertion: procedure [ 

pointer: long pointer, conversion: Seiection.ConvertProcType, 
clear: Seiection.ClearTrashBinProcType]; 

The Setlnsertion procedure allows a client to become the owner of the insertion. 

Seiection.SetTrashBin: procedure [ 

pointer: long pointer, conversion: Seiection.ConvertProcType, 
clear: Seiection.ClearTrashBinProcType]; 

The SetTrashBin procedure allows a client to become the owner of the trashbin. 

Seiection.UniqueAction: procedure returns [selection.Action); 

The UniqueAction procedure allows a client to define its own private operations on the 
selection. It returns a new Action in [firstFree..last). 

Selection.UniqueTarget: procedure returns [seiection.Target]; 

The UniqueTarget procedure allows a client to define its own private conversion type. It 
returns a new Target in [firstFree-.last). 
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ToolFont 


The ToolFont interface provides Tajo*s interface to the WindowFont facilities. These 
routines provide font storage management. (See also WindowFont.) 


30.1 Types 

None. 

30.2 Constants and data objects 

None. 

30.3 Signals and errors 

None. 

30.4 Procedures 

ToolFont.Create: procedure [MFiie.Handle] returns [windowFont.Handle]; 

The Create procedure allocates a font object and initializes it. Do not call Create if 
MFiie.Handle is nil; it causes an error in MSegment. 

ToolFont. Destroy: procedure [windowFont.Handle]; 

The Destroy procedure destoys the data segment and font object. Do not call Destroy with 
a NIL WindowFont.Handle; it causes an address fault. 

ToolFont.StringWidth: procedure [ 

string: long string, font: WindowFont.Handle ^ nil] returns [[0..last[integer]]]; 

The String Width procedure computes the width of string in font font. If font is nil, the 
default font is used (see windowFont.SetDefault). If the width of string in the given font is 
wider than can be represented in an integer, the return value will be meaningless. This 
routine maps non-printing characters (such as control characters.) into a font-specific 
default character. If string is nil, an address fault results. 
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The WindowFont interface converts .strike fonts into a representation that makes it 
more convenient for Tajo’s window package to display characters. 


31.1 Types 


WindowFont.Handle:TYPE = LONG POINTER TO WindowFont.Object; 

The text-painting procedures of the Display interface take as an argument a Handle on an 
object from WindowFont. Most of the fields of a Handle are private to the implementation. 

WindowFontObject; TYPE = RECORD ( 
height: [0..7777B1 <-null, 
kerned: boolean «- false, 

width: PACKED ARRAY CHARACTER [0C..377C] OF [0..255] <-ALL[0], 

raster: cardinal «- null, 

maxWidth: cardinal <— null, 

min, max: character *- null, 

address: LONG POINTER, 

bitmap: long pointer to array [0..0) of word <- null, 
xInSegment: long pointer to array character [0C..0C) of 
CARDINAL <-null]; 

The bits within the font object that define the character pictures are private to the 
implementation. The public interfaces only allow the client to determine the sizes of the 
characters in screen dots. 

Each of the measurement values in Object is in units of bits, 
height is the font height. 

kerned must be false, because fonts are not supported by the window package, 

width contains the width of each character, 

raster is the width of the bitmap. 
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maxwidth 
min, max 
address 
bitmap 
xInSegment 


is the width of the widest character in the font. 

are the lowest and highest characters that exist in the font, respectively. 

is the address in memory of the first word of the .strike font. 

is the address of the first word of the actual data for the character pictures. 

contains the number of bits from the beginning of bitmap to the left edge of 
the character, for each character in the font. 


31.2 Constants and data objects 

WindowFont.defaultFont: READONLY WindowFont.Handle; 


31.3 Signals and errors 

WindowFont-Error: ERROR (code: WindowFont.ErrorCode]; 
windowFont.ErrorCode: TYPE = {illegalFormat}; 

31.4 Procedures 

windowFont.CharlsOefined: proc [ 

char: character, font: windowFont.Handle «-WindowFont.defaultFont] 
returns (boolean); 

CharlsOefined returns true if a picture exists for char, false otherwise. If font is nil, the 
defaultFont is used. 

windowFont.CharWidth: proc [ 

char; character, font: windowFont.Handle WindowFont.defaultFont] 
returns (natural); 

CharWidth allows the client to determine the width of a character in screen dots. A font 
argument of NIL for these routines means use the defaultFont. 

windowFont.FontHeight: proc ( 

font: WindowFont.Handle WindowFont.defaultFont] returns (natural); 

FontHeight allows the client to determine the height of the characters in a font in screen 
dots. A font argument of nil for these routines means use the defaultFont. 

windowFont.lnitialize: proc (font: windowFont.Handle); 

The Initialize procedure creates an internal font of the client's choice, font points to a font 
record that is at least Object.SlZE words long. The client is responsible for setting 
font.address before calling Initialize. This address must point to the first word in memory 
of a .strike font. This implies, of course, that font cannot be NIL. Tajo clients do not 
usually call this procedure. (See TajoFont.Create for a more convenient way of initializing 
fonts.) 
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windowFont.SetOefault: proc [font: windowFont.Handle]; 

The SetDefault procedure sets the defaultFont to be font. Using defauitFont before this 
procedure has been called is a client error. Tajo clients do not usually call this procedure. 
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AsciiSink 


This interface implements a text sink that outputs Ascii text. (See TextSink for a 
description of text sinks.) 


32,1 Types 


AsdiSink.TabStOpS: TYPE = LONG DESCRIPTOR FOR ARRAY OF CARDINAL; 

TabStops describes the tab settings for text output through an AsciiSink. Each element of 
the array specifies the number of pixels from the left margin for that tab stop. 

32.2 Constants and data objects 

None. 


32.3 Signals and errors 

None. 


32.4 Procedures 

AsciiSink.Create: proc [font: windowFont.Handle] returns [lextsink.Handle]; 

Create takes a font to be used for output and returns a TextSink.Handle. 

AsciiSink.GetTabs: PROC [sink: TextSink.Handle] returns [AsciiSink.TabStops]; 

GetTabs returns the current tab stops for sink. A returned value of nil means that the 
default tab stops (one every eight spaces) are in effect. 

AsdiSink.Info: PROC [sink: TextSink.Handle] RETURNS [font: WindowFont.Handle]; 


Info returns the font with which the sink was created. 
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AsciiSink.lsIt: PROC [sink: TextSink. Handle] RETURNS [BOOLEAN]; 

Isit returns TRUE if this sink is an AsciiSink (created by AsciiSink. Create) and false otherwise, 

AsciiSink. SetTabs: PROC [sink: TextSink. Handle, tabStops: AsciiSink.TabStops «-”Nil]; 

SetTabs sets the tab stops for sink. If tabStops is defaulted, the default tab stops (one 
every eight spaces) are set. 
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This interface creates a text source (see TextSource) that is backed by an Environment.Block 
of Ascii characters- It is the same as a scratch source (see ScratchSource) with an access of 
read-only. 


33* 1 Types 

BlockSource. Block: TYPE = Environment.Block; 

BlockSource. Handle: type * TextSource. Handle; 

33.2 Constants and Data Objects 

None. 

33.3 Signals and Errors 

None are defined by this interface; however, TextSource.Error can be raised by the procedure 

Info. 

33.4 Procedures 

BiockSource.Create: procedure [ 

block: BlockSource. Block] returns [source: BiockSource.Handlej; 

The Create procedure creates a block source. The characters in the block must not change 
as long as the source is using that block. 

BlockSource.Info: PROCEDURE [ 

source: BiockSource.Handle] returns [block: BiockSource.Block]; 

Info returns the block backing the block source, source cannot be nil. This procedure raises 
TextSource.Error[other] if source is not a pointer to a block source. 
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BiockSource.lsIt: PROCEDURE [source: BlockSource. Handle] RETURNS [yes: boolean]; 

Isit returns true if the Handle is a block source and false otherwise, source cannot be nil. 

BlockSource. Set: PROCEDURE [source: BlockSource.Handle, block: BlockSource. Block]; 

Set changes the block backing the block sources; the old block is not deallocated, source 
cannot be nil. 
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The DiskSource interface creates a text source (see the TextSource chapter) that is backed 
by a stream or a file in the local file system. 


34.1 Types 

None. 

34.2 Constants and data objects 

None. 

34.3 Signals and errors 

None. 

34.4 Procedures 

oiskSource.Create: procedure [ 

name: long string, access: TextSource.Access, s: stream.Handle *- nil] 

RETURNS [source: TextSource.Handle]; 

The Create procedure creates a disk source. If s is not nil, it is used as the stream backing 
the source. If s is NIL, a stream is opened on the file name, access may be either read or 
append. This procedure may raise TextSource.Error[..., accessError, fileNameError,...]. 

DiskSource.Info: PROCEDURE [sOurce: TextSource.Handle] 

RETURNS [name: long string, s: stream.Handle, access: TextSource.Access]; 

The Info procedure returns the name of the file backing the disk source, the stream 
backing the source, and the access on the source. 

DiskSource.lSit: PROCEDURE [sOurce: TextSource.Handle] RETURNS [BOOLEAN]; 

The Isit procedure returns true if the Handle is a disk source and false otherwise. 
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DiskSource. Rename: procedure [ 

source: TextSource. Handle, newName: long string, access: TextSource.Access] 

RETURNS [TextSource. Handle]; 

The Rename procedure renames a currently existing disk source. The current disk source 
is destroyed and a disk source for the new file, with the specified access, is created. This 
procedure may raise TextSource. Error[.,., accessError, fileNameError, ...]. source cannot be 
NIL. 

DiskSource.SetMaxOiskLength: procedure [ 

source: TextSource. Handle, maxLength: long cardinal]; 

The SetMaxDiskLength procedure provides a way to implement circular files, which are 
particularly useful for logs. When the source reaches maxLength characters in length, it 
starts over at the beginning of the stream, rather than extending the file, source cannot be 
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The PieceSource interface creates a text source (see TextSource) that is backed by a piece 
table maintained on a text source. 


35-1 Types 

None. 

35.2 Constants and data objects 

None. 

35.3 Signals and errors 

None. 

35.4 Procedures 

PieceSource.Create: PROCEDURE [original, scratch; TextSource.Handle] 

RETURNS [source: TextSource.Handle]; 

The Create procedure creates a piece source, original is the text source on which the piece 
table is made. The piece source takes over ownership of this text source, scratch is a text 
source with append access that the piece table code uses for maintaining the interim state. 

PieceSource.Info; PROCEDURE [SOurce: TextSource.Handle] 

RETURNS [original, scratch: TextSource.Handle]; 

The Info procedure returns the original and scratch text sources with which the piece 
source was created, source cannot be NIL. 

PieceSource.lsIt: PROCEDURE [source: TextSource.Handle] RETURNS [yes: BOOLEAN]; 

The Isit procedure returns TRUE if the Handle is a piece source and false otherwise. 
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PieceSource.Put: PROCEDURE [source: Textsource. Handle, name: long string] returns [new: 
TextSource. Handle]; 

The Put procedure converts the piece table into a stream and stores it into the file named 
name* It returns a disk source with read access on the file after storing the contents of the 
piece table, source cannot be nil. Any of the errors from MFile.WriteOnly may be raised. 

PieceSource. Reset: PROCEDURE [source: TextSource. Handle] 
returns [original: TextSource. Handle]; 

The Reset procedure causes the piece source to discard all modifications made to the piece 
table and return the original source passed to the PieceSource. Create procedure. The text 
source scratch is destroyed in the process, source cannot be nil. 
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The ScratchSource interface creates a text source (see TextSource for more information) 
that is backed by a block of virtual memory containing Ascii characters. 


36.1 Types 

None. 

36.2 Constants and data objects 

None. 

36.3 Signals and errors 

None. 

36.4 Procedures 

ScratchSource.Create: PROCEDURE [ 

block: Environment.Block Environment.nullBlock, extraRoom: CARDINAL <-*0, access: 
TextSource.Access edit, expandable: boolean true] 

RETURNS [source: TextSource.Handle]; 

The Create procedure creates a scratch source, block is storage that is used to back the 
source. A block of nullBlock means the source allocates the block using 
MSegment.GetPages. For any other block passed in, the source has as initial data any 
characters contained in the block. extraRoom is the amount of storage beyond the end of 
block that may be used by the source. If expandable is false and the source runs out of 
room in the block while performing a replace operation, that operation returns a no¬ 
change value (see TextSource). If expandable is true, the source takes over ownership of 
the block passed in; the block must be allocated using MSegment.GetPages so that the 
source may replace it with another larger block if necessary. In this case, the block is 
deallocated when the source is destroyed, access is the access desired on this source. A 
scratch source whose access is read and whose block is not null is the same as a block 
source (see BlockSource) 
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ScratchSource.Info; PROCEDURE [source: TextSource. Handle] 

RETURNS [block: Environment.Block, extraROOm: CARDINAL, 
access: TextSource.Access, expandable: boolean]; 

The Info procedure returns the block backing the scratch source, the amount of extra room 
left after the block, whether the block is expandable, and the access on the source, source 
cannot be nil. TextSource. Error[otherl is raised if source does not point to a scratch source. 

ScratchSource.lsIt: PROCEDURE [source: TextSource. Handle] RETURNS [yes: boolean]; 

The Isit procedure returns true if the Handle is a scratch source and FALSE otherwise. 
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The StringSource interface creates a text source (see TextSource) that is backed by a 
string containing Ascii text. 


37.1 Types 


None. 


37.2 Constants and data objects 

StringSource.cannOtExpand: CARDINAL a 

cannotExpand is used by the procedure Insertstring to indicate that a string is non- 
expandable. It will be deleted from the interface when it is next changed, because 
Insertstring will also be deleted. 

37.3 Signals and errors 

None. 

37.4 Procedures 

StringSource.Create: PROCEDURE [ 

ps: LONG POINTER TO LONG STRING, expandable: boolean] 

RETURNS [source: TextSource. Handle]; 

The Create procedure creates a string source with edit access, ps is a pointer to the string 
backing the source. If ps is NIL, TextSource.Error[invalidParameters] is raised. If expandable 
is FALSE and the string source runs out of room in the string (such as during a call to 
source.replaceText), String.StringBoundsFault[ps] is raised. If expandable is true and the 
string source runs out of room in the string, it allocates a new string, copies the old string, 
and deallocates it. If expandable is true, the string must have been allocated from the 
system heap; the string is deallocted when the source is destroyed using its ActOn 
procedure. 
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Note: The current implementation of string sources requires a contiguous block of memory large enough to 
completely contain the backing string. More important, when the string is expanded, a new larger string is 
allocated and copied, which requires 2*delta characters of memory in the system heap. 


StringSource. DeleteSubString: procedure [ 

ss: string.SubString. keepTrash: boolean] returns [trash: long string); 

The DeleteSubString procedure is no longer implemented. It will be deleted from the 
interface when the interfaces are next changed. 

stringSource.Info: PROCEDURE [source: TextSource. Handle] 

RETURNS [ps: LONG POINTER TO LONG STRING, expandable: boolean]; 

The Info procedure returns the string backing the string source and whether the string is 
expandable, source cannot be NIL. If source is not a string source, it returns nil, false. 

StringSource.lnsertString: PROCEDURE [ 

string: long pointer to long string, position: cardinal, toAdd: string.SubString, extra: 
cardinal]; 

The Insertstring procedure is no longer implemented. It will be deleted from the interface 
when the interfaces are next changed. 

StringSource.lsIt: PROCEDURE [sOurce: TextSource. Handle] RETURNS [yes: BOOLEAN]; 

Isit returns true if the Handle is a string source and false otherwise. 


37-2 



38 


TextData 


The TextData interface is not of interest to most clients. It defines data types that a few 
procedures in TextSW and FormSW need. The TextDisplay interface depends heavily on 
the following definitions. 


38.1 Types 


TextData.lnsertion:TYPE = long pointer TO TextData.InsertionObject; 

TextOata.InsertionMode: TYPE = {triangle, box}; 

TextData.InsertionObject: TYPE = RECORD [ 
position: TextOata.Position, 
place: window.Place, 
mode: TextOata.InsertionMode, 
marked: boolean]; 

Insertion points for editable text are typically marked by a blinking caret. The 
TextDisplay routines take a pointer to the insertion object so that they can maintain the 
necessary values. When an insertion point is displayed, it is usually a blinking triangle; 
however, the convention is that append-only editing is indicated by a blinking rectangular 
box. 

TextData.MarkingAction; type = machine DEPENDENT{clear(o), mark(i), inv€rt(2), (3)}; 

The client may ask the display routines to change the marking of a displayed insertion 
point. 

clear causes the insertion point to no longer be visible, 
mark forces the insertion point to be visible, 
invert toggles the visibility of the insertion point. 

TextData.Position: TYPE = TextSource.POSition; 

Text is addressed by Position, which is a long cardinal. 
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TextData.Selection: TYPE = LONG POINTER TO TextData.SelectionObject; 

TextData.SelectionEntity: type = machine dependent { 

text(o), word(i), element(2), line(3), paragraph(5), document(7)}; 

TextData.SelectiOnMode: TYPE = MACHINE DEPENDENT { 

video(0h grayBox(ih und€rline(2h clearTextO), strikeOut(4), splat(6), (15)}; 

The SelectionMode is how the selection will be displayed to the user, 
video video-inverts the selection. 

grayBox displays the selection on a light gray background. 

underline underlines the selection. 

clearText selections are not indicated to the user. 

strikeOut draws a one-bit-wide line through all characters of the selection. 

splat raises error. 

TextData.SelectionObject: TYPE = record! 

left, right: TextOata.Position, entity: TextData.SelectionEntity, 
mode: TextData.SelectionMode, marked: boolean]; 

Text selections are also maintained by the TextDisplay routines and may be set by client 
code. A selection consists of the marking mode and the current entity. The entity is 
maintained with the selection so that multiple clicks can grow the selection to the next 
higher value. 

TextData.SelectionType: TYPE = {select, extend}; 

SelectionType is used by the display routines to either make a new selection or adjust the 
old. 

38.2 Constants and data objects 

None. 

38.3 Signals and errors 

None. 

38.4 Procedures 

None. 
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TextSource and TextSink isolate TajVs uniform text display, selection, and editing 
facilities from the representation of text. The TextSink interface defines a sink for text that 
is displayed in a window. It defines the standard set of operations that display text, 
measure displayed text, and resolve display positions to character positions. For each 
representation of text, there should be at least one sink and one source. The default 
sources and sinks display Ascii characters. Specific implementations may use additional 
operations for setting or altering the state of a text sink. (See also the interface Ascii Sink.) 

A client who wishes to implement its own sink must implement the sink's operations with 
the semantics defined below. The text display code in Tajo invokes these operations, 
behind which hide the representation of the text. Although text is addressed by 
Environment.Block, only the sink and its corresponding source look inside the block. 


39.1 Types 


TextSink. Action: TYPE = {destroy, sleep, wakeup}; 

An Action is the parameter to the ActOnProc that tells the sink to change state. 

destroy the sink should destroy itself, freeing all storage and releasing all resources 
associated with the text sink instance. 

sleep the source should release whatever resources it can without losing information; 
it is a hint that the text sink will not be used for a while. 

wakeup the sink is going to be used and should resume its normal state, undoing 
whatever was done for sleep. 

Note: sleep and wakeup are only hints for storage and resource management; implementors must be able to 
handle all operations on sleeping text sources. 

TextSink-ActionResult: TYPE = {ok, bad}; 

An ActionResult is the result of ActOnProc [Note: only a result of ok is expected.] 
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TextSink.ActOnPrOC: TYPE = PROCEDURE [ 

sink: TextSink.Handle, action: Textsink.Action] returns [TextSink.ActionResultj; 

The sink's ActOnProc is invoked to change a sink's state. 

Textsink. BreakReason: TYPE = {eol, consumed, margin}; 

A DisplayBlockProc, MeasureBlockProc, or ResolveBlockProc can stop displaying, 

measuring, or resolving for one of several reasons, any of which may mean that the 
procedure has not finished the task. 

eol it encountered the end of a line in the text it is operating on. 

margin it encountered the edge of the area in which it can operate on. 

consumed it finished operating on the requested text. 

TextSink.DisplayBlockProc: type = procedure [ 

sink: TextSink.Handle, block: TextSink.TextBlock, lineLength, offset: integer, window: 
Window.Handle, place: window.Place, bbop: window.BBoperation, 
bbso: Window.BBsourcetype] 

RETURNS I 

newPlace: Window.Place, positions: cardinal, why: TextSink.BreakReason]; 

The sink's DisplayBlockProc displays text in a window, block is the text to be displayed. 
lineLength is the farthest that the displayed text can extend, offset is the offset from the 
edge of the window to the beginning of the region where the text is displayed; it is used in 
calculating the position of tabs, window is the Window in which the text is to be 
displayed, and place is the location where the displayed text should start, bbop and bbso, 
used in painting the text, are described as part of Window. The DisplayBlockProc returns 
why, a BreakReason, In addition to the reason for stopping, the routine returns the 
number of positions it displayed and the position in the window where the next text will be 
displayed. The Environment.Block referenced by block should be updated. 

TextSink.FontInfoPrOC. TYPE = PROCEDURE [ 

sink: TextSink.Handle] returns [lineHeight, minWidth, maxWidth: cardinal]; 

The sink's FontInfoProc returns information about the font being used by the sink, 
lineHeight is the height of a line of text, and minWidth and maxWidth bound the width of 
characters. 

TextSink.Handle: TYPE = LONG POINTER TO TextSInk.PrOCedureS; 

A Handle is an object-oriented pointer to a pointer to a record of procedures that defines 
the operations on a text sink. 
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TextSink.MeasureBlockProc: type = procedure [ 

sink: Textsink.Handle, block: Textsink.TextBlock, NneLength, offset: integer, place: 
window.Place, placeIsLeft: boolean true] 

RETURNS [ 

newPlace: window.Place, positions: cardinal, why: Textsink.BreakReason]; 

The sink’s MeasureBlockProc measures text in a window. It behaves very much like the 
DisplayBlockProc, except that the characters are not actually painted in the window. 
Because no painting is done, neither the window nor the painting parameters are passed. 
The parameter placeIsLeft indicates the direction of the measuring. If placeIsLeft is true, 
the window position is the leftmost edge of the text, and measuring should be done from 
left to right. If it is FALSE, the position is the rightmost edge of the text, and measuring 
should be done from right to left. The results returned from the MeasureBlockProc should 
be the same as those from the DisplayBlockProc, if placeIsLeft is true and the other 
parameters are the same. 

TextSink.PositionsInBlOckPrOC: TYPE =: PROCEDURE [ 

sink: Textsink.Handle, block: Textsink.TextBlock] returns [cardinal]; 

The sink’s PositionsInBlockProc determines the number of positions the block represents, 
which is not necessarily the number of bytes in the block. The sink parameter is included 
to pass the instance data. 

TextSink.Procedures: TYPE = LONG POINTER TO TextSink.ProceduresObject; 

TextSink.ProceduresObject; type = record [ 
actOn: TextSink.ActOnProc, 
displayBlock: Textsink.DisplayBlockProc, 
fontinfo: Textsink.FontInfoProc, 
measureBlock: TextSink.MeasureBlockProc, 
positionsInBlock: TextSink.PositionsInBlockProc, 
resolveBlock: Textsink.ResolveBlockProc]; 

TextSink.ReSOlveBlockPrOC: TYPE = procedure [ 

sink: Textsink.Handle, block: Textsink.TextBlock, startX, xToFind, offset: integer, 
halfCharResolve: boolean] 

RETURNS [newX: integer, positions: cardinal, why: Textsink.BreakReason] 

The sink’s ResolveBlockProc locates the position corresponding to a place in the window, 
block is the TextBlock in which to search. startX is the place on the line that corresponds to 
the first character of block. xToFind is the place on the line where the corresponding 
character position is desired. These parameters are integers instead of window.Places 
because the MeasureBlockProc assumes that the places are on the same line, offset is the 
offset from the edge of the window to the edge of the text display area, as in the 
DisplayBlockProc and MeasureBlockProc. halfCharResolve indicates what to do if xToFind 
corresponds to the rightmost part of a position. If halfCharResolve is true, the position 
returned is the next position (round up) ; if it is FALSE, the position is the one containing the 
place (truncate). The ResolveBlockProc should return a place (newX), the distance that 
place is from startX, the number of character positions scanned, and the reason why it 
stopped resolving (why). If newX * xToFind, the procedure was successful. If newX is 
different from xToFind, ResolveBlockPlace is called again to find the desired place. 
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TextSink.TextBlock: TYPE = POINTER TO Environment.BlOck; 

A text sink represents its information as a TextBlock. 

39.2 Constants and data objects 

None. 

39.3 Signals and errors 

TextSink.Error: ERROR [code: ErrorCode]; 

TextSink.ErrorCode: TYPE a (invaiidSink, isBad, invalidParameters, other); 
invalidSink the sink is invalid. 

isBad the sink no longer works. 

invalidParameters the parameters were not sensible. 

39.4 Procedures 

None. 
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TextSource and TextSink isolate Tajo’s uniform text display, selection, and editing 
facilities from the representation of text. The TextSource interface defines a source of text 
that may be displayed in a window. It defines the standard set of operations that access a 
text source. A text source implementation is responsible for implementing text source 
operations on its underlying representation of the text. For each representation of text, 
there should be at least one sink and one source. Default sources and sinks display Ascii 
characters. Specific implementations may use additional operations for setting or altering 
the state of a text source. (See also BlockSource, DiskSource, PieceSource, ScratchSource, 
and StringSource.) 

40.1 Types 

TextSource.Access: TYPE = {read, append, edit}; 

Access is provided for source implementations. 

TextSource.Action:TYPE = {destroy, mark, sleep, truncate, wakeup}; 

An Action is the parameter to the ActOnProc that tells the source to change state. 

destroy the source should destroy itself, freeing all storage and releasing all resources 
associated with the text source instance. 

mark it should mark the logical end of the data. 

sleep it should release whatever resources it can without losing information. (This is 
a hint that the text source will not be used for a while.) 

truncate it should truncate its data to its current length. (This has a noticable effect only 
for sources that have some representation in a file system.) 

wakeup the source is going to be used and should resume its normal state, undoing 
whatever was done for sleep. 
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Note: sleep and wakeup are only hints for storage and resource management. Implementors must be able to 
handle all operations on sleeping text sources. 

TextSource. ActOnProc: TYPE = PROC[source: TextSource. Handle, action: TextSource. Action]; 

The source’s ActOnProc changes a source’s state. 

TextSource.Class: TYPE = {none, eol, alpha, space, other}; 

Class divides characters into classes; it is a parameter of the ReadTextProc. 

TextSource.Direction: TYPE = (left, right}; 

Direction indicates the direction of a scan. 

TextSource.DoEditActionProc: TYPE a PROCj 

source: TextSource.Handle, action: TextSource.EditAction, editPos: TextSource. Position] 
RETURNS [delta: long integer]; 

The source’s DoEditActionProc moves within the source. The result delta is the number of 
positions that the source backed up. Ascii sources may use AsciiDoEditAction. 

TextSource. Ed it Action: type = (none, backspace, backWord, backLine}; 

EditAction enumerates the possible edit actions for DoEditActionProc. none means ’’no 
action should be taken.” backspace means "back up one position from editPos.” backWord 
means ’’back up until the source is positioned at the beginning of the next alphanumeric 
character.” backLine means ’’back up until the source is positioned just to the right of the 
last end-of-line.” 

TextSource.GetLengthProc: type = procedure [ 

source: TextSource.Handle] returns [TextSource.Position]; 

The source’s GetLengthProc obtains the number of Positions in a source. This operation is 
used extensively, and it should be implemented efficiently. 

TextSource.Handle: type = LONG POINTER TO TextSource.Procedures; 

A Handle is an object-oriented pointer to a pointer to a record of procedures that defines 
the operations on a text source. 

TextSource.Position: TYPE = LONG CARDINAL; 

TextSource procedures operate in terms of Positions, which are displayable units. 

TextSource.Procedures: type = long pointer to TextSource.ProceduresObject; 

TextSource.ProceduresObject; type = record [ 

actOn: ActOnProc, doEditAction: DoEditActionProc, getLength: GetLengthProc, 
readText: ReadTextProc, replaceText: ReplaceTextProc, 
scanText: ScanTextProc, setLength: SetLengthProc]; 
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TextSource.ReadTextProc: type = procedure [ 

source: TextSource.Handle, position: TextSource.Position, maxLength: cardinal, 
class: TextSource.Class] 

RETURNS [block: Environment.Block, next: TextSource.POSition]; 

The source’s ReadTextProc obtains a block of text. The block should contain text in 
position position and contain at most maxLength characters, class is used as a hint to 
limit the amount of characters read. If class is not none, the block may be terminated after 
a character of that class is read. (See the Discussion section for a discussion of limitations.) 

TextSource.ReplaceTextPrOC: TYPE = PROCEDURE [ 

source: TextSource.Handle, block: Environment.Block, from, to: TextSource.Position, 

deleteToTrashbin: boolean <-true1 

RETURNS [new: TextSource.Position, delta: long integer]; 

The source’s ReplaceTextProc replaces part of the source with a block of text. The source 
positions to be replaced are those between positions from and to. The text to insert in that 
place is in block. If deleteToTrashbin is true, the data removed from the source should be 
placed in the trash bin, where it can be recovered. The procedure should return new, the 
position at the start of the inserted text, and delta, the change in the source’s size resulting 
from this operation. 

TextSource.ScanType:TYPE = { 

alpha, invisible, line, nonAlpha, word, leftMark, rightMark, spare}; 

ScanType, a parameter to ScanTextProc, defines the type of character that will terminate 
the scan, 

TextSource.ScanTextPrOC: TYPE = PROCEDURE [ 

source: TextSource.Handle, start: TextSource.Position, type: TextSource.ScanType, 
direction: TextSource.Direction] 

RETURNS [position: TextSource.Position]; 

The source’s ScanTextProc scans a source, starting at the specified position and going in 
the specified direction until a character of the requested type is found. The position of the 
matching character should be returned; if no character of the requested class can be found, 
nullPosition should be returned. 

TextSource.SetLengthProc; type = procedure [ 

source: TextSource.Handle, position: TextSource.Position] 

RETURNS [TextSource.Position]; 

The source’s SetLengthProc sets the number of positions in a source, position is the length 
to be set; the return value is the actual number of positions the source was set to. 
Attempting to lengthen most sources with this operation is undefined and will produce 
unexpected results. 

TextSource.State: TYPE = {asleep, awake, bad},* 

State is provided for source implementations. 
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40.2 Constants and data objects 

TextSource.cannotExpand: CARDINAL s last[cardinal]; 

cannotExpand may be used as a parameter to AsciilnsertBlock to indicate that the string 
may not be expanded. 

TextSource.nullPosition; TextSourte.Position = last[long cardinal]; 

nullPDsition is returned by a ScanTextProc if no character of the requested class can be 
found. 

40.3 Signals and errors 

TextSource.Error: error [code: TextSource.ErrorCode]; 

TextSource. ErrorCode; type = { 

fileNameError, accessError, isBad, invalidParameters, other}; 

fileNameError either the file doesn’t exist or bad file name syntax was used. 

accessError in operation that violates the created access option was attempted. 

isBad the source no longer exists. This occurs on core swaps when the file 

is deleted. 

invalidParameters the parameters were not sensible. 

Textsource.SearchPailed: error; 

SearchFailed is raised by AsciiTextSearch if there is no match. 

40.4 Procedures 

TextSource. Ascii Append: procedure [ 

string: long string, source: TextSource.Handle, start: TextSource.Position, 
n: cardinal]; 

The Ascii Append procedure appends n characters onto string from source starting at 
position start. It may raise string.StringBoundsFault if string does not have room for n 
characters. 

TextSource.AsciiDeleteSubString: procedure [ 

ss: string.SubString, keepTrash: boolean] returns [trash: long string]; 

The AsciiDeleteSubString procedure deletes a substring in the source and optionally 
returns the deleted substring. 

TextSource. AsciiDoEditAction: TextSource. DoEditActionProc; 

AsciiDoEditAction is a standard DoEditActionProc on an Ascii text source. 
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TextSource.AsciilnsertBlock: PROCEDURE ( 

string: longpointerto long string, position; cardinal, toAdd: Environment.Block, extra: 
cardinal]; 

The AsciilnsertBlock procedure inserts the contents of a block into a string, starting at a 
specified position. If there is not enough room in the string and extra is cannotExpand, 
then String.StringBoundsFault is raised; otherwise, the string is expanded. 

Textsource.AsciiScanText: Textsource.ScanTextProc; 

The AsciiScanText procedure is a standard ScanTextProc on an Ascii text source. 

TextSource.AsciiTestClass: PROCEDURE [ 

char: character, class: TextSource.Class] returns [equal; boolean); 

The AsciiTestClass procedure tests to see if a character is a member of a Class. 

TextSource.AsciiTextSearch; procedure [ 

source: TextSource.Handle, string: long string, start: TextSource.Position «-0, 
stop: TextSource.Position *- last[long cardinal]] 

RETURNS [lineStart, left: TextSource.Position]; 

The AsciiTextSearch procedure searches a range of positions in a source for an instance of 
string. It returns both the leftmost position of the match and the position of the first 
character in the line that contains the match. If there is no match, it raises the error 

SearchFailed. 

TextSource.ActOn; TextSource.ActOnProc * INLINE {...}; 
TextSource.DoEditAction:TextSource.DoEditActionProc * inline {...}; 

TextSource.GetLength: TextSource.GetLengthProc = inline 
TextSource.ReadText: TextSource.ReadTextProc = inline {...}; 

TextSource.ReplaceText: TextSource.ReplaceTextProc s inline {...}; 

TextSource.ScanText: Textsource.ScanTextProc = inline 
TextSource.SetLength: TextSource.SetLengthProc * inline {...}; 

These procedures are for clients who wish to use object notation when dealing with 
sources. (See the next section.) 

40.5 Discussion 

The following additional semantic rules for reading text sources ease the job of 
implementing text sources and discontinuous sources. Discontinuous sources are text 
sources that either have holes in them or contain embedded sequences of non-textual data 
(such as text files with formatting information). 

A text source may not return more text than was requested. 
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A single call on read may not return text that is not contiguous in the text source's address 
space (that is, it cannot concatenate two discontiguous runs of text). 

A text source may return less text than was requested. 

A text source may only return no text (i.e., length = 0) if the position is equal to the value 
returned by getLength or pos is greater than position. 

The following code fragment shows an example of the inline procedures described above 
with object notation: 

source: TextSource. Handle; 
lastPosition: TextSource. Position; 
lastPosition source.GetLength; 

This is equivalent to: 

source: TextSource.Handle; 
lastPosition: TextSource.Position; 
lastPosition source.getlengthfsource]; 
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User input and other events in the Xerox Development Environment are handled by the 
Userinput, Event, EventTypes, and TIP interfaces. These interfaces are useful in tool¬ 
building because they allow programmers to concentrate on design rather than details of 
exactly how the system handles user type-in or other actions. The Userlnput interface is 
the most commonly used for handling keyboard type-in, especially the important ABORT 
key. 

IV.l Events 

Events are initiated by users and by tools or processes that want to notify a tool about a 
change in state, to request permission to boot the volume (which cannot be done during 
disk writes, for instance), or to start other major system-level activities. Event and 
EventTypes are used this way, in particular. They interact with an important Pilot-level 
interface called the supervisor, which keeps track of the tools and the events they want to 
be notified about. (For more information about the supervisor, refer to the Pilot 
Programmer s Manual.) 

TIP (terminal interface package) is less frequently used by most programmers than the 
other interfaces in this section. TIP tables map between keyboard keys (or mouse clicks) 
and their meanings. Restructuring this mapping is a task for more advanced XDE 
programmers. The next section gives a brief overview of TIP tables and gives examples. 
The TIP chapter gives more detail. 

IV.2 TIP tables 

The system uses TIP tables to look up and execute commands based on user-initiated 
actions. It employs both a process to watch for user actions and a queue to store them until 
it can process them. 

The StimLev process watches the hardware for user actions and queues them along with 
their time of occurrence in the user action queue, which is the queue of key transitions and 
mouse movements. 

The Matcher, also called the Notifier, figures out which window and TIP table a given 
event is intended for. If a left side of a TIP statement has been matched, the Notifier calls 
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the associated NotifyProc with a list of results. If no match is found, the action is 
discarded. 

A NotifyProc is a process called (by the Notifier) to let a TIP table know when a desired 
condition is true, by setting appropriate values. 


IV,2.L1 Example of a NotifyProc 

The right sides of TIP statements are usually atoms, but they can also be window-relative 
coordinates, characters, and numbers. A NotifyProc is given a list of such results when it 
is called. There are two handy routines for stepping through this list. TIP.First[] and 
TIP.Restn. 

TipMe: TlP.NotifyProc = { 

FOR input; TIP.Results results, input.Rest until input = nil do 
WITH z: input.First select from 
char = > { 

IF ~Userlnput.StuffCharacter[window, z.c] then 
UserTerminal.BlinkOisplayt]}; 
coords s > tipPlace z.place; 
atom a > 

SELECT Z.a FROM 

Exit = > {trackOnGrid false; SetMouseTracking[FALSE]}; 

Enter a > EnterWindow[clear]; 

Copy a > CopyFunctionH; 

SuperCopy a > SuperCopyFunction[]; 

Delete a > OeleteFunctionH; 

DrawLine a > DrawFunction[]; 

TakeInputFocus a > Usertnput.SetlnputFocus[pictureWindow, DontCare, true]; 
Stuff a > 

IF ~Userlnput.StuffCurrentSelection[window] then 
UserTerminal.BlinkOisplayH; 
enocase; 
string a > 

IF ~Userlnput.StuffString[window, z.s] then UserTerminal.BlinkDisplayH; 
enocase; 

ENDLOOP}; 

The notify procedure TIPMe looks at the results and understands atoms and string input. 


IV.2.2 TIP table keyword semantics 

The keywords trigger and and refer to events that have just happened; that is, the event in 
question has just been dequeued from the User Action Queue. 

The keywords ENABLE and WHILE refer to events that have already happened and are still 
true. These events are sometimes called enabling conditions. 
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input queue and branching to the appropriate choice. An ENABLE statement implies 
selection between the choices according to the current state of the keyboard or the mouse 
keys. AND terms connect sequences of trigger terms. They might be mixed with enable 
terms, which are characterized by while. 

A timeout following a trigger indicates a timing condition that must hold between this 
trigger and its predecessor. The number associated with the timeout expresses a time 
interval in milliseconds. Events starting with the same sequence of trigger or enable 
terms are expressed as nested statements. Result items may be identifiers, numbers, 
strings, or the keywords COORDS, BUFFEREDCHAR, CHAR, KEYS, or TIME. The 
results of the successfully parsed event are passed to the client. 


IV.2.3 TIP table syntax example 

This example of a TIP table uses TRIGGER, AND, enable, and while: 


SELECT TRIGGER FROM 
A Down s > Foo; 

B Down S > SELECT ENABLE FROM 

C Up a > {Atomi Atom2 Atom3 Atom4}; 

E Down a > Atomi, Atom2, Atoms. Atom4; 

endcase; 

H Up AND K Down a > HAndK; 


M Up WHILE L Up a > MAndL; 
ENDCASE.. 


— something has just happened 

— what else is true right now? 

—if more than one is true, the 
first is matched 

— H has just gone Up; we'll 
wait to see if K Down is the 
next action 

— M has just gone Up and L is 
already Up 

— TIP bug! You need at least 
two . 's to end a TIP table 


IV.2.4 How to create a TIP table 

The following procedure sets up a typical TIP table: 

MakeMySWs: Tool.MakeSWsProc * 

BEGIN 

msgSW Tool.MakeMsgSW[window: window, lines: 2]; 
formSW Tool.MakeFormSW[window: window, formProc: AnchorsAway]; 
frameWindow ToolWindow.CreateSubwindow[parent: window]; 
tool.AddThisSW[window: window, sw: frameWindow, swType: vanilla]; 
pictureWindow TajoOps.AllocateWindow[]; 

Window.lnitializeWindow] 

window: pictureWindow, display: DisplayPictureWindow, 
box: [[0,0], [30000,30000]], parent: frameWindow]; 

Wi ndow.l nserti ntoT ree[pictureWindow]; 

Userinput.CreateStringinOut[ 

window: pictureWindow, in: AddStringToLabel, out: AddStringToLabel]; 
scrollbar.Create] 

window: frameWindow, type: horizontal, scroll: HScroll, 
scrollbar: HScrollBar]; 

Scrollbar.Create[ 
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window: frameWindow, type: vertical, scroll: VScroil, 
scrollbar: VScrollBar]; 

TIP.CreateCIient[window: pictureWindow, table: tipTable, notify: TipMe]; 
end; 

tipTable: TIP.Table nil; 

Init: PROC = { 

tipContents: STRING = " — the default TIP table 

OPTIONS DefaultKeys; 

SELECT TRIGGER FROM 
COPY Down = > SELECT ENABLE FROM 
Control Down = > SuperCopy; 

ENDCASE a > COpy; 

DELETE Down a > Delete; 

Three Down and doit Down before 100 a > DrawLine; 

Six Down a > CHAR, char; 

Seven Down a > •'"g"”; 

STUFF Down a > Stuff; 
enter a > Enter; 

EXIT a > Exit; 

Point Down a > coords, TakelnputFocus; 

ENDCASE... 

”L; 

MakeAtomsH; 

tipTable T1P.CreateTable[contents: tipContents, 
file: '*Tug8oat.TIP"L ! TIP.InvalidTable a > resume]; 
tool Window Tool.Create] 

makeSWsProc: MakeMySWs, clientTransition: MyTransitionProc, name: 
"TugBoat", 

tinyNamel: "toottoot"L, cmSection: "TugBoat”L]; 

end; 

MakeAtoms: proc a { 

Enter Atom.MakeAtom["Enter"Ll; 

Exit Atom.MakeAtom["Exit"Ll; 

Copy Atom.MakeAtom["Copy"L]; 

SuperCopy Atom.MakeAtom["SuperCopy"L]; 

Delete Atom.MakeAtom["Delete"L]; 

DrawLine Atom.MakeAtom["DrawLine"L]; 

Stuff Atom.MakeAtom[”Stuff''L]; 

Paste Atom.MakeAtom["Paste''L]; 

Takel nputFocus Atom. MakeAtom["TakelnputFocus" L]; 

}: 
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IV.3 More advanced topics 

See the TIP chapter for a list of the basic commands. These are given here as hints for 
more experienced programmers. 

NewManager A NewManager command is used when you want to lock up the 

notifier, as is done in scrollbars, confirm cursors, adjusting and 
growing windows, the hourglass, adjusting and selecting text, 
FontMonster, and so forth. 

TIP Tree A TIP tree is a hierarchical series of TIP tables that can be 

searched until you find a match, reach the root table, or encounter 
an opaque table. 

PushLocal The PushLocal command is used when you want another TIP table, 

but you still want the window's NotifyProc to get the atoms. 
Example: a keyhack TIP table that maps G Down = > ""begin i end"" 

PushGlobal The PushGtobal command is used when you have created a TIP 

table of global interest and want it to be searched by all processes. 
Perhaps DOIT Up while USERABORT Down = > ReBoot? 

**r*switch orRESUME TIP.CreateTable(] uses the contents: field to build the TIP table 

instead of looking for the TIPC and then the TIP file. 

Opaque Table An opaque table is used if you want no further TIP table searching 

to be done. If this TIP table doesn’t handle the current sequence of 
user actions, they are discarded. 

ActionToWindow The ActionToWindow command sends all user input to the 

window with the input focus except. Adjust, Menu, Pointy find, 
JFIRST, MENU, and USERABORT. 

CreateClient CreateClient is used when you want your own TIP table to be the 

only one for a window, disjoint from the TIP tree. 

IV.3e 1 The GPM macro package 

The GPM Macro Package translates mouse and keyboard interface language into 
encrypted code that is very compact and difficult to read. It is briefly documented here but 
is not recommended for extensive use except by experienced programmers. 

A macro call consists of a macro name and a list of actual parameters, each separated by a 
comma. The name is preceded by a left square bracket ([) and the last parameter is 
followed by a right square bracket. A macro is defined by the special macro DEF, which 
takes two arguments: the name of the macro to be defined and the defining string. The 
defining string may contain special symbols that stand for the formal parameters. 
Enclosing any string in parentheses prevents evaluation of any macro calls inside; in 
place of evaluation, one "layer” of quotes is removed. It is usual to enclose the defining 
string of a macro definition in string quotes in order to prevent any macro calls or uses of 
formal parameters from being effective during the process of definition. 
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Here is a macro: 

[DEF,lfShift,(SELECT ENABLE FROM 

LeftShift Down I RightShift Down = > '1; 

ENDCASE = > '2)] 

BS Down s > [IfShift.BackWord.BackSpace] 

Here is a macro and its expansion from Mouse.TIP; 

[DEF,ButtonEvents,( 

[DEF,ButtonEvent,( 

[DEF,SHiFT,(LeftShift Down | RightShift Down)] 

[def,ctrl,(control Down)) 

[def.com,(commano Down)] 

[DEF,TC,(TIME COORDS)] 

"1 '2 = > SELECT ENABLE FROM 
[shift] a > SELECT ENABLE FROM 
[CTRL] a > SELECT ENABLE FROM 

[com] a > { [tc] Command Control Shift '1"2 }; 

ENDCASE a > { [tc] Contfol Shift ~1"2 }; 

ENDCASE a > SELECT ENABLE FROM 

[com] a > { [tc] Command Shift "1'2 }; 

ENDCASE = > { [tc] Shift ■1"2 }; 

[CTRL] a > SELECT ENABLE FROM 

[com] a > { [tc] Command Control "1"2 }; 

ENDCASE a > { [tc] Control "1"2 }; 

[com] * > { [tc] Command "1"2 }; 

ENDCASE a > { [tc] '1"2 })] 

[ButtonEvent,'1.Down];[ButtonEvent,"1.Up])] 

[ButtonEvents, Point] 

— Expansion of Mouse.TIP 

OPTIONS 

Fast; — Top-level trigger select 

SELECT TRIGGER FROM — Mouse and button actions 

MOUSE a > SELECT ENABLE FROM 

Point Down a > coords, PointMotion; 

Menu Down a > coords, MenuMotion; 

Adjust Down a > coords, AdjustMotion; 

ENDCASE,' 

Point Down a > select enable from 

LeftShift Down | RightShift Down a > select enable from 
control Down a > select enable from 
COMMAND Down a > { TIME COORDS Command Control Shift PointDown }; 
ENDCASE a > { TIME COORDS Control Shift PointDown }; 

ENDCASE a > SELECT ENABLE FROM 
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COMMAND Down = > { TIME COORDS Command Shift PointDown }; 

ENOCASE = > { TIME COORDS Shift PointDown }; 

CONTROL Down = > SELECT ENABLE FROM 

COMMAND Down = > { TIME COORDS Command Control PointDown }; 
ENOCASE a > { TIME COORDS Control PointDown }; 

COMMAND Down = > { TIME COORDS Command PointDown }; 

ENOCASE = > { TIME COORDS PointDown }; 

Point Up a > SELECT ENABLE FROM 

LeftShift Down | RightShift Down a > select enable from 

CONTROL Down a > SELECT ENABLE FROM 
COMMAND Down a > { TIME COORDS Command Control Shift PointUp }; 
ENOCASE a > { TIME COORDS Control Shift PointUp }; 

ENOCASE a > SELECT ENABLE FROM 
COMMAND Down a > { TIME COORDS Command Shift PointUp }; 

ENDCASE a > { TIME COORDS Shift PointUp}; 

CONTROL Down a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Control PointUp }; 
ENDCASE a > { TIME COORDS Control PointUp }; 

COMMAND Down a > { TIME COORDS Command PointUp }; 

ENDCASE a > £ TIME COORDS PointUp }; 

Menu Down a > select enable from 

LeftShift Down | RightShift Down a > select enable from 

CONTROL Down a > SELECT ENABLE FROM 
COMMAND Down a > { TIME COORDS Command Control Shift MenuDown }; 
ENDCASE a > { TIME COORDS Control Shift MenuDown }; 

ENDCASE a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Shift MenuDown }; 

ENDCASE a > { TIME COORDS Shift MenuDown }; 

CONTROL Down a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Control MenuDown }; 
ENDCASE a > { TIME COORDS Control MenuDown }; 

COMMAND Down a > ( TIME COORDS Command MenuDown }; 

ENDCASE a > { TIME COORDS MenuDown }; 

Menu Up a > select enable from 

LeftShift Down | RightShift Down a > select enable from 
CONTROL Down a > SELECT ENABLE FROM 
COMMAND Down a > { TIME COORDS Command Control Shift MenuUp }; 
ENDCASE a > { TIME COORDS Control Shift MenuUp }; 

ENDCASE a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Shift MenuUp }; 

ENDCASE a >{ TIME COORDS Shift MenuUp }; 

CONTROL Down a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Control MenuUp }; 
ENDCASE a > { TIME COORDS Control MenuUp }; 

COMMAND Down a > { TIME COORDS Command MenuUp }; 

ENDCASE a > { TIME COORDS MenuUp }; 
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Adjust Down = > select enable from 

LeftShift Down | RightShift Down = > select enable from 

CONTROL Down a > SELECT ENABLE FROM 
COMMAND Down = > { TIME COORDS Command Control Shift AdjustDown }; 
ENDCASE = > { TIME COORDS Control Shift AdjustDown }; 

ENDCASE = > SELECT ENABLE FROM 

COMMAND Down * > { TIME COORDS Command Shift AdjustDown }; 

ENDCASE = > {timeCOORDS Shift AdjustDown }; 

CONTROL Down a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Control AdjustDown }; 
ENDCASE * > { TIME COORDS Control AdjustDown }; 

COMMAND Down a > { TIME COORDS Command AdjustDown }; 

ENDCASE a > { TIME COORDS AdjuStDown }; 

Adjust Up a > SELECT ENABLE FROM 

LeftShift Down | RightShift Down a > select enable from 
CONTROL Down a > SELECT ENABLE FROM 
COMMAND Down a > { TIME COORDS Command Control Shift AdjustUp }; 
ENDCASE a > { TIME COORDS Control Shift AdjustUp }; 

ENDCASE a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Shift AdjustUp }; 

ENDCASE a > { TIME COORDS Shift AdjuStUp }; 

CONTROL Down a > SELECT ENABLE FROM 

COMMAND Down a > { TIME COORDS Command Control AdjustUp }; 
ENDCASE a > { TIME COORDS Control AdjustUp }; 

COMMAND Down a > { TIME COORDS Command AdjustUp }; 

ENDCASE a > { TIME COORDS AdjuStUp }; 

ENTER a > Enter; 

EXIT a > Exit; 

USERABORT Down a > Abort; 

ENDCASE... 

IV.3.2 Another TIP example 

The following TIP table simulates a TeleVideo 920c terminal: 

SELECT TRIGGER FROM 

A Down WHILE B Up WHILE C Up WHILE D Up ... WHILE Z Up a > CHAR 
B Down WHILE A Up WHILE C Up WHILE D Up ... WHILE Z Up a > CHAR 


ENDCASE... 
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IV.4 Interface abstracts 

Event is used with the EventTypes interface to allow clients to be notified of events that 
take place asynchronously on a system-wide basis. 

EventTypes is used with the Event interface to allow clients to be notified of events that 
take place asynchronously on a system-wide basis. 

TIP provides facilities for handling user input, including all key and mouse actions. 

Userinput provides the client with routines for interpreting user actions and notifying 
tools of a change in the user state. 
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The Event interface allows clients to be notified of actions (or events) that take place 
asynchronously on a system-wide basis. The actual notification mechanism is supplied by 
the Supervisor (see the Supervisor chapter of the Pilot Programmer's Manual for details). 
Tajo and CoPilot both invoke Supervisor.NotifyDirectSubsystems to notify clients of events 
that may interest them. 

Event is used with the interface EventTypes to define events of interest. The Event 
interface contains Supervisor. SubsystemHandles, on which a client may add dependencies. 
A Supervisor. SubsystemHandle may be thought of as a class of related events. A client 
specifies interest in a particular class^ of events by registering a dependency on the 
Supervisor.SubsystemHandle obtained from Event, specifying it as the implementor. The 
interface EventTypes provides some of the specific Supervisor.Events that are raised. A 
client that has registered to be notified about a class of events uses the Supervisor.Event to 
determine which element of that class has occurred. 

To write a program that will be notified about an event, first find the event definition in 
EventType and then add a dependency on the corresponding Supervisor.SubsystemHandle 
defined in Event. Unfortunately, there is not always a one-to-one correspondence between 
the events defined in EventType and Supervisor.SubsystemHandles in Event. You must 
consider an event to be defined by the pair of items, one from Event and one from 
EventTypes. 


41ol Types 

Event.Handle: Type = LONG POINTER TO Object; 

Object: TYPE; 

This type is for use with Event. StartingProcess and Event. DoneWithProcess. 

41.2 Constants and data objects 

Event.abOUtToSwap: READONLY Supervisor.SubsystemHandle; 

The aboutToSwap event class is used by the debugger and the Herald Window in Tajo to 
request permission to swap back to its client. The associated EventTypes are 
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aboutToAbortSession, aboutToBoot and aboutToBootPhysicalVolume. Clients may 
optionally abort this event by raising the error Supervisor.EnumerationAborted from their 
agent procedures. If no client vetoes the request to swap, the debugger broadcasts the 
appropriate event in Event.swapping. (See the discussion at the end of this chapter.) 

Event.displayState: readonly Supervisor.SubsystemHandle; 

Event.displayState is used to tell whether the display is on or off. Its EventTypes are 
displayOff and displayOn. (This event is not used by Tajo or CoPilot; it is included for 
future use.) 

Event.fileSystem: readonly Supervisor.SubsystemHandle; 

File-system events that may interest clients include changing the search path, creating or 
deleting directories, and opening or closing volumes. The related EventTypes are 
aboutToChangeSearchPath, newSearchPath, abortedSearchPathChange, 

directoryCreated, directoryOeleted, volumeOpened, and volumeClosed. Events from 
EventTypesExtra are aboutToOpenVolume and aboutToCloseVolume. 

EventfileWindow: READONLY Supervisor.SubsystemHandle; 

The fileWindow event class is concerned with events that affect windows maintained by 
the FileWindow interface. The eventData passed to the agent procedure is a 
Window. Handle for the affected window. The following events are defined in EventTypes 
for events on windows: createWindow, destroy, edit, load, reset, and store. 

EventpOwerOff: READONLY Supervisor.SubsystemHandle; 

The powerOff event class is available for clients interested in performing some action 
before the machine powers down. The associated event defined in EventTypes is also 
called powerOff. 

Event.primaryCredentials: readonly Supervisor.SubsystemHandle; 

The primaryCredentials event class is available for clients interested in monitoring 
changes to the user name and password. The associated event defined in EventTypes is 
also called primaryCredentials. 

Eventswapping: readonly Supervisor.SubsystemHandle; 

The swapping event class is concerned with swapping; that is, with returning from the 
debugger to the client volume or entering the debugger from the client volume. These 
events cannot be vetoed; clients wishing to veto swaps should register for 
Event.aboutToSwap (see the end of this chapter for examples). Because clients can veto a 
swap, they must be notified whether the swap took place. Therefore, associated events 
defined in EventTypes fall into three categories: swap-out reasons, swap-in reasons, and 
swap-cancellations. The swap-in reasons are newSession and resumeSession. Swap-out 
reasons are abortSession bootPhysicalVolume and resumeDebuggee. swapCancelled and 
bootPhysicalVolumeCancelled are cancellation reasons. (Some private defaults that are 
unavailable to clients are used internally.) 

EventtajoDefaultS: READONLY Supervisor.SubsystemHandle; 
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The tajoDefaults event class is concerned with system-wide defaults; the ones currently 
defined in EventTypes are debugging, librarian, domain, organization, registry, 
fileServerProtocol, and systemFont. 

Event, tool Window: readonly Supervisor. SubsystemHandle; ) 

The tooiWindow event class notifies clients when a tool is activated, deactivated, or 
created; the corresponding EventTypes are createTool, activate, and deactivate. 


41.3 Signals and errors 


None. 


41.4 Procedures 

The two procedures Event.StartingProcess and Event.DoneWithProcess keep track of non- 
notifier processes that are not otherwise protected against swapping. Conceptually, these 
procedures are actually counters: Event.StartingProcess adds 1 to the current count of 
running processes, and Event. DoneWithProcess decrements the count. When a swapping 
event occurs, it is aborted if the count of running processes is non-zero. 

Event. DoneWithProcess: procedure [Event.Handle]; 

The parameter passed to this procedure is obtained by calling Event.StartingProcess. 
Event.StartingProcess: PROCEDURE[id: long string] RETURNS[Handle]; 

Event.StartingProcess adds I to the total count of running processes, id is a message posted 
in the Herald Window if the swapping event is aborted. 


41.5 Examples 

The interface EventTypes provides some of the specific Supervisor.Events that are raised 
while the Event interface contains Supervisor.SubsystemHandles to which the client may 
wish to add dependencies. A typical fragment of client code might appear as follows: 

NoteCredentialsChange: Supervisor. AgentProcedure = 

BEGIN 

SELECT event from 

EventTypes.primaryCredentials = > .,. 

EventTypes.registry * > ... 
endcase; 

END; 

- mainline 

me: Supervisor.SubsystemHandle = 

Supervisor.CreateSubsystem[agent: NoteCredentialsChange, 
instanceData: myInstanceData]; 

Supervisor.AddDependency[client: me, implementor: Event.tajoDefaults]; 
Supervisor.AddDependency[ 
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client; me, implementor; Event.primaryCredentials]; 


Tool writers should pay particular attention to the events involved in a world swap. When 
the user asks to leave CoPilot and return to the client, CoPilot notifies on the event 
Event.aboutToSwap. If any tool is unwilling or unable to stop for a world swap, it should 
abort this event by raising the error Supervisor. EnumerationAborted. If no clients abort the 
swap, CoPilot notifies on the event Event.swapping with a swap-out reason 
(EventType.abortSession, EventType.resumeDebugee, or EventType.bootPhysicalVolume). All 
tools are expected to stop when this event is notified. When CoPilot is re-entered for any 
reason, it raises the event Event.swapping with a swap-in reason (EventType.newSession or 
EventType.resumeSession) to let tools know that they can resume processing. The following 
example is typical of the swapping behavior expected of tools: 

swapOone; condition; 

subsystemRunning, swapping; boolean «-false; 

aboutToSwapAgent; Supervisor.SubsystemHandle = 

Supervisor.CreateSubsystem(agent: AboutToSwap]; 
swappingAgent; Supervisor.SubsystemHandle s 
Supervisor.CreateSubsystem[agent; Swapping]; 

StartSubsystem; ENTRY PROCEDURE » { 

IF swapping then wait swapOone; 
subsystemRunning ^true}; 

SubsystemStopped; ENTRY PROCEDURE a {subsystemRunning false}; 

AboutToSwap; entry Supervisor-AgentProcedure a 

BEGIN 

enable unwind a > NULL; 

IF subsystemRunning then { 

HeraidWindow.AppendMessage["MyTool busy: aborting swap."L]; 

ERROR Supervisor.EnumerationAborted}; 
end; 

Swapping: entry Supervisor.AgentProcedure a 
BEGIN 

ENABLE UNWIND a > NULL; 

SELECT event from 

EventTypes.newSession, EventTypes.resumeSession, EventTypes.swapCancelled, 
EventTypes-bootPhysicalVolumeCancelled a > { 
swapping «- false; broadcast swapOone}; 

EventTypes.abortSession, EventType$.resumeOebuggee, 

EventTypes.bootPhysicalVolume a > 
swapping ♦- true; 
endcase; 
end; 


- mainline 

Supervisor.AddDependency[client: aboutToSwapAgent. 
implementor; Event.aboutToSwap]; 
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Supervisor. AddDependencyf 

client: swappingAgent, implementor: Event.swapping]; 

DO 

SubsystemStoppedd; 

-- wait for user input from the Notifier 
StartSubsystemd; 

- perform computation 
ENOLOOP; 
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The EventTypes interface allows clients to be notified of actions (or events) that take place 
asynchronously on a system-wide basis. The actual notification mechanism is supplied by 
the Supervisor (see the Supervisor chapter of the Pilot Programmer's Manual for details). 
Each of the EventTypes defined here is passed as the result of a 
Supervisor. NotifyDirectSubsystems for one of the events defined in the Event interface. 

The interface Event is used with EventTypes to define events of interest. The Event 
interface contains Supervisor.SubsystemHandles on which a client may add dependencies. A 
Supervisor.SubsystemHandle may be thought of as a class of related events; a client 
specifies interest in a particular class of events by adding a dependency on the 
corresponding Supervisor.SubsystemHandle. The interface EventTypes provides some of the 
specific Supervisor.Events that are raised. A client that has registered to be notified about a 
class of events uses the Supervisor.Event to determine which element of that class has 
actually occurred. 

Two of the EventTypes documented in this chapter are actually in the EventTypesExtra 
interface. They are EventTypesExtra.aboutToOpenVolume and 

EventTypesExtra . 3 boUtT OCI OSe Vol U me. 


42.1 Types 

The following EventTypes are used by Tajo for internal bookkeeping: 
EventTypes.CredentialEventS:TYPE = ... 

EventTypes.DebugEventS; TYPE = ... 

EventTypes.DisplayEventS: TYPE = ... 

EventTypes.FileSystemEventS:TYPE «... 

EventTypes.FileWindOwEventS: TYPE «... 

EventTypes.OtherEventS: TYPE a ... 
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EventTypes.SpareEventS: TYPE = ... 
EventTypes.TajoDefaultEventS: TYPE = ... 
EventTypes.ToolWindOwEventS: TYPE = ... 
EventTypes.VetoEventS: TYPE = ...; 


42.2 Constants and data objects 

EventTypes.abortedSearchPathChange: Supervisor.Event = [EventTypes.firstFileSystem + 2]; 

abortedSearchPathChange is an event in the event class Event.fileSystem. It means that a 
previous notification that the search path would change has been aborted. 

EventTypes.abortSession: Supervisor. Event = [EventTypes.fi rstDebugE vent + 5]; 

abortSession is an event in the event class Event. swapping. It means that the user has quit 
a debugging session and is returning to the client. 

EventTypes.aboutToAbortSession; Supervisor.Event = [EventTypesiirstVetoEvent ♦ 1]; 

aboutloAbortSession is an event in the event class Event.aboutToSwap. It informs 
interested clients that a world swap is about to occur. Tools should behave as though they 
will be interrupted but expect to be resumed later. This event should be vetoed by any 
process that is unable or unwilling to stop for the duration of the world swap. 

EventTypes.abOutToBoOt: Supervisor, Event s [EventTypes.fi rstVetOEvent]; 

aboutToBoot is an event in the event class Event.aboutToSwap. It means that a 
HeraldWindow boot is about to occur. In this case, the state of the current volume is going 
to disappear, never to return. Processes doing something physically destructive across 
reboots, like writing on the disk, should veto this event. 

EventTypes.aboutToBootPhysicalVolume: Supervisor.Event s [EventTypes.fi rstVetoEvent 4» 3]; 

aboutloBootPhysicalVolume is an event in the event class Event.aboutToSwap. It means 
that the physical volume is about to be booted. It is similar to aboutToBoot because the 
current state will disappear, never to return. Processes doing something physically 
destructive across reboots, like writing on the disk, should veto this event. 

EventTypes.aboutToChangeSearchPath; Supervisor.Event ® [EventTypes.firstFileSystem]; 

aboutToChangeSearchPath is an event in the event class Event.fileSystem. It means that 
the current search path is about to be changed. Clients may veto this event. 

EventTypesExtra.aboutToCloseVolume: Supervisor.Event s [EventTypes.firstFileSystem 4=8]; 

aboutToCloseVolume is an event in the event class Event.fileSystem. It means that a 
logical volume is about to be closed. The parameter eventData passed to the agent 



Mesa Programmer’s Manual 


42 


procedure contains the volume id of the volume that will be closed. Clients may veto this 
event. 

EventTypesExtra.aboutToOpenVolume: Supervisor.Event = [EventTypes.firstFileSystem + 7]; 

aboutToOpenVolume is an event in the event class Event.fileSystem. It means that a 
logical volume is about to be opened, The parameter eventData passed to the agent 
procedure contains the volume id of the volume that will be opened. Clients may veto this 
event. 

EventTypes.aboutToResume: Supervisor.Event =s [EventTypes.firstVetoEvent + 2]; 

aboutToResume is an event in the event class Event.aboutToSwap. It means that the 
debugging session is about to be resumed. Clients should behave as though they will be 
temporarily interrupted, to be resumed later. Processes unable to stop for the duration of 
the world swap should veto this event. 

EventTypes.activate. Supervisor. Event a [EventTypes.fi rstToolWndowEvent + 1]; 

activate is an event in the event class Event, tool Window. It means that a particular tool 
has been activated. The window handle for the tool is passed as the eventData. 

EventTypes.bOOtPhysical Volume: Supervisor. Event a [EventTypes.fi rstDebugEvent + 7]; 

bootPhysicalVolume is an event in the event class Event.swapping. It means that no client 
has vetoed the previous aboutToBootPhysicalVolume, and the physical volume will be 
booted. 

EventTypes.bootPhysicalVolumeCancelled: Supervisor.Event a [EventTypes.firstDebugEvent -k 

41; 

bootPhysicalVolumeCancelled is an event in the event class Event.swapping. It means that 
at least one client has vetoed the previous aboutToBootPhysicalVolume, and the physical 
volume will not be booted. 

EventTypes.createTool: Supervisor.Event a [EventTypes.firstToolWindowEvent]; 

createTool is an event in the class Event.tool Window. It means that a tool has just been 
created. The window handle for the tool is passed as the eventData. 

EventTypes.createWindow: Supervisor.Event a [EventTypes.firStFileWindowEvent]; 

createWindow is an event in the event class Event.fileWindow. It means that a new file 
window has been created. The window handle for the new window is passed as the 

eventData. 

EventTypes.deactivate: Supervisor.Event a [EventTypes.firstToolWindowEvent + 2]; 

deactivate is an event in the class Event.tool Window. It means that a tool has just been 
deactivated. The window handle for the tool is passed as the eventData. This event can be 
vetoed. 
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EventTypes.debUQQing: Supervisor, Event = [EventTypes.firstDefaultEvent+ 1]; 

debugging is an event in the event class Evem.tajoDefaults. It means that the value of the 
variable debugging, maintained in the Profile module, has changed. 

EventTypes.destroy: Supervisor.Event s [EventTypes.firstFileWindowEvent+1]; 

destroy is an event in the event class Event. fileWindow. It means that a file window has 
been destroyed. The window handle for the window is passed as the eventData. 

EventTypes.directoryCreated: Supervisor.Event s [EventTypes.firstFileSystem + 3]; 

directoryCreated is an event in the class Event.fileSystem. It means that a new directory 
has just been created. 

EventTypes.di rectory Deleted: Supervisor. Event = [EventTypes.firstFileSystem + 4]; 

directoryDeleted is an event in the class Event.fileSystem. It means that an old directory 
has just been deleted. 

EventTypes.displayOff: Supervisor. Event = [EventTypes.firstDisplayEvent]; 

displayOff is not currently used; it is included for future use. 

EventTypes.displayOn: Supervisor. Event s [EventTypes.firstDisplayEvent4-1]; 

displayOn is not currently used; it is included for future use. 

EventTypes.domain: Supervisor.Event a (EventTypes.firstDefaultEvent + 3]; 

domain is an event in the class Event.tajoDefaults. It means that the value of the variable 
domain, maintained in the Profile module, has changed. 

EventTypes.edit: Supervisor.Event = [EventTypes.firstFileWindOwEvent4'2]; 

edit is an event in the event class Event.fileWindow. It means that a file window has been 
opened for editing. The window handle for the window is passed as the eventData. 

EventTypes.fi leServerProtocol: Supervisor. Event = [EventTypes.firstDefaultEvent + 6]; 

fileServerPrOtOCOl is an event in the class Event.tajoDefaultS. It means that the file server 
protocol, which is maintained by the Profile module, has changed from NS to PUP or vice versa. This 
event will never occur in a product configuration because file server protocols are always NS. This event 
type will be removed in a future release. 

The following EventTypes are used by Tajo for internal bookeeping: 

firstCredentialEvent, firstDebugEvent, firstDefaultEvent, firstDisplayEvent, 
firstFileSystemEvent, firstFileWindowEvent, firstOtherEvent, firstSpare and 
firstVetoEvent. 
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EventTypes.flushSymbolS: Supervisor.Event = [EventTypes.firstDebugEvent]; 

flushSymbols is in the event class Event.swapping and is for private use by the debugger. 

EventTypes.librarian: Supervisor Event = [EventTypes.firstDefaultEvent + 2]; 

librarian is an event in the event class Event. tajoDefaults. It means that the value of the 
default librarian server, maintained in the Profile module, has changed. 

EventTypes.load: Supervisor. Event = [EventTypes.fi rStFileWindowEvent-h 3]; 

load is an event in the event class Event.fileWindow. It means that a file window has been 
loaded with a new file. The window handle for the window is passed as the eventData. 

EventTypes.newSearchPath: Supervisor.Event = [EventTypes.firstFileSystem-h 1]; 

newSearchPath is an event in the event class Event.fileSystem. It means that the previous 
notification of aboutToChangeSearchPath was not vetoed, and the search path will be 
changed. 

EventTypes.newSession: Supervisor. Event * [EventTypes.fi rstDebugEvent + 1]; 

newSession is an event in the event class Event.swapping. It represents a swapping-in 
reason and means that CoPilot has been entered for debugging for the first time in a 
session. 

EventTypes.Organization: Supervisor.Event a [EventTypes.firStDefaultEvent 4> 4]; 

organization is an event in the event class Event. tajoDefaults. When the organization field 
of the Profile Tool changes, interested clients arenotified with the reason 

EventTypes.Organization. 

EventTypes. power Off: Supervisor.Event a [EventTypes.firstOtherEvent]; 

powerOff is an event in the event class Event. powerOff. It means that the machine is 
about to be turned off. 

EventTypes.primaryCredentials: Supervisor.Event a [EventTypes.firstCredentialEvent]; 

primaryCredentials is an event in the event class Event.primaryCredentials. It means that 
the user name, password, or both have changed. 

EventTypes.registry: Supervisor.Event a [EventTypes.firStDefaultEvent + 5]; 

registry is an event in the event class Event.tajoDefaults. It means that the value of the 
default registry, maintained in the Profile module, has changed. 

EventTypes.reset: Supervisor.Event a [EventTypes.firstFileWindowEvent+ 4]; 

reset is an event in the event class Event.fileWindow. It means that a file window has been 
reset. The window handle for the window is passed as the eventData. 
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EventTypes.resumeDebuggee: Supervisor.Event S [EventTypes.firstDebugEvent-hS]; 

resumeDebuggee is an event in the event class Event.swapping. It means that the user Is 
proceeding from a debugging session and returning to the client. 

EventTypes.resumeSession: Supervisor.Event ss [EventTypesiirStDebugEvent-f 2]; 

resumeSession is an event in the event class Event.swapping. It means that Copilot has 
been re-entered for debugging. 

EventTypes.StOre: Supervisor. Event = [EventTypes.firstFileWindOwEvent-h 5]; 

Store is an event in the event class Event.fileWindow. It means that the file in a file 
window open for editing has been saved or stored and the window is no longer open for 
editing. The window handle for the window is passed as the eventData. 

EventTypes. SwapCancelled: Supervisor. Event = [EventTypes.firstDebugEvent + 3]; 

swapCancelled is an event in the class Event.swapping. It means that a previous 
notification of a swap was vetoed by at least one client. 

EventTypes.SystemFont: Supervisor.Event = [EventTypes.firstDefaultEvent ♦ 7]; 

systemFont is an event in the class Event.tajoDefaults. It is used to notify clients when the 
default font used to display text is changed. 

EventTypes.tellFileSystemSwappingln.Supervisor.Event = [EventTypes.firstDebugEvent + 9]; 
EventTypes.tellFileSystemSwappingOutSupervisor.Event = [EventTypes.firstDebugEvent + 8]; 

These two events, in the class Event.swapping, are for private use by CoPilot. 

EventTypes.volumeClosediSupervisor.Event = [EventTypes.fi rstFileSystem + 6]; 
EventTypes.volumeOpened:Supervisor.Event = [EventTypes.firstFileSystem + 5]; 

These two events, in the class Event.fileSystem, are used to notify when a logical volume 
has been opened or closed. The parameter eventData, passed to the agent procedure, 
contains the volume id of the volume that is opening or closing. 

42.3 Signals and errors 

None. 

42.4 Procedures 

None. 

42.5 Examples 

See Event. 
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TIP allows you to customize the keyboard for programming the user interface. It 
translates hardware-level actions from the keyboard, mouse, and keyset into higher-level 
client action requests (result lists). The acronym TIP stands for (erminal interface 
package. (See also the Userinput chapter.) 


43.1 Types 


TiP.DownUp: type ® Keys.Oownllp; - {down, up} 

Downtlp is an enumerated type that describes the two possible key and button states. 

Tip.GlobalTable: type = { 

root, formSW, textSW, fileWindow, ttySW, executive, sparel, spare2}; 

These are the indices of the predefined global TIP table array TiP.globalTable. 

Tip.KeyName: type = Xeys.KeyName; 

Key Name is an enumerated type that describes the keyboard and mouse buttons. It is used 

to index the table TiP.actionToWindow and is provided here for convienience. (See the Pilot 

Programmer’s Manual for a complete list of its elements.) 

TiP.NotifyProc: type s procedure [window; window.Handle, results: Tip.Results]; 

When a sequence of user actions matching the left side of a statement in a TIP table 

occurs, a NotifyProc is called with the results list of that statement. 

Tip.ResultElement: type s record [ 

SELEcrtype: *from 

char = > [c: character], 

coords s > [place: window.Place], 

keys a > [keys: long pointer to Keys.KeyBits], 

atom = > [a: Atom.ATOM], 

int = > [i: long integer], 

string a > [s: long string]. 
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time = > [time: System. Pulses], 
endcase]; 

The right side of a statement in a TIP table is a list of results to be passed to the client 
when the specified action(s) occurs. Each element in this list is described by a 
ResultElement. (See also the descriptions of TiP.Results, TiP.First, and TiP.Rest.) Note: The place 
in a coords ResultElement is relative to the window argument of the NotifyProc, 

TiP.Results: TYPE = long pointer to TiP.ResultsList; 

TiP.ResultsList: type; 

A NotifyProc is passed a list of results. The client enumerates the list with the procedure 
TIP. Rest and extracts the elements of the list with the procedure tip. First (q.v,). 

Tip.Table: TYPE = long pointer to Tip.TableObject; 

TiP.TableObject: type; 

A Table is a pointer to the internal representation of a TIP table. 

43c2 Constants and data objects 

TiPExtras.dickTimeout: System. Pulses; 

clickTimeout determines the maximum time allowed between two clicks of a multi-click. 
If a mouse button goes down more than clickTimeout Pulses after the previous button 
transition, it is treated as a separate selection action. The current selection does not go to 
the next level of the selection hierarchy (Character -> Word -> Line -> Window). This 
value is global for the entire environment. This item is currently in the TIPExtras interface. 

Tip.actionToWindow: packed array Keys.KeyName of boolean; 

actionToWindow determines if a user action should be sent to the window containing the 
cursor (true) or to the window containing the current input focus (false). This array is 
global for the entire environment. It is initialized for all actions to go to the input focus, 
except those associated with the Adjust, Menu, and Point mouse buttons and the find, 
JFIRST, MENU, and userabort keys. 

globalTable: readonly array GlobalTable of Tip.Table; 

Elements of globalTable are predefined, globally available TIP tables. These tables are 
definied at boot time and do not change after they are initialized. Figure 43.1 shows how 
they form a chain. (See TiP.PushGlobal and TiP.PushLocal for examples of how they are 
used.) 

TiPExtras.mouseTIP: Tip.Table; 

mouseTIP is a convenient TIP table that is made available to clients who need to watch 
mouse events, both buttons and tracking. It has no successor tables. This item is currently in the 
TIPExtras interface. 
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43.3 Signals and errors 

Tip.InvalidTable: signal [type: Tip.TableError, message: long string]; 

TiP.TableError: type = (fileNotFound, badSyntax};. 

InvalidTable is raised only by TiP.CreateTable. The type is fileNotFound if the file could not 
be found and the contents string was empty. fileNotFound is raised as an error . The type 
is badSyntax if the current file is syntactically incorrect. If badSyntax is RESUMEd, and 
contents is not empty, the contents are written into file and it is reparsed. If the file has 
been overwritten or contents is empty and a syntax error occurs, the error will be 
badSyntax. In this case, if the signal is resumed, CreateTable simply returns nil. 

43.4 Procedures 

TiP.CreateClient: procedure [ 

window: w'mdow.Handle, table: Tip.Table nil, notify: TiP.NotifyProc «- nil]; 

CreateClient makes window a potential TIP client. If window is already a TIP client and 
table or notify is nil, then the old value is retained. Note: This procedure is not called by most clients 
of this interface since all windows created by Tool, ToolWindow, or any of the Subwindow interfaces are already 
TIP clients. Call this routine only if you are creating your own subwindow type. 

TiP.CreateTable: procedure [ 

file: LONG STRING NIL, opaque: boolean false, z: uncounted zone nil, 
contents: long string ^ nil ] 

RETURNS [table: TIP.TableJ; 

CreateTable generates a Tip.Table from the text file named by file (which may not be nil). If 
opaque is true, then unrecognized actions are discarded without searching the table chain 
past this entry, table will be allocated in z. If z is nil, it is allocated from a zone owned by 
the TIP table manager. There is no procedure provided for destroying TIP tables, so if you will want to free 
table later, provide a zone that you may destroy. Further, note that you should not destroy tables on which you 
haved done a push global, contents is the default contents of file and will be used if (1) you boot 
with the "I” switch, (2) file cannot be read, or (3) you RESUME TiP.lnvalidTable[badSyntax, 
...]• (See Tip.InvalidTable for further details on how to treat that SIGNAL.) 

When file is parsed, a compiled form of the table is written into a file with a name 
constructed by appending a '’C” on the end of file, file should typically have the extentsion ''.TIP”. 
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When CreateTable is called, if a ".TfPC” file exits that was created from file, the ''.TIPC 
file is used to generate table 

This procedure may raise the signal TiP.Invalidlable. 

Tip.DestroyClient: procedure [window: Window.Handle); 

DestroyClient frees the resources allocated by CreateClient. 

Tip.First: procedure [results: Tip.Results] returns [TiP.ResultElement]; 

First returns the first TiP.ResultElement associated with the list results. 

TiP.FlushUserlnput: procedure; 

FlushUserInput empties the queue of pending user actions (type-ahead and button-ahead). 

TIP. GetNotifyProc: procedure [window: window.Handle] returns [TiP.NotifyProc]; 

GetNotifyProc returns the TiP.NotifyProc associated with window. 

TIP. GetNotifyProcFromTable: procedure [table: Tip.Table] returns [TiP.NotifyProc]; 

GetNotifyProc FromTable returns the TiP.NotifyProc associated with table. 

TIP. GetPlace: procedure [window: window.Handle] returns [window.Place]; 

GetPlace returns the window-relative coordinate of the last user action that was matched. 
GetPlace should be invoked only while in the call stack of a TiP.NotifyProc. 

tip. GetTable: procedure [window: Window.Handle] returns [Tip.Table]; 

GetTable returns the head of the Tip.Table chain associated with window. 

TiP.NewManager: procedure [ 

window: window.Handle, table: Tip.Table, notify: TiP.NotifyProc nil]; 

NewManager sends all user actions through table and notify using window, instead of 
through the window, table, and notify procedure determined by TiP.actionToWindow and 
the Match process. If table is nil, the standard mechanisms determine where actions are 
sent. 

Tip.NextTable: procedure [table: Tip.Table] returns [next: Tip.Table]; 

NextTable returns the TIP table following table in the chain, next will be nil if there is no 
successor table. 

TiP.PushGlobal: procedure [ 

push: Tip.Table, onto: TiP.GIobalTable, opaque: boolean ^ false]; 

TiP.PushLocal: procedure [push, onto: Tip.Table, opaque: boolean false]; 
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PushGlobal and PushLocal manipulate the relationships amon^ tip. Tables. If opaque is 
TRUE, unrecognized user actions will be discarded without searching the table chain past 
the opaque entry. 

PushGlobal inserts push after the global table inde.xed by onto. 

PushLocal appends the chain of TiP.Tables headed by onto the successor of the chain 
headed by push. Other clients sharing onto will not be affected. 

Note; Never supply the same actual parameter to the formal paramenter push more than 
once. 

Tip.Rest: PROCEDURE [results: TiP.Results] returns [TiP.Results]; 

Rest advances results one element, nil is returned when results is exhausted. 

TIP. SetNotifyProc: procedure [window: window. Handle, notify: TiP.NotifyProc] 

RETURNS [oldNotify‘.TiP.NotifyProc]; 

SetNotifyProc sets the TiP.NotifyProc associated with window to be notify and returns the 
old TiP.NotifyProc. 

TIP. SetNotifyProcForTable: procedure [table: TiP.Table, notify: TiP.NotifyProc] 

RETURNS [oldNotify: TiP.NotifyProc]; 

SetNotifyProcForTable sets the TiP.NotifyProc associated with table to be notify and 
returns the old TiP.NotifyProc. Note: results from statements in table go to notify instead of to the Notify 
Proc for whatever window this chain is associated with, 

TIP. SetTable: procedure [window: window.Handle, table: TiP.Table] 

RETURNS [oldTable: Tip.Table]; 

SetTable sets the Tip.Table associated with window to be table and returns the old 

Tip.Table. 

43.5 Discussion 

TIP tables describe the translation from keyboard and mouse actions into client actions. 
Every time a user action (key transition, button transition, or mouse movement) occurs, 
the TIP software determines which window that event is for and looks the event up in the 
first table of the chain of TIP tables associated with that window. If the event matches the 
left side of a statement in that TIP table, the right side (result list) of the statement is 
passed to the NotifyProc for that window. If no match is found, the next table in the chain 
is checked, and so on. If no match is found in any table, the event is discarded. 


43.5.1 Overview 

A TIP table specifies a translation between a sequence of user actions and a sequence of 
client actions. These tables are created and linked by the client and made available to the 
translation process (the TIP matcher). 
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The Stimulus Ijcvel (or StimliCv) watches the hardware for user actions and queues them, 
along with their time of occurrence, in the User Action Queue. 

The match process (also called the Matcher or Notifier) dequeues each user action and 
then determines which window this event is associated with. If the entry in 
TiP.actionToWindow is true, the window is the one containing the cursor; otherwise, it is 
the window with the input focus. After determining the appropriate window, the match 
process gets the first TIP table in the chain associated with that window. It then attempts 
to match the user action against statements in that TIP table and succeeding tables until 
(1) a match is found, (2) an opaque table is encountered, or (3) the end of the table chain is 
reached. If no match is found, that user action is discarded and the match process 
dequeues the next user action. If a match is found, the appropriate notify procedure is 
called. (Normally this is the notify procedure for that window.) Thus you can add a table 
with results that the client window's notification procedure is expected to understand 
without having to write an interpreter for those results yourself. In special circumstances, a 
notify procedure can be associated with the TIP table itself. In that case, the table’s notify procedure is called 
instead of the window’s. 


Predefined system-supplied global tables provide basic mouse, chord, and character 
facilities, or change or add functions to these basic facilities for specific window types. The 
structure of tables is an inverted tree or a number of linked lists with separate heads and 
common tails. For example, TTY subwindows need to transmit an ASCII backspace 
character when the BS key goes down. TTY subwindows are also text subwindows, and text 
subwindows already define BS as an editing action. Therefore TTY subwindows have their 
own table that overrides the text subwindow definition of the action to take when this key 
goes down. 

Fine point: The StimLev will not enqueue more than a certain fixed number of continuous mouse motions. After 
n continuous mouse motions are enqueued, with none dequeued and no intervening user actions, instead of 
enqueuing the ai-H 1st, it replaces the nth with the n+ 1st. 


43.5.2 Using TIP tables 

If you need to become a client of this interface, use TiP.CreateTable to make a TiP.Table from 
its user-editable disk representation. (See the following sections for details on the 
internals of a .TIP file.) Link this table with whatever system-supplied TIP table you find 
useful, using TiP.PushGlobaL TiP.PushLocal, or TiP.CreateClient, and passing it your table 
and your NotifyProc. 

When the match process recognises an event, the NotifyProc is called with the parameter 
results, which is a list of values collected from the table while parsing an event. This list 
structure is opaque; clients should use the procedures tip, First and tip. Rest to access its 
elements. 

43.5.3 Syntax of TIP tables 

Here is the BNF description for syntactically correct TIP tables. Non-terminals are 
boldface, terminals are non-bold Titan (such as Fas tMouse). The characters ''«", 
and in the BNF below are terminal symbols. 
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TIPTable 


:: = Options TriggerStmt . 


Options 

OptionList 

Option 

SmallOrFast 

PrintOrDefaultKeys 

FastOrSlowMouse 

Expression 

Statement 


= empty | OPTIONS OptionList ; 

* Option I Option , OptionList 

= SmallOrFast | PrintOrDefaultKeys | FastOrSlowMouse 
= Small 1 Fast 
s PrintKeysIDefaultKeys 
= FastMouseISlowMouse 

= AND TriggerChoice | WHILE EnableChoice | => Statement 
a TriggerStmt | EnableStmt | Results 


TriggerStmt :: = SELECT TRIGGER FROMTriggerChoiceSeries 

EnableStmt :: a SELECT ENABLE FROM EnableChoiceSeries 


TriggerChoiceSeries a TriggerChoice ; TriggerChoiceSeries 

I TriggerChoice ENDCASE FinalChoice 
I ENDCASE FinalChoice 

EnableChoiceSeries :: a EnableChoice ; EnableChoiceSeries 

I EnableChoice ENDCASE FinalChoice 
1 ENDCASE FinalChoice 


TriggerChoice 

EnableChoice 

FinalChoice 

TriggerTerm 

EnableTerm 

TimeOut 

KeyEnableList 


Key 

Results 

Resultitems 

Resultitem 


String 


:: a TriggerTerm Expression 
:: a EnableTerm Expression 
a empty | => Statement 

:: a { Key I MOUSE | ENTER | EXIT ) TimeOut 
:: a KeyEnableList I Predicateldent 

a empty | BEFORE Number | AFTER Number 

:: a Key I Key I KeyEnableList 

Note: the | between Key and KeyEnableList is a 
terminal and must be entered. 

:: a Keyident UP | Keyident DOWN 

a Resultitem I Resultitem , Results | Resultitem Expression 
I { Resultitems } 

:; a Resultitem | Resultitem Resultitems 
:: a COORDS | CHAR | KEYS | TIME | String ] Number 
I Resultident 

:: a "any sequence of characters not containing a " ’’ 


Resultident :: a Ident 

Keyident "aident 

Predicateldent :: a ident 


43.5.4. Semantics of TIP tables 

TIPTable a Options TriggerStmt. 

Note that TIP tables terminate with a period. 
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Options 

OptionList 

Option 

SmallOrFast 

PrintOrOefaultKeys 

FastOrSlowMouse 


= empty I OPTIONS OptionList ; 

= Option ( Option , OptionList 

= SmallOrFast | PrintOrOefaultKeys | FastOrSlowMouse 
= Small I Fast 
= PrintKeysIDefaultKeys 
= FastMouse1SlowMouse 


Small 

Fast 


Indicates to table builder that you favor storage over lookup speed 
(default). 

Indicates to table builder that you favor lookup speed over storage. 


Pr intKeys As above, but only printing keys (not 'Return’, control combinations, or 

mouse actions). 

Def aultKeys Adds all normal keyboard events, including control characters. 


FastMouse 

SlowMouse 


Expression 


Indicates to table matcher that you want to see ALL mouse movement 
when you use TriggerTerm MOUSE. 

Indicates to table matcher that you want to see only the last mouse 
motion when you use TriggerTerm MOUSE (default). 

:: s AND TriggerChoice I WHILE EnableChoice I => Statement 


AND TriggerChoice matches if and only if TriggerChoice happens immediately after 

the preceding choice. For example, A Down AND B Down 
means "A goes down and then B goes down” (with no 
intervening actions like A Up or Mouse motion). 


WHILE EnableChoice matches if EnableChoice is also true at this point. For example, 

A Down WHILE B Down matches if A goes down while B is 
down. 


=> Statement 


Statement 

TriggerStmt 

EnableStmt 


continue processing at Statement (used for results and common 
prefixes) 

:: = TriggerStmt) EnableStmt I Results 

* SELECT TRIGGER FROMTriggerChoiceSeries 
:: = SELECT ENABLE FROM EnableChoiceSeries 


EnableStmt matches if any of the EnableChoiceSeries has already happened. 

TriggerStmt matches if any of the TriggerChoiceSeries has just happened. 


TriggerChoiceSeries 


EnableChoiceSeries 


TriggerChoice 

EnableChoice 

FinalChoice 


:: a TriggerChoice ; TriggerChoiceSeries 
I TriggerChoice ENDCASE FinalChoice 
I ENDCASE FinalChoice 
:: s EnableChoice ; EnableChoiceSeries 
I EnableChoice ENDCASE FinalChoice 
I ENDCASE FinalChoice 
= TriggerTerm Expression 
:: a EnableTerm Expression 
:: a empty | => Statement 
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TriggerTerm 

TimeOut 

Key 

MOUSE 

ENTER 

EXIT 

BEFORE Number 

AFTER Number 

EnableTerm 

KeyEnableList 

KeyEnableList 

Key 

Key 

Results 

Resultitems 

Resultitem 

String 

Resultident 

COORDS 

CHAR 

KEYS 

TIME 

String 


:: = (Key I MOUSE I ENTER] EXIT) TimeOut 
:: = empty I BEFORE Number I AFTER Number 

matches if the appropriate key transition occurs. 

matches if there is mouse motion (useful for tracking the 

mouse). 

matches if the mouse enters the window, 
matches if the mouse leaves the window. 

matches if the associated TriggerTerm happens within a given 
number of milliseconds of the preceding (matched) user action. 
For example, A Down AND B Down BEFORE 200 
matches if A went down and then B went down within 1/5 
second (and if there were no intervening actions). 

matches if the associated TriggerTerm happens a given number 
of milliseconds or more after the preceding user action. For 
e.xample.A Down AND B Down AFTER 200 matches if 
A went down and then B went down more than 1/5 second later 
(and if there were no intervening actions). 

s KeyEnableList] Predicateldent 
= Key] Key I KeyEnableList 

Note: the | between Key and KeyEnableList is a 
terminal and must be entered. 

is true if any of the Keys are true. 

:: a Keyident UP ] Keyident DOWN 

is true if the appropriate transition has happened (either is the 
current user action if part of a trigger term, or has already 
happened if an enable term). 

:: a Resultitem ] Resultitem , Results ] Resultitem Expression 
] { Resultitems } 

:: a Resultitem I Resultitem Resultitems 
:: a COORDS I CHAR] KEYS] TIME] String] Number 
] Resultident 

a "any sequence of characters not containing a "" 
a Ident 

returns a coord ResultElement with the coords of the last user 
action 

returns a char ResultElement with the character representation 
of the last user action 

returns a keys ResultElement with the current state of all the 
keys. (This is not recommended in normal usage. Usually a 
more complex TIP table is indicated if you are using this result.) 
returns a time ResultElement' with the time of the last 
(matched) user action, 
returns a string ResultElement. 
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Number 

Resultident 


returns an int ResultElement. 
returns an atom ResultElement. 


Keyident 

One of: 


Predicateldent 


:: = Ident 

A ... Z, One, Two, Three,... Zero, Adjust, AGAIN, Arrow, 
ATTENTION, BackSlash, BS, CLIENTl, CLIENT2, Comma, 
COMMAND, COMPLETE, CONTROL, COPY, Dash, DELETE, 
DOIT, Equal, EXPAND, FIND, HELP, JFIRST, JSELECT, 
Keyset I, Keyset2, Keyset3, Keyset4, Keysets, LeftBracket, 
LeftShift, LOCK, Menu, MENU, MOVE, NEXT, PASTE, 
Period, Point, Quote, RESERVED, RETURN, RightBracket, 
RightShift, SCROLLBAR, SemiColon, Slash, Space, STUFF, 
TAB, UNDO, USERABORT, A8, A9, AlO, All, A12, LI, L4, L7, 
LIO, Key47,R3,R4, R9,R10 

:: = Ident 


Predicateldent 


is not currently implemented. 


The whole match process can be viewed as a SELECT statement that is continuously reading 
key transitions, mouse movements, or key states from the input queue. A trigger 
statement looks at the next action recorded in the input queue and branches to the 
appropriate choice. An enable statement selects between the different choices according to 
the current state of the keyboard or the mouse keys. Trigger terms may appear in 
sequence, separated by and. They may be mixed with enable terms, which in turn are 
characterized by the keyword while. A timeout following a trigger indicates a timing 
condition that has to hold between this trigger and its predecessor. The number associated 
with the timeout expresses a time interval in milliseconds. Events starting with the same 
sequence of trigger and/or enable terms are expressed as nested statements. Result items 
may be names, numbers, strings, or the keywords COORDS, CHAR, KEYS, or TIME. The 
results of a successfully parsed event are passed to the user as an opaque list whose 
elements are extracted with the procedures TiP.First and TiP.Rest. Names appear as 
identifiers, numbers as long integers, and strings as long strings. Char comes as character 
containing the ASCII interpretation of the key involved with the event. Coords results in 
a Window. Place containing the mouse coordinates of the event. 

For example, the PrintKeys entry for the letter ”a” can be represented as: 

SELECT TRIGGER FROM 

A Down WHILE CONTROL Up => CHAR; 


This event is triggered when the A key goes down only if the control key is up. It puts a 
result on the list that will be the character a. 

A more elaborate example may look like this: 

SELECT TRIGGER FROM 
Point Down => 

SELECT TRIGGER FROM 

Point Up BEFORE 200 AND Point Down BEFORE 200 => 

SELECT ENABLE FROM 
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LeftShift Down => COORDS, ShiftedDoubleClick 
ENDCASE => COORDS, NormalDoubleClick; 

Adjust Down BEFORE 300 => PointAndAdjust; 

ENDCASE => COORDS, SimpieClick; 


This table produces the result element (atom) NormalDoubleCl ick along with the 
mouse coordinates if the left mouse button goes down, remains there not longer than 
200 ms, and goes down again before another 200-ms lapse. The result is 
Shi f tedDoubleCl ick if the same actions occur and the left shift key is down. If the 
right mouse button also goes down less than 300 ms after the initial Point Down and 
the right mouse button also goes down, PointAndAdjust results. Finally, the table 
specifies the result SimpleClick (with coordinates) if Point goes down but none of the 
succeeding actions occurs. 

Following is a list of namesyou might want to use for the keys : 


Letters: A...Z. 

Numbers: One, Two, Three,... Zero. 

Functions: Adjust, AGAIN, Arrow, ATTENTION, BackSlash, BS, CLIENTl, 

CLIENT2, Comma, COMMAND, COMPLETE, CONTROL, COPY, 

Dash, DELETE, DOIT, Equal, EXPAND, FIND, HELP, JFIRST, 
JSELECT, Keysetl, Keyset2, Keysets, Keyset4, Keysets, LeftBracket, 
LeftShift, LOCK, Menu, MENU, MOVE, NEXT, PASTE, Period, Point, 
Quote, RESERVED, RETURN, RightBracket, RightShift, 
SCROLLBAR, SemiColon, Slash, Space, STUFF, TAB, UNDO, 
USERABORT. 


Others: 


A8, A9, AlO, All, A12, LI, L4, L7, LIO, Key47, R3, R4, R9, RIO 


There are no names for shifted characters like left or right paren. Instead, you must 
specify one or both shift keys plus the unshifted key name. For example. Nine Down 
WHILE LeftShift Down instead of LeftParen Down 


43«5.5. GPM: macro package 

The macro package used in TIP is based on the "General-Purpose Macrogenerator" 
described by Strachey in Computer Journal (October 1965). The following summary is 
based on that article; refer to the article itself for more details. 

A macro call consists of a macro name and a list of actual parameters, each separated by 
a comma. The name is preceded by a left square bracket ([) and the last parameter is 
followed by a right square bracket. A macro is defined by the special macro DEF, which 
takes two arguments: the name of the macro to be defined and the defining string. The 
defining string may contain the special symbols ^1, -^2, etc., which stand for the first, 
second, etc., formal parameters. Enclosing any string in parentheses prevents 
evaluation of any macro calls inside; in place of evaluation, one "layer" of string quotes 
is removed. It is usual to enclose the defining string of a macro definition in string 
quotes to prevent any macro calls or uses of formal parameters from being effective 
during definition. 

Here are some sample macros and an example: 
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— macro definitions 
IDEF,LSHIFT,(LeftShift Down)] 
[DEF,RSHIFT,(RightShift Down)] 
(DEF,EitherShift,( 

[LSHIFT] => -I; 

[RSHIFT] => -1)] 

— trigger cases 

SELECT TRIGGER FROM 

BS Down => SELECT ENABLE FROM 
[EitherShift,{BackWord}] ; 
ENDCASE => {Backspace}; 

— more cases . . . 

ENDCASE... 


The above example expands to: 

BS Down => SELECT ENABLE FROM 
LeftShift Down => BackWord; 
RightShift Down => BackWord; 
ENDCASE => {Backspace}; 
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The Userinput interface provides the client with routines that manage the input focus, 
user type-in, the periodic notifier, and UserAbort. (See TIP for keyboard-handling 
facilities.) 

The User Typein facility, which is built with the TIP facilities, lets the client supply a 
procedure to be called whenever actions have taken place that correspond to a character 
being typed (such as key down, key up, shift). Type-in frees the client from being 
concerned about how it is done. 

The procedure UserAbort may be called to see if the user has pressed abort while the 
cursor is in its window. Periodic notifiers are useful for procedures that are to be 
performed at regular intervals and for procedures that must be executed from within the 
Notifier. (See the examples at the end of this chapter.) 


44.1 Types 


Userinput.AttentionProcType: TYPE = PROCtwindow: window.Handle]; 

An AttentionProcType is called whenever the abort key is pressed. It is called "'outside'' 
the Notifier as soon as the stimulus level sees the key go down. 

userinput.CaretProcType: TYPE = proc window: 

[Window.Handle. startStop: userinput.StartStop]; 

A CaretProcType is called when the input focus changes. startStop is a flag designating 
whether to start or stop blinking the caret marking the type-in point (see 

CreateStringInOut). 

userinput.PeriodicNotifyHandle: type [1]; 

Clients sometimes want to wake up at regular time intervals to do some operation. 
However, a client may need operations that, if done while the Notifier was invoking some 
other operation, would either preempt the user or cause serious problems in Tajo (such as 
blinking the type-in caret). Thus, the periodic notification mechanism is provided. 
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Userrnput.PeriodicProcType: TYPE = proc [window: window.Handle, place: window.Place]; 

A PeriodicProcType is one that is called by the periodic notifier at regular intervals, as 
described in CreatePeriodicNotify. window is the window passed to CreatePeriodicNotify; 
place is the window-relative place of the cursor when the procedure is called. 

UserInput.StartStop: TYPE = {start. Stop}; 

This is used as an argument to a CaretProcType. 

UserinputStringProcType: type = proc [window: Window. Handle, string: long string]; 

By attaching a StringProcType to window, the system converts keystrokes into strings, so 
the client can ignore the details of keys going up and down. 


44.2 Constants and data objects 

UserInput.caretRate: Process.Ticks; 

Userinput.noSuchCharacter: character « 377c; 

noSuchCharacter is used by the TIP match process when a request is made to translate a 
key into a character and there is no translation.. 

Userinput.nullPeriodicNotify: userinputPeriodicNotifyHandle a 

Allows a client to initialize its handle to a well-known null value. 


44.3 Signals and errors 

Userinput.Error: error [code: userinput.ErrorCode]; 

Userinput.ErrorCode: type * { 

windowAlreadyHasStringInOut, noStringInOutForWindow, noSuchPeriodicNotifier, 
other}; 

userinput.ReturnToNotifier: error [string: long string); 

A client may be deep in the call stack of some Notifier-invoked operation from which it 
wishes to unwind. The ERROR ReturnToNotifier can be raised and will be caught at the top 
level of the TIP match process. Clients can catch this error, post a message with string in 
it, and let the error propagate up. 

44.4 Procedures 

userinput.CancelPeriodicNotify: proc [ 

Userinput.PeriodicNotifyHandle] returns [nil: Userinput.PeriodicNotifyHandle); 

CancelPeriodicNotify stops the periodic notification passed in by removing the notification 
from Tajo's list of registered procedures and returns nullPeriodicNotify. This procedure 
raises Error[noSuchPeriodicNotifier] if the handle passed in is not valid, (Calling it with 
nullPeriodicNotify has no effect.) 
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Userinput. ClearInputFocusOnMatch: proc[w: window. Handle]; 

ClearInputFocusOnMatch clears the input focus in a window if that window has the input 
focus. This procedure is usually called by clients who are implementing their own window 
type when they are destroying a window. 

Userinput.CreateIndirectStringIn: proc [from, to: window.Handle]; 

CreateIndirectStringIn redirects input from one subwindow to another. 
Error[windowAlreadyHasStringln] will be raised if the from already has type-in. 

Userinput.CreateIndirectStringInOut: proc (from, to: window.Handle]; 

CreateIndirectStringInOut redirects input and output from one subwindow to another. 
ErrorfwindowAlreadyHasStringInOut] will be raised if the window already has type-in or 
type-out. 

Userinput.CreateIndirectStringOut: proc [from, to: window.Handle]; 

CreateIndirectStringOut redirects output from one subwindow to another. 
Error[windowAlreadyHasStringlnOut] will be raised if the window already has type-out 

Userinput.CreatePeriodicNotify: proc [ 

proc: Userinput.PeriodicProcType, window: window.Handle, rate: Process.Ticks] 

RETURNS [userinput.PeriodicNotifyHandle]; 

CreatePeriodicNotify registers a periodic notification with Tajo. proc is called once every 
interval defined by rate as long as no TIP client notifications are taking place. If rate = 0, 
it runs once and then destroys itself. The proc has a parameter of type Window.Handle. 
When proc is called, it is passed the value of window used in the call of 
CreatePeriodicNotify, not of the window that currently contains the cursor or input focus. 

Userinput.CreateStringInOut: proc [ 

window: window.Handle, in, out: Userinput.StringProcType, 
caretProc: Userinput.CaretProcType ^Userinput.NopCaretProc]; 

CreateStringinOut attaches StringProcType procedures to the given window, allowing the 
client program to be unconcerned with the details of keyboard activity within the window. 
The caretProc is used to turn on and off a blinking caret at the type-in point when the 
input focus changes to and from window. CreateStringinOut must be called before 
Userinput.SetStringinOut. It is usually not called directly by clients, but is called as a side 
effect of creating a window of a type that accepts type-in(-out). 

Userinput.DestroyIndirectStringIn: proc [window.Handle]; 

DestroyIndirectStringIn halts redirection of input from the subwindow. 

Userinput.DestroyIndirectStringInOut: proc [window.Handle]; 

DestroyIndirectStringInOut halts redirection of input and output. 

Userinput.DestroyIndirectStringOut: proc [window.Handle]; 

DestroyIndirectStringOut halts redirection of output from the subwindow. 
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Userinput.DestroySitringInOut: proc [window. Handle]; 

DestroyStringInOut removes the procedures supplied for dealing with input and output in 
the subwindow. 

Userinput. FocusTakesInput: proc returns [boolean]; 

FocusTakesInput returns true if the current input focus accepts input, false otherwise. 
Userinput.GetDefaultWindow: proc returns [window.Handle]; 

GetDefaultWindow procedure returns the current default window. 

Userinput. GetInputFocus: proc returns [window.Handle]; 

GetInputFocus returns the window that currently has the input focus. 
Userinput.NopCaretProc: userinput.CaretProcType; 

NopCaretProc does nothing when called. 

Userinput.NopStringProc: Userinput.StringProcType; 

NopStringProc does nothing when called. 

Userinput. ResetUserAbort: PROC [window.Handle]; 

ResetUserAbort sets the state of the window to appear that the user has not aborted its 
operation. 

userinput.SetAttention: proc [ window.Handle, attention: userinput.AttentionProcType] 

SetAttention sets the attention procedure for the window. The procedure attention is 
called asynchronously whenever the USERABORT key is pressed. If no attention proc is 
available for the window, UserAbort is set for that window. 

SetInputFocus: proc [ w: Window.Handle, notify: proc [window.Handle, long pointer], 
takeslnput: boolean, data: long pointers-nil]; 

SetInputFocus should be called by your TiP.NotifyProc when you want to set the input 
focus. It makes w the target of type-in. If w allows type-in, then takeslnput should be set 
to true; otherwise, takeslnput should be set to false* notify is called when w loses the 
input focus. It is passed data as the value of its LONG pointer parameter. 

Userinput.SetStringIn: proc[ 

window: window.Handle, proc: Userinput.StringProcType] 

RETURNS [old: Userinput.StringProcType] 

SetStringIn alters the procedure to be called for a window with existing type-in. 
Error[noStringlnOutForWindow] can be raised if the window has no type-in. 
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Userinput.SetStringOut: PROC [ 

window: window.Handle, proc: userinput.StringProcType] 

RETURNS [old: Userinput.StringProcType] 

SetStringOut alters the procedure to be called for a window with existing type-out. 
Error[noStringlnOutForWindow] can be raised if the window has no type-out. 

Userinput.SetUserAbort: proc [window.Handle] 

SetUserAbort sets the state of the window to appear that the user has aborted its 
operation. It does not call the window’s attention procedure, even if there is one. 

userinput.StringOut: proc [window: window.Handle, string: long string] 

StringOut allows a client to output directly to a window, bypassing any input filtering that 
might have been performed. 

Userinput.StuffCharacter: proc [ 

window: window.Handle, char: character] returns [boolean] 

Stuff Character allows a client to drive the type-in mechanism as though a character were 
coming from the user. The returned BOOLEAN is true only if window was prepared to accept 
input. 

Userinput.StuffCurrentSelection: proc [window.Handle] returns [boolean] 

StuffCurrentSelection allows a client to drive the type-in mechanism as though the 
contents of the current selection were coming from the user. (See the Selection interface 
for a description of the current selection.) The returned BOOLEAN is TRUE only if window 
was prepared to accept input. 

Userinput.StuffString: PROC [window: window.Handle, string: long string] returns [boolean] 

Stuff String allows a client to drive the type-in mechanism as though string were coming 
from the user. The returned boolean is TRUE only if window was prepared to accept input. 

Userinput.StuffTrashBin: proc [window.Handle] returns [boolean] 

StuffTrashBin allows a client to drive the type-in mechanism as though the user had typed 
in the exact contents of the last deletion. (See the Selection interface for a description of 
the trash bin.) The returned BOOLEAN is true only if window was prepared to accept input. 

userinput.UserAbort: proc [window.Handle] returns [boolean]; 

A client operation that runs for more than a few seconds can poll UserAbort on its window 
to see if you have indicated that you want to abort the operation in that window. If 
window is nil, the Userinput package checks to see whether you have done a global abort. 
When the TIP match process calls a client, this flag is cleared. (See the XDE Users Guide 
for the abort procedure.) If there is an attention procedure for the window, UserAbort is not set 
automatically. 


userinput.WaitForConfirmation: proc returns [place: window.Place, okay: boolean]; 

Before calling this procedure, the client should call Cursor.Set[mouseRed], 
WaitForConfirmation then gets the confirmation from the user. If okay =true, then the 
user pushed the point button; otherwise the user pushed either the menu or the adjust 
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buttons, place is the bitmap-relative position^of the cursor when the button went down. 
The cursor should be set back to its previous type upon return from this procedure. This 
procedure does the equivalent ofTIP.NewManagedNIL, NIL, NIL] as a side effect. 

Userinput. WaitNoButtons: PROC; 

WaitNoButtons returns when all the mouse buttons are released. This procedure does the 
equivalent of TIP.NewManager[NIL, NIL, NIL] as a side effect. 


44.5 Examples 

The foilowing example shows a periodic notifier updating a display of the volume page 
count in a tool. The page count is updated every 20 seconds if the Notifier is not otherwise 
occupied. 

window: window.Handle *— ...; -- this tool's window 

pageNotifier: userinput.PeriodicNotifyHandle *- userinput.nullPeriodicNotify; 

Cleanup: Toolwindow.TransitionProcType * { - the Transition Proc for window 
IF old s active then 

pageNotifier <- userinput.CancelPeriodicNotifylpageNotifier]; 

IF new = active then 

pageNotifier <- userinput.CreatePeriodicNotifyl 
proc: UpdatePageCount, window: window, 
rate: Process.MsecToTicks[20000]]}; 

UpdatePageCount: userinput.PeriodicProcType - { 

- code to update page count on screen; 

- this procedure probably ignores both input parameters 

y. 

The following example shows a kamikaze periodic notifier, one whose only purpose is to let 
a procedure be executed from the Notifier process, such as booting another volume. Rather 
than executing the procedure at regular intervals, it is executed once and then the periodic 
notifier is destroyed. 

kamikaze: Userinput.PeriodicNotifyHandle <- u$erinput.nullPeriodicNotify; 

RunProc: Userinput.PeriodicProcType s { 

kamikaze <- userinput.userinput.nullPeriodicNotify;}; 

- main body 

- call procedure that must be run from Notifier; 

IF kamikaze s Userinput.nullPeriodicNotify then 

kamikaze userinput.CreatePeriodicNotify[ 
proc: RunProc, window: nil, 
rate: 0]; - rate ofO means only execute once 
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File management interfaces support loading, storing, and transfering files among local 
and remote disks or other storage media. These interfaces hide the details of the various 
types of storage hardware from the software, thus presenting a uniform surface to the 
tools that must interact with these media. 

If you are less experienced with the XDE, it would be helpful to study the MStream, MFile, 
and FileTransfer interfaces before the others. Also, the FileName interface, though not as 
important by itself, is used by other File Management interfaces, so you should familiarize 
yourself with it. 

The other file management interfaces allow the more advanced XDE programmers to 
exercise more control over the specifics of data access. 

V.l Overview 

The XDE file system views processes as cooperative, allowing sophisticated file sharing 
among independent processes. If one process wishes to use a file in a way that conflicts 
with the way a second process is using it, the process that is using the file may be asked to 
relinquish it. For example, if a process wants to write a file being read by another process, 
the process reading the file is asked to stop. In addition, a process may ask to be notified 
when a file becomes available for a particular use. The processes that share files need 
neither communicate explicitly nor know one another's identities. 

The XDE file system facilitates cooperation among processes by asking clients to provide 
procedures that the file system can call to ask a client to give up a file (PleaseReieaseProc) 
or tell a client that a file is available (NotifyProc). Such procedures are called call-back 
procedures because the file system uses them to call back the client at its discretion. 

The next three sections of this chapter describe the file system procedures clients use for 
accessing and sharing files. The File access section discusses how a client gains access to a 
file and how it can respond if the file system asks it to give up a file. The Notification 
section discusses the mechanism by which a client might ask to be notified that a file is 
available for access. The Append files section discusses a controlled type of file access that 
lets clients read and write the same file at the same time. 
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The Examples section contains three examples of the file system’s cooperative features. 
The section on Concurrency problems discusses the subtleties of writing the call-back 
procedures that clients provide, and the Implementation section discusses the 
implementation of this file system. 


V.2 File access 

To use a file, a client must have a handle on the file that identifies it in other calls to the 
file system. To obtain a handle, the client calls the procedure Acquire (see 
Example V.l).When a client finishes with a file, it must release its handle and 
relinquish its use by calling Release. The access parameter indicates how the file is to 
be used. Anchor access is used both to keep a file from being deleted or renamed and to 
change some file properties, readonly, writeOnly, readWrite, delete, and rename are 
self-evident; append will be discussed below, null is used only for client initialization, 
not to acquire a file. The release parameter, used for asking the client to relinquish its 
use of the file, is discussed in the following paragraphs. 

ExampleV.l; Procedures for acquiring and releasing files 

Acquire: procedure [ 
name: LONG STRING, 
access: Access, 
release: ReleaseData, 
mightWrite: boolean, 
initialLength: long cardinal, 
type:Type] 

RETURNS [Handle]; 

Release.- procedure [file: Handle]; 

Access: type = {anchor, readonly, readWrite, writeOnly, append, delete, rename, 

null}; 

Type: type = {unknown, text, binary}; 

The file system checks that the requested use of the file does not conflict with its other 
current uses. If there is no conflict, the file system asks each of the current owners of a 
conflicting handle on that file to release its handle, by calling the PleaseReleaseProc 
associated with the conflicting handle (see Example V.2). If all the clients with conflicting 
declarationshandles release them, the request is honored and the new use is granted. 
Otherwise, the request is denied. 

Example V.2: PleaseReleaseProc declarations 

PleaseReleaseProc: type = procedure [file: Handle, instanceData: long pointer] 
RETURNS [ReleaseChoice]; 

ReleaseData: type s record] 
proc: PleaseReleaseProc, 
clientInstanceData: long pointer]; 

ReleaseChoice: TYPE = {later, no, goAhead.allowRename}; 
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When a client’s PleaseReleaseProc is called, the client can do one of four things. It can 
refuse to relinquish its use of the file, returning the value no, in which case the conflicting 
request cannot be honored. If it returns allowRename, it refuses to relinquish its use of the 
file, but allows the file to be renamed. If it returns goAhead, it relinquishes the file, and 
the file system releases its handle. (It is a client error to use this handle thereafter.) If it 
returns later, it promises to release the file soon, so the file system should delay processing 
the new request until that handle has been released. 

Let us consider how the different return values might be used. If a client’s 
PleaseReleaseProc were called in the middle of writing a file, it returns no. A file-cache 
client returns the value goAhead after it removes the requested file from the cache. If a 
client notes that it is already in the process of releasing a file when its PleaseReleaseProc 
is called, it returns later. 

If a client is concerned only with a file’s contents, not with its name, it returns 
allowRename from its PleaseReleaseProc. A loader is such a client; it does not want the 
contents of a loaded program to change, but does not care if the program is renamed, 

A client can acquire a new handle on a file for each use of it. Alternatively, a client can 
change the use associated with a given handle by calling the procedure SetAccess (see 
Example V.3). For instance, a client can acquire a file with readonly access and change 
the access to readWrite only when it determines that it must write into the file. 

Example V.3: SetAccess declarations 

SetAccess: procedure [file: Handle, access: Access]; 

SetAccess provides a quicker way to release and reacquire a file with a new access. In 
particular, PleaseReleaseProcs are called if required to obtain the new access, and file 
notification takes place if appropriate (see the section on Notification) 


V.3 Notification 

A client can ask the file system to notify it whenever a file (or class of files) becomes 
available for some particular access. For example, when a client is denied access to a file, 
it might want to be awakened when that file is available so it can try again. 

AddNotifyProc is called to register such a request with the file system, and the procedure 
RemoveNotifyProc is called to remove it (see Example V.4). The filter parameter 
determines the class of files of interest. The name field of the filter is a pattern to be 
matched against file names. Patterns can include wildcard characters that match zero or 
more characters in a file name. The type field of the filter is the type of the files that the 
client is interested in; if type is unknown, all types match. The access field of the filter 
ensures that the client is notified only when a file with the needed access becomes 
available, such as when a file that was being written becomes available for reading. 
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Example V.4: NotifyProc declarations 

AddNotifyProc: procedure [ 

proc: NotifyProc. filter: Filter. clientInstanceData: lono pointer]; 
RemoveNotifyProc: procedure [ 

proc: NotifyProc. filter: Filter. clientInstanceData: long pointer]; 

Filter: type = RECORD[name: long string, type: Type, access: Access]; 

NotifyProc: type = procedure [name: long string, file: Handle. 
clientInstanceData: long pointer] 

RETURNS [removeNotifyProc: boolean]; 

When the file system determines that the conditions of a filter have been satisfied, it calls 
the NotifyProc passed in with the filter. The name parameter is the name of the file; file is 
a handle on the file; and clientInstanceData is the value passed to the file system when 
AddNotifyProc was called. The NotifyProc returns true when it wishes to be removed from 
the file system’s notification list. 

Because a client can acquire a file for a conflicting access before other interested clients 
have been notified that the file is available for some weaker access, there is no guarantee 
that a client will be called for every state change of a file. For instance, clients to be 
notified that a file is available for readonly access will not be notified if another client 
acquires the file for readWrite access in the interim. When a client is notified, however, it 
is guaranteed that it can acquire the file for its desired access. 

VA Append files 

A client may request append access to a file for typescript applications in which a file can 
be concurrently read and written. In such an application, the Tile can be divided into two 
parts: an unchangeable initial portion and a final portion that may still be changed. The 
read length of the file divides these two sections. 

A client with append access to a file may change either the contents of the final portion of 
the file or its size. This client is also responsible for setting the read length of the file when 
it has finished writing a new section of the file. The read length may never decrease. 

The file system always honors requests to read a file for which another client has 
append access. It will appear to the reader, however, that the file is only as long as its 
read length at the time it was acquired. To encourage a client with append access to let 
the reader read as much as possible, the file system will call the PleaseReleaseProc of 
the append client, ignoring the result returned. This allows the append client to set the 
read length from the PleaseReleaseProc, which may have been called because some 
client is trying to read the append file. 

Append files are particularly useful for applications in which a client is continually 
adding information to the end of a file, but another client needs to read the current 
contents. For instance, a command executive program may write a typescript of 
commands typed by the user together with their output. One of the executive’s 
commands may store a file It is useful to store a copy of the typescript file itself. If the 
typescript file is an append file and the command executive sets the read length to the 
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end of the output from the previous command, the executive can store the contents of its 
own typescript file up to the point where the command was issued. 

The next section gives another example of append files. 


V,5 Examples 

The Xerox Development Environment uses the file system's cooperative features to 
solve several problems that can be quite awkward otherwise, such as those involved in 
dealing with windows that display files, file managers, and append files for processing 
data. 


V.5.1 File windows 

While a file is loaded in a window so that you can read or edit it, the file window 
program has a handle on it. Some other client may need to write into that file. For 
instance, you may load the compiler error log into a window to look at your compilation 
errors while you edit your source file. If, after finishing the edits, you recompile the 
source file without unloading the compiler log, the compiler will need to write into the 
log if it encounters additional errors. 

If you are not editing the file in a file window, the file window program will unload the 
window and relinquish ownership of the file. When the PleaseReleaseProc is called for 
the file window's file handle, the file window program checks the state of the window. If 
the file is being edited, it refuses to release the handle. Otherwise, it unloads the 
window, registers a NotifyProc for read access on the file, and relinquishes ownership of 
the file. 

When the client that was writing the file completes and releases its handle, the file 
system notices that read access has become available on the file. Since it can satisfy the 
file window’s notification request, it calls the file window’s NotifyProc. The file window 
program acquires the file for read once more and reloads it into the window. Hence, a 
client will not be blocked if a file that it needs has been left loaded in a window; file 
windows automatically update themselves to the most recent version of whichever files 
they contain. 


V,5.2 File managers 

Some clients cache file handles that are expected to be needed again, some of which may 
be in use. This saves looking up the file in the file system each time it is needed and 
remapping the file contents into memory. 

When another client needs a file maintained by the file manager, the 
PleaseReleaseProc for the file manager checks its reference counts to see if the file is in 
use. If not, the file manager clears the file from its set of file handles and relinquishes 
ownership. 

Hence, the PleaseReleaseProc facility allows a client to gain the performance 
advantages of a file cache without interfering with other clients that need to use the 
files in the cache. 
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V«5*3 Append file processing 

Consider a data analysis system in which one process continuously gathers data that 
several other processes analyze as the data is gathered. These processes can be 
coordinated straightforwardly using an append file. 

As data comes in, the data-gathering process appends it to an append file and sets the 
new read length for the file. Setting the read length causes file notification to take place 
for read access. 

The analysis processes have a NotifyProc on the append file. When the file is extended 
with new information, the NotifyProc is called. The NotifyProc performs a broadcast on 
a condition variable to awaken the analysis processes blocked waiting for data. Each 
analysis process loops, checking to see whether there is more data by comparing the 
current read length of the file with the last length processed. If there is no new data, the 
process again waits on the condition variable. If there is more data, the process acquires 
the append file for read access and processes the data starting from where it last left off, 
continuing to the end of the file. 

Note that the data-gathering process does not need to know the identity of or even the 
number of analysis processes. It simply provides a service to whatever clients may be 
interested. Analysis processes can be added or removed dynamically without affecting 
other processes. 

Only one copy of the data need be produced, since it can be freely shared among the 
analysis processes. The analysis processes can read any available data at any time, not 
just the previously unseen data. 

V.6 Concurrency problems in writing call-back procedures 

Writing call-back procedures correctly is often difficult because the client must be 
prepared to have its call-back procedures invoked at any time. Although clients that use 
PleaseReleaseProcs and NotifyProcs may appear to be simple sequential programs, subtle 
synchronization issues are involved in the interprocess communication between the client, 
the file system, and (indirectly) other clients. 

The difficulties are inherent in writing multi-process programs. As the means of 
communication, the call-back procedures expose these difficulties. Note that clients need 
not master the subtleties of call-back procedures to use the file system. They can choose 
instead not to cooperate in their use of files, using a system-provided PleaseReleaseProc 
that always returns no. Often, tools are first written with little or no cooperation and 
gradually evolve to allow more. The rest of this section discusses the difficulties in writing 
call-back procedures. 

As an example of the type of locking that the client must do, the client monitors data 
accessed by its PleaseReleaseProc and carefully synchronizes which process has released 
the file. To see how this might be done, consider the code fragments in Example V.5. In 
this example, the PleaseReleaseProc returns later if the client is done with the file and is 
in the process of releasing it. Otherwise, it will return no. The state of the file, State, is 
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always changed by the client and examined by the PleaseReleaseProc from within the 
client monitor. 

Example V.5: Example PleaseReleaseProc 

FileState; type = {busy, beingReleased, released}; 
file: Handle; 

state: FileState released; 

ChangeState: entry procedure [newState: FileState] = 

BEGIN 

states newState; 
end; 

-- PleaseReleaseProc for file 
MyReleaseProc: entry ReleaseProc = 

BEGIN 

SELECT State FROM 

busy = > RETURN[no]; 

beingRelease, released = > RETURN[later]; 

ENOCASE; 

end; 

- code to acquire file 
ChangeStatefbusyl; 

file <-MFiie.Acquire{"FileName", readWrite, []]; 

- code to release file when done 

ChangeState [ beingReleased]; 

MFiie.Release[file]; 

ChangeState[ released]; 

This is an extremely simple PleaseReleaseProc. The only difference between providing 
it and none at all is that later will be returned during the small interval after the client 
has decided to release the file but before that operation is complete. If some other client 
requests the file in that interval, that second client will succeed when otherwise it 
would not. 

Because many clients may be calling it simultaneously, the file system must lock some 
of its internal data structures while it calls the client-provided PleaseReleaseProc or 
NotifyProc. Although this lock is essential for preserving the consistency of data 
structures and behavior, it means that some file system operations cannot be invoked 
from a PleaseReleaseProc or NotifyProc without causing deadlock. 

As an example of the type of locking that the file system must do, the file system must 
guarantee that once a client has released a file, the file system will not call the 
associated PleaseReleaseProc. Thus, while the file system is calling the 
PleaseReleaseProc for a file, it blocks all attempts to call Release on that file. This 
blocking guards against the case in which the call on the PleaseReleaseProc is blocked 
on a client monitor while the client has called Release on that file. If the file system 
executes the Release before the PleaseReleaseProc completes, it will appear to the client 
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that the PleaseReleaseProc was called after the Release completed, as seen in Example 
V.6. 

Example V.6; Race condition if file system permitted Release to execute while calling a 

PleaseReleaseProc. 


Client 


File System 


1. enter monitor to release file 


3. call Release 


2. call PleaseReleaseProc (blocks on client 
monitor) 


4. process call of Release and return to client 

5. leave monitor 

6. process call of PleaseReleaseProc 

7. call from 2 completes 


A PleaseReleaseProc should not wait for a monitor that may be held by a process 
waiting for the file system. In Example V.5, it is important that the actual release of the 
file was done outside the client monitor. Instead, only the state change of the file is 
protected by the monitor, and Release is called from outside the monitor. Otherwise, the 
deadlock sequence in Example V.7 might occur. 


Example V.7: Client-caused deadlock in PleaseReleaseProc 


Client 1 


Client 2 File System 


1. enter monitor to 
release file X 

2. call Acquire on 
fileX 


5. call Release (blocks on 
file system’s lock on 
file X’sdata structure) 


3. lock data structure for file X 

4. call Clientl’s 
PleaseReleaseProc for file X 
(blocks on Client Ts 
monitor) 


Some of the file system procedures may not be called from within a PleaseReleaseProc; 
these include Acquire, Release, or SetAccess. If the PleaseReleaseProc calls one of these 
procedures, the process will deadlock on the file system’s monitor for that file. If it must 
call one of these procedures, it must fork another process to perform the call and not 
wait for that process to complete, since the process will not complete until the 
PleaseReleaseProc returns The return value later from a PleaseReleaseProc may 
indicate that a process has been forked that will release the file. 
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Writing PleaseReleaseProcs and NotifyProcs requires very careful thought and 
attention as well as a good understanding of the principles of multi-process programs. 

V.7 Interface abstracts 

FileName provides facilities for parsing local and remote file names. 

FileTransfer provides a uniform interface for the manipulation of files. It makes invisible 
to the client whether the files are in the local file system or on a remote file server. It 
provides facilities for copying files, opening streams on files, and enumerating files. 

MFiieProperty defines a list of registered client-defined file properties for files in the 
development environment file system. 

MLoader provides the facilities for loading and running programs stored in files in the 
development environment file system. 

MSegment maps files in the development environment file system into memory. 

MStream creates streams on local files. The facilities of Pilot’s Stream interface as well as 
the operations in MStream are used to manipulate the streams provided by this interface. 
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The FileName interface provides a general data structure and procedures for dealing with 
file names, whether remote or local. This allows clients and interfaces to communicate 
through a standard representation of file names. The FileTransfer interface, for example, 
takes a FileName. VFN as a parameter to all of its procedures that operate on files. 


45.1 Types 


FiieNarne.VirtualFilename, VFN: type = long pointer to VirtualFilenameObject; 

FileName.VirtualFilenameObject:TYPE = record [ 
host, directory, name, version: long string]; 

45.2 Constants and data objects 

None. 


45.3 Signals and errors 

FileName.Error:siGNAL 

Error is raised by AllocVFN and UnpackFilename, indicating that the client provided an 
invalid file name. A file name has the following syntax, with all fields optional: 

{host]dirildir 2 l...ldirJfilename\version 

It is also raised by GetRemoteName and SetRemoteName when certain string lengths are 
exceeded. 

45.4 Procedures 

FileName.AllocVFN: PROCEDURE [LONG STRING] 

RETURNS [FiieNarne.VirtualFilename]; 

The AllocVFN procedure allocates a new VirtualFilenameObject and parses its parameter 
into a VirtualFilename. The strings in the object are allocated from the system heap; they 
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are part of the object and clients are free to replace them. The object itself is not allocated 
from the system heap and must be deallocated by FreeVFN. (See examples at the end of the 
chapter.) Note that a client is free to allocate its own VirtualFilenameObject from 
someplace other than the system heap (such as its private heap, its local frame, or its 
global frame). However, the strings in the VirtualFilenameObject must be allocated from 
the system heap so that FileName can change their sizes as necessary. This procedure can 
raise Error if the file name provided cannot be parsed. 

FiieNameoFreeFilenarne: procedure [s: long string]; 

The FreeFilename procedure frees a string allocated with PackFilename. 

FileName. FreeVFN: PROCEDURE [FileName.VirtualFilename]; 

The FreeVFN procedure frees a VirtualFilenameObject. It also frees its component strings 
to the system heap. The VirtualFilenameObject must have been allocated by AllocVFN. 

FiieNarne.GetRemoteName: procedure (file: MFile.Handle, remoteName: long string]; 

The GetRemoteName procedure copies the remote name associated with file into the 
parameter remoteName. If remoteName is not long enough to hold the complete name. 
Error is raised. 

FileName.NorrnalizeVFN: procedure [vfn: FileName.VirtualFileName]; 

The NormalizeVFN procedure reparses the information in the VirtualFilename so that all 
host information is in the host field, all directory information is in the directory field, and 
so forth. All strings in vfn must be allocated from the system heap, since NormalizeVFN 
may return them to the system heap while reparsing the information. 

FiieName.PackFilenarne: procedure [ 

vfn: FiieName.VirtualFileNarne, h, d, n, v: boolean false] 

RETURNS [s: LONG STRING]; 

The PackFilename procedure converts the information in selected fields of a 
VirtualFilename into a string, adding appropriate delimiters when necessary, h, d, n, and v 
indicate whether the host, directory, name, and version fields, respectively, are to be 
included in the string returned. Hosts are delimited by [], directories are terminated by > 
or /, and versions are preceded by !. If no version appears in vfn, enough room is left in s for 
a version at least six characters long. ** < ** receives no special treatment but is considered a 
normal character in a file name field, s is allocated from the system heap; it must be freed 
by the client with FreeFilename . 

FiieName.ResetVFN: PROCEDURE [ 

vfn: FiieName.VirtualFileNarne, h, d, n, v: boolean ^ false]; 

The ResetVFN procedure resets selected fields of a VirtualFilename to nil, freeing the 
associated storage to the system heap, h, d, n and v indicate whether the host, directory, 
name, and version fields, respectively, are to be reset. 
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FiieNarne.SetRemoteName: procedure [file: MFiie.Handle, remoteName: long string]; 

The SetRemoteName procedure sets the remote name property of file to be remoteName. 
If the length of remoteName exceeds 150, Error is raised. 

FiieName.UnpackFilename: procedure [ 

s: LONG STRING, vfn: FiieNarne.VirtualFileName]; 

The UnpackFilename procedure parses a string into a VirtualFilename. If a directory is 
present in vfn and the directory within s does not begin with <, then the directory from s 
is appended. Otherwise, the directory is overwritten. UnpackFilename creates 
VirtualFilenames that no longer have a final > on the directory string. This procedure 
raises Error if the file name, s, cannot be parsed. See examples below. 

45.5 Examples 

This example describes how file names are parsed by AllocVFN and UnpackFilename. 
These procedures differ only in that AllocVFN first allocates a VFN before unpacking. The 
string 


s = ’’[Server] AlphaMesa/Defs/FileName.mesa! 2 


is unpacked into 

server 

A1 phaMe s a/De £ s 
FileName.mesa 
2 


host: 

directory: 

name: 

version: 


If s = doc/New.doc and vfn.directory = emerson with the remaining fields nil, s is 
unpacked into 


host: 

directory: 

name: 

version: 


NIL 

emerson/doc 
New.doc 
NIL 


Note: FileName performs only minimal error checking, forcing the client to pass in 
properly formatted file names. 
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The FileTransfer interface provides a uniform interface for manipulating files, whether 
they are local (and in the Xerox Development Environment file system) or remote. It 
provides facilities for copying files, opening streams on files, and enumerating files. It 
insulates the client from the network; in particular, FileTransfer does not give up if a 
connection to a file server cannot be opened on the first attempt. Examples of the use of 
FileTransfer are given at the end of the chapter. 


46.1 Types 


FileTransfer.CheckAbortProc: TYPE a procedure [clientData: long pointer] 

RETURNS [abort: boolean]; 

The CheckAbortProc of a Connection is called at intervals to see whether the user has 
aborted an operation. The client may also attach some instance data to a Connection that 
is passed back to CheckAbortProc. When a CheckAbortProc returns true, the error aborted 
is raised, 

FileTransfer.ClientProc: TYPE a PROCEDURE [clientData: long pointer]; 

Clients can specify ClientProcs for doing logins and giving an indication of progress. These 
procedures are passed the cl ientData associated with the corresponding Connection. 

FileTransfer.Confirmation: TYPE a machine dependent { 
do(0), skip, abort. firstPrivate(8). null(255)}; 

A Confirmation is returned from a VetoProc to give the client fine control over certain 
operations, do means that FileTransfer should perform the operation, skip means that the 
current file operation should not be performed, but that FileTransfer should proceed to the 
next file operation in this command, abort means that this and all succeeding operations 
should not be performed, skip and abort are identical for procedure calls involving single 
files. All other Confirmation values, including firstPrivate and null, act like skip. 

FileTransfer.Connection: TYPE a long POINTER TO ConnectionObject; 

FileTransfer requires a Connection for most operations. A Connection contains only state 
information used by FileTransfer. Large amounts of system resources are used during a 
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remote operation or until the Close procedure is called after a remote operation. A 
ConnectionObject contains private data and must be monitored by the client if it is to be 
accessed by multiple processes simultaneously. 

FileTransfer.ConnectionObject: type = ...; 

FiieTransfer.DesiredProperties: type » packed array ValidProperties OF boolean ^all[false]; 

DesiredProperties is the type of property array passed to SetDesiredProperties and 
returned from GetDesiredProperties. 

FiieTransfer.Filelnfo: TYPE a LONG POINTER TO FileInfoObject; 

FileTransfer.FileInfoObject: TYPE a RECORD [ 

host, directory, body, version, author: long string nil, 

create, read, write: Time.Packed 4 - System.gmtEpoch, 

size: long cardinal <~0, 

type: FileType ^ unknown, 

oldFile: boolean 4 - true, 

readProtect: boolean 4 - false, 

...]; 

A FileInfoObject contains information about a local or remote file, host, directory, body, 
and version are the pieces of the file name, author is the name of the user that created the 
file, create, read, and write are the times that the file was created, last read, and last 
written, size is the size of the file in bytes, type is the type of the file. oldFile is true if and 
only if the file exists; if oldFile is false, information other than the file name is undefined, 
readprotect is true if and only if the file exists and is read-protected. Only those fields 
indicated by FileTransfer. SetDesiredProperties will be valid. Initially, all fields are valid. 

FileTransfer.FileType: TYPE = {unknown, text, binary, directory, null}; 

FileTransfer.InfoPrOc: TYPE a PROCEDURE [FileTransfer.Connection] 

RETURNS [source, target: FiieTransfer.Filelnfo]; 

The InfoProc is used inside a VetoProc to obtain information about files if it is needed for 
deciding whether to veto the operation. 

FileTransfer.ListProc: TYPE a PROCEDURE [ 

conn: FileTransfer.Connection, clientData: long pointer, file; long string, 
post: FileTransfer.MessageProc, info: FileTransfer.InfoProc] 
returns [FileTransfer.Confirmation]; 

The ListProc is called for each file in an enumeration. The ListProc returns a Confirmation; 
A confirmation of other than do aborts the enumeration. The parameters post and 
clientData can be used by the ListProc for output. The InfoProc can be called by the ListProc 
to obtain information about the file if more than the file name is needed. The parameter 
file contains the fully qualified name of the file, including the directory, name, and version 
number. 
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FileTransfer.MessagePrOC: TYPE = PROCEDURE [ 

clientData: long pointer, level: Severity, s1,s2, s3, s4: long strings nil]; 

The MessageProc is used by FileTransfer for feedback. It is called to notify the user of 
errors and of details of the operations taking place, level indicates the importance of a 
message; it can be used by the MessageProc to filter out undesired feedback. 

FiieTransfer.Serverlype: type = machine DEPENDENT{unknown(0), local, IFS, tenex, ns, 
null(7)}; 

ServerType is the type of a host; it is defaulted to local when a connection is created. When 
a remote operation is to be performed, the ServerType defaults to 
Profile. defaultFileServerPrOtOCOl. The values IFS and Tenex corre.spond to protocols no longer supported; 
they should not be used. Support for ServerType will be dropped in a future release. 


local 

the machine on which the program is running. 

IFS 

an interim file server. 

tenex 

a machine running tenex. 

ns 

a product file server. 


FileTransfer.Severity: TYPE a {verbose, terse, warning, fatal}; 

Severity indicates the urgency of a message sent to a MessageProc. verbose is the least 
important information, and fatal is the most important information. 

FileTransfer.StreamType: TYPE = {remote, local, temporary}; 

When a client creates a stream on a remote file, it may also supply information about the 
way the stream is to be accessed; the StreamType is ignored for local files. 

remote the client intends to read the stream quickly (fast enough so that 

the file server does not time out) and will not position the stream. 

local works the same as if the client had done a Copy, then opened a 

stream; all local stream operations are valid on such streams. 

temporary is the same as local, except that a temporary local file is created; 

the file is deleted when the stream is destroyed. 

FileTransfer.ValidProperties; TYPE a (host, directory, body, version, author, size, type, 
oldFile, readProtect}; 

ValidProperties are the properties of a file that the client can know about through 
FileTransfer, that is, the fields of the FileInfoObject. 
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FileTransfer.VetOPrOC: TYPE = PROCEDURE ( 

conn: FiieTransferXonnection, clientData: long pointer, 
post: FileTransfer.MessageProc, info: FHeTransfer.InfoProc, 
showingOates: boolean] 

RETURNS [confirm: FileTransfer.Confirmation, showDates: boolean]; 

A VetoProc is used by the operations Copy, Delete, ReadStream, and StoreStream to give 
the client fine control over these operations. The return value confirm tells FileTransfer 
how to proceed. The return value showDates indicates whether the date should be 
included in the message output to the MessageProc on succeeding files. showDates is 
ignored on a call to Delete. If the VetoProc wants to send an output, it can call post with 
clientData and the message. The client VetoProc can obtain information about the rile(s) 
involved in the operation by calling info. If the vetoProc was called by Copy, info returns 
information about both the source and target file; if it was called by Delete, ReadStream, 
or StoreStream, target is nil and information about the file is returned in source. 

46.2 Constants and data objects 

None. 

46.3 Signals and errors 

FileTransfer.Error: SIGNAL [conn: Connection, code: ErrorCode]; 

FileTransfer.ErrorCode: TYPE * machine DEPENDENT { 

illegalParameters(O), invalidObject, notAStream, illegalLogin(4), IllegalConnect, skip, 
retry, cantModify, directoryFull, notFound, sparel, spare2, unknown(31)}; 

illegalParameters the client provided illegal parameters to a call to FileTransfer. 

invalidObject the client provided a connection that was nil, smashed, or has been 

freed, 

notAStream the client provided a stream that was nil, smashed, freed, or not 

created by FileTransfer. 

illegalLogin the operation could not proceed because of illegal login credentials, 

and no login procedure was provided through SetProcs. 

illegalConnect the operation could not proceed because of illegal connect 

credentials. 

skipOperation the code skipOperation is raised whenever an operation fails and 

should not be retried; it probably means that user intervention is 
required to make the operation succeed. Details will have been 
reported by calls to the MessageProc supplied by SetProcs before 
this error is raised. 

skipFile the code skipFile is only raised when attempting a remote to 

remote Copy. For some reason, a particular file in the 
enumeration could not be accessed. In this case, the signal may be 
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retry 


cantModify 


directoryFull 

notFound 

accessDenied 


unknown 


resumed to coninue the enumeration. Details will have been 
reported by calls to the MessageProc. 

This code is raised from calls to ReadNextStream and any of the 
Stream. Get procedures on a FileTransfer stream when the 
connection to a remote file server has timed out; the ReadStream 
enumeration should be restarted. 

the operation could not get proper access to modify a file. If the 
operation involves wildcards, this error will not be raised until 
FileTransfer has attempted the operation on all files involved; it is 
only raised once. 

the remote directory or local volume is full, 
the file was not found. 

either the current primary credentials are not sufficient for the 
operation to proceed, or secondary credentials are required. 

the operation uncoverd an implementation error. 


The codes illegalParameters, invalidObject, and notAStream are client errors. The 
ErrorCodes illegalLogin, illegalConnect, skipOperation, skipFile, retry, cantModify, 
directoryFull, notFound, and accessDenied are not normally client errors; however, they 
should be caught by client code. The client is also expected to catch the error aborted, 
which is raised if the checkAbortProc returns true when called by FileTransfer. 


46,4 Procedures 

FileTransfer insists that the client parse file names into a FileName.VirtualFilename (or 
VFN). The Filename interface provides procedures for converting between strings and 
VirtualFilenames (see the FileName chapter). All procedures in FileTransfer that 
manipulate files take VirtualFilenames as parameters. Any field (with the exception of 
host) contained in a VirtualFilename may contain wildcard characters. However, the 
interpretation of these characters is left entirely to the file system that contains the file. 

FileTransfer.Close: PROCEDURE [FHeTransfer.Connection]; 

The Close procedure frees any resources used to communicate with remote hosts; it does 
not destroy the ConnectionObject. It can raise ErrorfinvalidObject]. 

FileTransfer.CodeToString: procedure [FileTransfer. ErrorCode, LONG string]; 

The CodeToString procedure translates the code describing a FileTransfer.Error into a client- 
provided string. If the string is not long enough, CodeToString fills it in with as much 
information as will fit. If the client has provided a MessageProc by SetProcs, the error has 
already been reported by the MessageProc, and it may not be necessary to convert the 
ErrorCode to a message. 

FileTransfer. Copy: PROCEDURE [ 

sourceFile, destFile: FiieName.VirtualFileName, 
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sourceConn, destConn: FUeiransfer.Connection nil, 

veto: FileTransfer.VetOPrOC <-NIL, showOates: BOOLEAN ^ false]; 

The Copy procedure copies files. It will copy between any combination of remote and local 
VirtualFilenames, If the source VFN contains wildcard characters, a single invocation of 
Copy may copy several files. If the name field of destFile is nil, the name portion of the 
source file will be used. Wildcards may not be used in destFile. If a client knows that a file 
is local (and hence no connection need be established with a file server), the connection 
parameter corresponding to that file may be nil. The showDates parameter in Copy 
indicates whether FileTransfer should print the file creation date after the file name in its 
feedback messages that are sent to the connection's MessageProc. If the VetoProc is not 
NIL, it is called before each transfer operation to give the client closer control of which files 
are copied. This procedure can raise Error[..., illegalParameters, invalidObject, 
illegalLogin, illegalConnect, notFound, directoryFull, sparel, skip, cantModify, retry, ...]. 
The error aborted can also be raised. 

FileTransfer. Create: PROCEDURE RETURNS [FileTransfer.Connection]; 

The Create procedure makes a new ConnectionObject. 

FileTransfer.Oelete: PROCEDURE! 

conn: FileTransfer.Connection, file: FileName.VirtualFileName, 
veto: FileTransfer.VetoProc <-nil]; 

The Delete procedure can be used to delete files, either local or remote. If the file is remote 
and contains wildcard characters, several files may be deleted. If the VetoProc is not nil, it 
is called before each delete operation to give the client closer control. This procedure can 
raise Error[..., invalidObject, illegalParameters, illegalLogin, illegalConnect, cantModify, 
skip, notFound, sparel, ... ], The error aborted can also be raised. 

FileTransfer.Destroy: PROCEDURE [FileTransfer.Connection]; 

The Destroy procedure frees a ConnectionObject, closing the connection if it is open. This 
procedure can raise Error[invalidObjectl. Note: Unpredictable results occur if Destroy is 
called from within a catch phrase on a call to any FileTransfer procedure for that same 
connection. 

FileTransfer.Enumerate: PROCEDURE [ 

conn: FileTransfer.Connection, files: FileName.VirtualFileName, 
proc: FileTransfer.ListProc]; 

The Enumerate procedure enumerates the files specified by files, calling proc for each file, 
proc returns a Confirmation; if the confirmation is something other than do, the 
enumeration stops. The file name information (the host, directory, body, and version 
fields) returned by the InfoProc passed to proc are filled in from the files parameter of 
Enumerate. Since this name information can contain wildcards, the file parameter passed 
to the InfoProc can be used to obtain the actual name of each enumerated file. This 
procedure can raise Errorf..., invalidObject, illegalLogin, illegalConnect, skip, notFound, 
sparel ,..,]. The error aborted can also be raised. 
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FiieTransfcr.GetDesiredProperties; procedure [FileTransfer.Connection] 

RETURNS [props; DesiredProperties); 

The GetDesiredProperties gives the current list of valid properties returned in a 
FileInfoObject. 

FileTransfer.GetPrOCS: PROCEDURE [cOnn: FileTransfer.Connection] 

RETURNS [clientData; long pointer, messages; FileTransfer.MessageProc, 
login, noteProgress; FileTransfer.ClientProcj; 

The GetProcs procedure returns the values of the client-provided procedures associated 
with a Connection. This procedure can raise Error[invalidObject]. 

FileTransfer.GetServerType; procedure [ 

conn; FileTransfer.Connection, host; long string] 

RETURNS [FileTransfer.ServerType]; 

The GetServerType procedure returns the type of file server; if the host string is empty, 
the last host used with the Connection determines the type of server. This procedure can 
raise Error[invalidObject]. 

FileTransfer.GetStreamInfo; PROCEDURE [remoteStream; stream.Handle] 

RETURNS [FiteTransfer.FileInfo]; 

The GetStreamInfo procedure returns information on the file behind a stream. This 
procedure can raise Error[notAStream, skip]. 

FileTransfer.GetStreamName: procedure [remoteStream; stream.Handle] 

RETURNS [file; long string]; 

The GetStreamName procedure returns the fully qualified name of the file behind a 
stream. For local streams, this is faster than GetStreamInfo. The string returned belongs 
to the implementation and should not be freed by the client. This procedure can raise 
Error[notAStream]. 

FileTransfer.HighestVersion: procedure [ 

conn: FileTransfer.Connection, remote: FileName.VirtualFileName] 

RETURNS [exists: boolean]; 

The HighestVersion procedure takes a VirtualFileName that refers to a remote file and 
updates the version field of the VirtualFileName to the highest version of that file existing 
on the remote file server. If there is no file by that name on the file server, it returns false. 
This procedure can raise Error].., illegalParameters, illegalLogin, illegalConnect, sparel, 
skip,...] and ABORTED. 

FileTransfer.LocalVFN: PROCEDURE [ 

conn: FileTransfer.Connection, vfn: FileName.VirtualFileName] 

RETURNS [boolean]; 

The LocalVFN procedure returns TRUE if the connection and VirtualFilename passed to it 
refer to a local file. If the host field of the VirtualFilename is empty, the last host used with 
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the Connection determines the location of a file. This procedure can raise Error[ 
invalidObject]. 

FileTransfer.LOOkUp: PROCEDURE [ 

conn: FileTransfer.Connection, file: FileName.VirtualFileName] 

RETURNS [fiieinfo: FileTransfer. Fileinfo],* 

The Lookup procedure is not implemented. 

FileTransfer.ReadNextStream: procedure [stream. Handle] returns [stream. Handle]; 

Streams can be enumerated using the ReadNextStream procedure. The first stream is 
read using ReadStream. Successive streams can be obtained by calling ReadNextStream 
with the last stream from the enumeration. ReadNextStream returns nil when there are 
no more streams. As a side effect, the stream passed in is deleted, so the client should not 
attempt the same. This procedure can raise Error[... , notAStream, retry, ...], The error 
ABORTED can also be raised. (See the example of stream enumeration at the end of this 
chapter.) 

FileTransfer.ReadStream : PROCEDURE [ 

conn: FileTransfer.Connection, files: FileName.VirtualFileName, 
veto: FileTransfer.VetOPrOC ^ NIL, showDates: BOOLEAN ^FALSE, 
type: FiieTransfer.StreamType ^ remote] 

RETURNS [stream. Handle]; 

The ReadStream procedure opens a stream on a file, either local or remote. If the VetoProc 
is not NIL, it is called before the stream is obtained to permit the client closer control. The 
VirtualFilename passed ReadStream may contain wildcards. ReadStream returns a 
stream on the first file that matches files; nil is returned if no matches are found. 
Successive streams can be obtained by calling ReadNextStream with the last stream from 
the enumeration. This procedure can raise Error[... , notAStream, illegalLogin, 
illegalConnect, retry, skip, notFound, sparel, ...]. The error aborted can also be raised. 
Note: In the case of an ns server, veto is called from a separate process, so the client must 
catch all signals raised from within veto with code inside the veto procedure, or they will 
not be caught. 

FileTransfer.Rename: PROCEDURE [ 

conn: FileTransfer.Connection, old, new: FileName.VirtualFileName]; 

The Rename procedure is used to rename a file on a single file system; the credentials 
associated with the connection must permit access to both VirtualFilenames. This 
procedure can raise Error[... , invalidObject, illegalParameters, illegalLogin, 
illegalConnect, notFound, sparel, ...] and aborted. 

FiieTransfer.SetDefaultServerType: procedure [ 

conn: FiieTransfer.Connection, type: FiieTransfer.Serverlype]; 

If FileTransfer is unable to determine the type of host, it uses a default type (as determined 
by Profile.defaultFileServerProtocol); the procedure SetDefaultServerType sets the 
default for a Connection to be type. This procedure can raise Error[invalidObject]. 
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FileTransfer.SetDesiredProperties: procedure [ 

conn: FileTransfer.Connection, props: DesiredProperties]; 

On any succeeding calls to procedures that return FileInfoObjects, only properties with 
TRUE values indicated by props are valid . 

FileTransfer.SetPrimaryCredentials: procedure [ 

conn: FiieTransfer.Connection. user, password: long string]; 

The SetPrimaryCredentials procedure sets the primary credentials to be used for a 
Connection. If no primary credentials have been supplied, FileTransfer uses the user name 
and password maintained by Profile. If these do not work, FileTransfer calls the login 
procedure associated with conn. Finally, if there is no login procedure, FileTransfer raises 
the error Error with a code of ilTegalLogin. This procedure can raise Error[invalidObject]. 

FileTransfer. SetPrOCS: PROCEDURE ( 

conn: FiieTransfer.Connection, clientData: long pointer, 
messages: FileTransfer. MessageProc «-nil, login: FiieTransfer.ClientProc <-nil, 
noteProgress: FiieTransfer.ClientProc 4 -nil, 
checkAbort: FileTransfer.CheckAbortProc 4-nil]; 

The SetProcs procedure lets a client specify for a Connection the procedures to be used for 
certain functions, nil parameters do not change the values in the Connection. The 
MessageProc is used by FileTransfer for user feedback; it is called to notify the user of 
errors and details of the operations taking place. The login procedure is called if 
FileTransfer needs a set of valid primary credentials. The noteProgress procedure is called 
by FileTransfer at intervals during the actual transfer of bytes between remote and local 
machines (during calls to Copy and StoreStream) so the client can provide feedback 
during a transfer. checkAbort is called at intervals to see whether the user has aborted the 
operation. If it returns TRUE, FileTransfer raises the error aborted. If no CheckAbort is 
specified, FileTransfer checks if the ABORT key has been pressed, and if so, raises aborted. 
The client may also attach some instance data, clientData, to a Connection that is passed 
back to each of these client-provided procedures. This procedure can raise 
Error[invalidObject]. 

FileTransfer.SetSecondaryCredentials: procedure [ 

conn: FiieTransfer.Connection, connectName, connectPassword: long string]; 

The SetSecondaryCredentials procedure sets the secondary (connect) credentials to be 
used for a Connection. When FileTransfer needs secondary credentials and none have 
been set, Errorfsparel] is raised. If secondary credentials have been set and they are 
invalid, Error[illegalConnect] is raised. This procedure can raise Error[invalidObject]. 

FileTransfer.StoreStream: procedure [ 

conn: FiieTransfer.Connection, remote: FiieName.VirtualFiieName, 
veto: FileTransfer.VetoPrOC 4- NIL, showDates: boolean 4- FALSE, 
stream: stream.Handle, creation: Time.Packed, bytes: long cardinal, 
fileType:FiieTransfer.FileType]; 

The StoreStream procedure stores the contents of a stream into a remote file. StoreStream 
is passed a VirtualFileName that may not contain wildcards; the version field of the 
VirtualFilename is updated by FileTransfer. The VetoProc is called before the stream is 
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stored. showDates indicates whether FileTransfer should also output the creation date of a 
file when it posts its name with the connection's MessageProc. stream is the stream to be 
copied into the remote file, creation is the creation date to be given to the remote file, 
bytes, the length of the file, should be supplied if the client needs this information from 
info in its veto procedure. In the case of an ns server, bytes provides a hint of the file’s 
size. fileType is the type of the file. This procedure can raise Error[... , invalidObject, 
illegalParameters, illegalLogin, iilegalConnect, retry, skip, sparel, ...1. The error aborted 
can also be raised. 

FileTransfer. WriteStream: procedure [ 

conn: FiieTransfer.Connection,file: FileTransfer.VirtualFileName, 
veto: FileTransfer. VetoProc <- NIL, showDates: boolean «-false, 
creation: Time.Packed, fileType: FiieTransfer.FileType] 

RETURNS [stream. Handle]; 

The WriteStream procedure is not implemented. 

46.5 Examples 

A common use of ReadStream/ReadNextStream is to perform the same operation on a list 
of streams obtained from a VFN containing the wildcard; 

sh: Stream. Handle; 
conn: Connection; 
vfn; FiieNarne.VirtualFilename; 
fileName: long string; 


vfn «- FileName. AllocVFN[fileName]; 

sh «- ReadStream[conn, vfn, remote); 

WHILE sh # NIL 00 

— Process the stream 
sh <- ReadNextStream[sh]; 

ENOLOOP; 

— It is not necessary to delete the stream 
FileName. FreeVFN[vfn]; 
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The MFile interface provides operations on files, directories, and search paths. All files 
have a property list that contains the file name; the byte length; read, write, and creation 
dates; delete-protect, write-protect, and read-protect bits; and the file's type. Clients may 
add other properties to the property list. 

The syntax of file names used by the development environment file system is defined in 
the XDE User's Guide, its conventions are summarized here for convenience. 

The Xerox Development Environment file system provides a hierarchical directory 
structure. The top-level directory on a volume is named the same as the volume; that is, 
<VolumeName > specifies the top-level directory for volume VolumeName. A file name is 
fully specified (or fully qualified) if it starts with the root directory of a volume; that is, if 
it starts with < VolumeName>. 

The search path is a sequence of directories used for looking up files that are not fully 
specified. The file system looks up a file name on the search path by searching for it in 
each successive directory until a match is found. There is only one search path in the file 
system. It is not possible to set up several concurrent search environments. 

Directories on the search path may be write-protected, in which case it is not possible to 
change any of the files in the directory or add or delete files from it. If a file looked up on 
the search path is to be created or written into, two problems can occur: no match could be 
found, or the first match might occur in a search path directory that is write-protected. In 
this case, the file is created in the first directory in the search path that is not write- 
protected. This directory acts somewhat like a working directory. There must always be at 
least one directory in a search path that is not write-protected. If the search path contains 
directories that are all write-protected or on read-only volumes and a file must be created. 
Error [illegalSearchPath] is raised. If the first directory in the search path is write- 
protected, anomalies (to the client) may result, such as the file that is written may not 
necessarily be the file that is subsequently read. 
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47.1 Types 

MFHe.AcceSS: TYPE = MACHINE DEPENDENT { 

anchor(O), readonly, readWrite, writeOnly, log, delete, rename, null} 

anchor access is requested to ascertain that a file exists or read its properties, for 

example. Anchor access is not enough to permit a client to read or write a 
file, but it does keep it from being deleted or renamed. 

readonly access permits the contents of the file to be read but not written. 

readWrite access permits the contents of the file to be read and written and permits the 

length of the file to change. 

writeOnly access permits the contents of the file to be written but not read and permits 
the length of the file to change. 

log access truncates the file to zero length and permits new data to be appended 

to it. It is provided so that a client can let other clients read initial portions 
of a file that it is writing. (See MFile. Log .) 

delete access permits a file to be deleted. 

rename access permits the name/file binding of a file to be changed, either by 
renaming a file or swapping two files. 

null access is provided only as an initialization value; it is not possible to acquire 

a handle with null access. Calling procedures with an access of null raises 
ErrorfnullAccess]. 

MFile.ByteCountrTYPE = long cardinal; 

The type ByteCount is used to specify length in bytes. 

MFile.EnumerateProc: type = procedure [ 

name,fullName: long string, fileProc: MFiie.FileAcquireProc,type: MFiie.Type, 

spindex: cardinal] 

returns [done: boolean false]; 

A client-provided EnumerateProc is called on every file matched by EnumerateDirectory. 
The name parameter is the name of the file, stripped of all directory information. 
fullName is the fully qualified name of the file starting at the character corresponding to 
the first character of the pattern. If no search path entry was used in the enumeration, it is the fully 
qualified name; if the search path was used, it is the part of the fully qualified name following the search path 
directory. (For example, if the pattern matched were <Tajo>^, the fuiiname might be 
<Tajo>Defs>Environment.bcd; if the pattern matched were * and the search path contained <Tajo>, the 
fuiiname might be 0€fs>Environment.bcd). Enumerations do not lock out other operations, so you 
can call your EnumerateProc on a file that has since been deleted from the directory, and 
so forth. The error noSuchFile is raised if the current file has been deleted by some other 
process during the enumeration. The fileProc is provided so that the client can obtain a 
Handle on the file if desired, type is the type of the file (such as text, binary, or directory). 
If the search path was used to resolve the pattern, the spindex parameter indicates which 
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directory was used for this file. If the search path was not used, spindex has the value 
MFile.searchPathNotUsed. If the search path was used, the fully qualified name of the file 
is the concatenation of search path entry spindex with fullName. The parameter type can 
be used to filter out files you aren't interested in. done indicates whether the client wishes 
to terminate the enumeration. 

MFile.EnumReC: TYPE = ...; 

The file system maintains its enumeration state for GetNextHandleForReading in an 
EnumRec. 

MFiie.EnumerateState: type = long pointer to EnumRec; 

MFile.EnumerationType: type = {filesOnly, directoriesOnly, fileAndDirectories}; 

EnumerationType controls which types of files will be enumerated by EnumerateDirectory 
and GetNextHandleForReading. Only the distinction between directory and non-directory 
files is supported. 

MFile.FileAcquireProc: type = procedure [ 

access: MFiie.Access , release: MFiie.ReleaseData] returns [MFUe.Handle]; 

A FileAcquireProc is provided by EnumerateDirectory to obtain a Handle on the currently 
enumerated file if the client requires one The access parameter is the desired access on 
the file. fileProc can raise Error[..., conflictingAccess, protectionFault, volumeNotOpen, 
noSuchFile, 

MFile.Filter: type = RECORD [ 

name: long string nil, type: MFile.Type unknown, access: MFiie. Access]; 

A Filter is used by the file-notification mechanism to indicate which files a client is 
interested in. name is a pattern that is matched against the name of the file (with all 
directory information stripped). If name is nil, all files match, type is the type of file the 
client is interested in; if type is null, all types match. The client is notified only when 
access access becomes available after having been unavailable. 

MFiie-Handle: type = long pointer to MFUe.Object; 

MFile.lnitialLength: type = MFUe.ByteCount; 

InitialLength is used by Acquire to specify the minimum physical size of the file. It is a byte 
length. 

MFile.NotifyPrOC: type = procedure [ 

name: long string, file: Handle, clientInstanceData: long pointer] 

RETURNS [removeNotifyProc: boolean false]; 

A NotifyProc is provided to the file-notification mechanism to be called when a file of 
interest to the client changes state, name contains the name of the file of interest; file 
contains a Handle on that file if the file exists. If the file does not exist, file is nil. The client 
should check that the handle is not nil before using it. This handle belongs to the file 
system. If the client wants a handle on the file, it must call MFilc.CopyFileHandle on the 
handle passed in, and it must explicitly specify the access required (the access parameter 
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to CopyFileHandle cannot be null) The file system does not guarantee that a client can 
obtain the desired access; the notification should be viewed as a strong hint. The 
NotifyProc returns TRUE if it wishes to be removed and FALSE if it wishes to remain on the 
file system’s notification list. The procedures AddNotifyProc and RemoveNotifyProc must 
not be called from within a NotifyProc or the file system will deadlock. (See also 
AddNotifyProc and RemoveNotifyProc.) 


MFile.Object: TYPE = ...; 


MFile.PleaseReleaseProc: type = procedure [ 

file: MFile.Handle, instanceData: long pointer] returns [MFiie.ReleaseChoicej; 

Whenever a client attempts to acquire a file in a way that conflicts with its current uses, 
each of the file’s current owners is asked to give up ownership by calling the owner’s 
PleaseReleaseProc with its instance data. The PleaseReleaseProc and instance data are 
registered when an agent calls Acquire and passes in the ReleaseData parameter. The 
PleaseReleaseProc can take steps to relinquish ownership. (Maintaining proper 
synchronization and data integrity can be quite difficult when PleaseReleaseProcs are 
used. Invoking certain file system operations from a PleaseReleaseProc will cause the file 
system to deadlock. Clients using this facility should carefully read the discussion and 
examples at the end of this chapter. See also Acquire and SetLogReadLength.) 

To avoid deadlock, a PleaseReleaseProc must not call any of the following procedures on 
the file for which it has been called: Acquire, AcquirelD, CopyFileHandle, Delete, 
DeleteWhenReieased, Log Readonly ReadWrite, Release, SetAccess SetRelease, 
WriteOnly. In addition, the client should not perform an enumeration that lists the file. 
The file system guarantees that once a handle has been released, it will not invoke its 
PleaseReleaseProc If a client must invoke one of these actions under the above 
circumstances, it must fork a separate process. Note that the file system calls 
PleaseReleaseProc asynchronously; clients using these facilities should be aware that they 
must deal with all the problems of a multi-process system, even though the rest of their 
program may be a simple, single process. Thus the client must carefully monitor its own 
data, particularly that manipulated by PleaseReleaseProc. The client must take care that 
it does not attempt to release a file twice, once from the mainline code of the program and 
once from the PleaseReleaseProc. Because the call to release a file may be blocked on a file 
system monitor when the PleaseReleaseProc on that file is called, the client must carefully 
maintain its state so that the PleaseReleaseProc knows whether to release the file by 
returning goAhead or indicate that it is already being released by returning later. 

MFile.Property: TYPE = record [property: cardinal] 

Clients may add properties to the property list of files. A Property is a registered value 
that is allocated by the Manager of System Development. (See the interface MFileProperty 
for the currently allocated client file properties. See also RegisteredProperty and 
UnregisteredProperty.) 

MFilc.RegisteredProperty. TYPE = cardinal [0..77777B]; 
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MFile.ReleaseChoice: TYPE = {later, no, goAhead,allowRename} 

later the client is not ready to release the file, but promises to do so shortly. 

The file system will delay the Acquire until the conflict caused by this 
handle has been removed. This result should be returned when a client 
wishes to release the file but cannot do so directly from the 
PleaseReleaseProc because of the file system’s synchronization 
restrictions. The operations that might remove the conflict are Release, 
SetAccess, or Rename. 

no the client refuses to release the file. 

goAhead the client gives up all claim to the file; the file system releases the 

MFile. Handle. The client should behave as if the last statement of its 
PleaseReleaseProc were MFile. Release; it must guarantee not to use the 
handle again after returning from the PleaseReleaseProc 

allowRename the client refuses to release the file. However, if the requested access is 
rename, the client has no objections to having the file renamed. 

MFile. ReleaseData: TYPE = record [ 

proc: MFiie.PleaseReleaseProc nil, clientInstanceData: long pointer ^ nil]; 

If the ReleaseData, proc is nil, the file is not relinquished on an attempt to acquire it in a 
conflicting way. 

MFiie.SearchPath:TYPE = LONG POINTER TO MFile.SearchPathObject; 

A search path is a sequence of directories used for looking up files that are not fully 
specified. The file system looks up a file name on the search path by searching for it in 
each successive directory until a match is found. 

MFile.SearchPathObject: TYPE = record [ 

length: cardinal, directories: sequence I: cardinal of long string]; 

length is the number of items in the sequence that are elements of the search path, 
directories is the sequence of strings containing the names of the search path directories. 
The search path represented by this object is the first length search path element of 
directories. Note that length is less than or equal to I. The first element of the search path 
is indexed by 0, The directory strings in a search path must be fully qualified names of 
existing directory files. 

Directories on the search path may be write-protected, in which case it is not possible to 
change, add, or delete any of the files in the directory. If a file looked up on the search path 
is to be created or written into, two problems can occur: no match could be found, or the 
first match might occur in a search path directory that is write-protected. In this case, the 
file is created in the first directory in the search path that is not write-protected. This 
directory acts somewhat like a working directory. There must always be at least one 
directory in a search path that is not write-protected. If the search path contains 
directories that are all write-protected or on read-only volumes and a file must be created, 
Error [illegalSearchPath] is raised. If the first directory in the search path is write- 
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protected, anomalies (to the client) may result, such as the file that is written may not 
necessarily be the file that is subsequently read. 

MFile.Type: TYPE =: MACHINE DEPENDENT {unknown(o), t€xt. binary, directory, null(255)}; 

P^iles of type unknown have no known type; they were not created with one of the other file 
system types. Files of type text should contain characters. Files of type binary may contain 
any data. Files of type directory are special files containing part of the directory structure 
of a file system, 

MFile.UnregisteredProperty: TYPE = cardinal [100000B..1777778]; 

This is the range of Property for which no administrative conflict resolution is done. 


47-2 Constants and data objects 

MFiie.dontCare. MFiie.lnitialLength = ... ; 

If dontCare is specified as the initialLength to Acquire, the physical size of an existing file 
is not changed. If a new file is created, it has an initial physical size of 512 bytes. 

MFile.maxNameLength: CARDINAL = 100; 

A file or directory name can be no more than maxNameLength characters long; path 
names can be longer, of course 

MFiie.noSearchPathUsed:CARDiNAL = lasticardinal]; 

noSearchPathUsed is returned in an enumeration if the file enumerated was not obtained 
by using a search path entry. 

MFile.dontRelease: MFiie.ReleaseData s []; 

dontRelease is the ReleaseData that refuses to release the file. 

47-3 Signals and errors 

MFile.Error: error [file: MFile. Handle, code: ErrorCode]; 

MFile.Error is raised to indicate all file system errors that are not a result of manipulating 
client-defined file properties, file is the handle of the file causing the error. It may be nil if 
the error occurs in the process of creating a file, code describes the error condition. All file 
system procedures can be invoked from the catch phrase of MFile.Error, subject to the 
deadlock restrictions imposed on the surrounding block or procedure (see 
PleaseReleaseProc and NotifyProc). See MFile.AppendErrorMsg for an easy way to 
construct a string containing an MFile error message. 

MFile.ErrorCode: type = machine dependent {noSuchFile(O), conflictingAccess, 
insufficientAccess, directoryFull, directoryNotEmpty, illegalName, noSuchDirectory, 
noRootDirectory, nullAccess, protectionFault, directoryOnSearchPath, illegalSearchPath, 
volumeNotOpen, noRoomOnVolume, noSuchVolume, crossingVolumes, 
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fileAlreadyExists, filelsRemote, filelsDirectory, invalidHandle, courierError, 
addressTranslationError, connectionSuspended, other(377B)} 


noSuchFile 

conflictingAccess 

insufficientAccess 

directoryFull 

directoryNotEmpty 
illegalName 
noSuchDirectory 
noRootDi rectory 


nullAccess 

protectionFault 

directoryOnSearchPath 

illegalSearchPath 

volumeNotOpen 

noRoomOnVolume 


you are trying to access a file that does not exist. 

you are trying to read a file that someone else is writing, for 
example. 

you are trying to read a file with writeOnly access, for 
example. 

you are trying to create a file in a directory with no more 
room. 

you are trying to delete a directory that contains files. 

the given file name contains illegal characters. 

you are attempting to access a directory that does not exist. 

you are trying to access a volume that has no development 
environment directory. The only file system action that can be 
taken on such a volume is to create a root directory using 

MFileXreateDir. 

you are trying to use a file with null access. 

you are trying to access a file in a way conflicting with its 
protection or the protection of its directory. 

you are trying to delete a directory that is on the current 
search path. 

you haven't included a directory that is not write-protected in 
the search path. 

you are trying to write on a volume opened read-only or read 
an unopened volume. 

you are trying to create a file, but there is no room on the 
volume. 


noSuchVolume 


you are attempting to access a logical volume that does not 
exist. 


crossingVolumes the current operation would cause a file that had been created 

on one logical volume to be added to a directory on a different 
logical volume. 

fileAlreadyExists you are trying to rename a file, but there is already one by 

that name. 
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fileisRemote you are performing an operation on a remote file that is not 

supported by the current implementation. This error code is 
intended for future use and will not he seen by standard users 
of Mesa 11.0. 

filelsDirectory the current operation is not permitted on a directory. 

invalidHandle the Handle parameter to an operation is invalid; it has 

probably been released already. 

courierError a courier error has occurred while manipulating a remote 

flic.This error code is intended for future use and will not be 
seen by standard users of Mesa 11.0. 

addressTranslationError an address translation error has occurred while acquiring a 

remote file. This error code is intended for future use and will 
not be seen by standard users of Mesa 11.0. 

connectionSuspended the connection to the remote machine has been suspended 

while manipulating a remote Vile.This error code is intended 
for future use and will not be seen by standard users of Mesa 
11 . 0 . 

other(377B) is raised by other errors, in particular implementation errors. 

MFile. NameForError. signal returns [errorName: long string]; 

If an MFile, Error is raised while acquiring a file (so that the file parameter of Error is nil), 
the name of the desired file can be obtained by raising NameForError in the catch phrase 
for MFile, Error The LONG string returned by NameForError belongs to the file system and 
should not be deallocated by the client. 

MFile.PropertyError: error [code: MFile.PropertyErrorCodej; 

The error PropertyError can be raised when calling operations that manipulate a file 
property list. 

MFile.PropertyErrorCode: { 

noSuchProperty, noRoomInPropertyList. insufficientSpaceForProperty, wrongSize}; 

noSuchProperty the system can't find a property of this type in the 

property list. 

noRoomInPropertyList the property list is full. 

insufficientSpaceForProperty the property can't be copied into the space provided. 

wrongSize an AddProperty has been attempted with a 

maxLength different than the previous one. 
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47.4 Procedures 

MFiie.Acquire: procedure [ 

name: long string, access: MFiie.Access, release: MFiie.ReleaseData, mightWrite: 
BOOLEAN^FALSE, initialLength: MFile.lnitialLength f-MFile.dontCare,type: MFiie.Type 
unknown] 

RETURNS [MFile. Handle]; 

The Acquire procedure obtains a file handle with the requested access rights to file name. 
The search path may be used to look up name (see the description of 
MFILE. SearchPathObject for an explanation of how a file name is looked up). This procedure 
can raise MFile. Error[..., addressTranslationError, connectionSuspended, courierError, 
noSuchFile, conflictingAccess, directoryFull, illegalName, volumeNotOpen, 
noRootDi rectory, null Access, protectionFault, noRoomOnVolume, noSuchDirectory, 
noSuchVolume, other,...], 

If access is anchor, readonly, delete, or rename, the file must already exist or the error 
MFile, Error[ noSuchFile] will be raised. If access is readWrite, writeOnly, or log, the file 
system first checks to see if the file already exists. If it does. Acquire ensures that the 
number of bytes in the file is at least as large as initialLength, although it does not set the 
logical length of the file. If it does not exist, a new file of size initialLength and type type 
will be created. 

The parameter mightWrite is significant only if access is anchor or readonly. If 
mightWrite is true, Acquire will not return a handle on a file in a write-protected 
directory. It will skip write-protected directories in the search path if the search path is 
used to resolve name, and it will raise MFile.Error[protectionFault] if the search path is not 
used but would otherwise return a handle in a write-protected directory. 

Table 47.1 defines which accesses conflict on an Acquire. Each row is the old access 
(already held by some other client) and each column is the new access (requested in the 

Acquire). 

A client may wish to gain use of a file in a way that conflicts with current access rights 
held by other clients. Whenever a client attempts to acquire a file in a way that conflicts 
with its current uses, each of the file’s current owners is asked to give up ownership by 
calling the owner’s PleaseReleaseProc with its instance data. If all clients with conflicting 
accesses relinquish ownership, the new use is granted. Otherwise, the access is refused. 
Access may also be refused if the file has been protected against the access required; for 
example, readWrite access will be denied to a file that is write-protected. 

If a client requests readonly access to a file for which some other agent has log access, no 
conflict occurs. However, the PleaseReleaseProc of the log file is called to make as much as 
possible of the file readable (see MStream.SetLogReadLength). The client will be able to 
read only as much of the file as is available when it is granted readonly access. 

MFile.AcquireTemp: procedure [ 

type: MFiie.Type, initialLength; MFile.InitialLength ^-MFiie.dontCare] 

RETURNS [MFile.Handle]; 
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Old 

Access 

anchor 

read 

Only 

read 

Write 

New Access 

write log 

Only 

delete 

rename 

null 

anchor 

ok 

ok 

ok 

ok 

ok 

no 

no 

no 

readonly 

ok 

ok 

no 

no 

no 

no 

no 

no 

readWrite 

ok 

no 

no 

no 

no 

no 

no 

no 

writeOnly 

ok 

no 

no 

no 

no 

no 

no 

no 

log 

ok 

♦ 

no 

no 

no 

no 

no 

no 

delete 

no 

no 

no 

no 

no 

no 

no 

no 

rename 

no 

no 

no 

no 

no 

no 

no 

no 


Table 47.1: Acquire accesses 

The AcquireTemp procedure returns a handle with readWrite access on a Pilot temporary 
file created on the volume containing the first non-write-protected directory on the search 
path. If all the directories on the search path are protected, it is created on the system 
volume. This file is not in the file system directory, and it will be deleted when the last 
handle on it is released. Its name is the empty string. It is not possible to generate an 
access conflict or protection conflict with AcquireTemp. This procedure can raise 
MFile. Error[...,nullAccess, noRoomOnVolume, other,...], 

MFiie.AddNotifyProc: procedure [ 

proc: MFile. NotifyProc, filter: MFile. Filter, clientInstanceData: long pointer]; 

The AddNotifyProc procedure adds a notification request to the file system notification 
list, proc will be called when the event specified by filter occurs; see NotifyProc and Filter. 
clientInstanceData will be passed to proc The file system will deadlock if this procedure is 
called from within a NotifyProc. 

MFile.AddProperty: procedure [ 

file: MFiie.Handle, property: MFile.Property, maxLength: cardinal]; 

The AddProperty procedure is used to add a client property to the property list. 
maxLength is the maximum number of bytes that the property will need. If there is 
insufficient room for the property to be added, PropertyError[noRoomlnPropertyList] will 
result. If the property already exists for this file and if the maxLength is equal to the 
existing version, this operation is a no-op. Otherwise, PropertyError[wrongSize] is raised. 
This procedure can be called on a file handle with any access. It can also raise 
MFile.Error[addressTranslationError, connectionSuspended, courierError]. 
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MFiie.AppendErrorMessage: procedure [ 

msg-.LONG STRING, code: MFiie.ErrorCode, file: MFile.Handle]; 

The AppendErrorMessage procedure fills into the string msg a description of the error 
code on the file file. If the description is too long to fit into msg, it is truncated. 

MFile. CompleteFilename: procedure [name^addedPart: long string] 

RETURNS [exactMatch: boolean, matches: cardinal]; 

The CompleteFilename procedure attempts to ’’complete" a file name: * is appended to 
name and the files in the file system are searched for matches. The number of matches is 
returned in matches, and the common prefix of the extensions (which may be empty) is 
returned in addedPart. If addedPart is too short, a String.StringBoundsFault will be raised. 
If the concatenation of name and addedPart yields a unique file name that could be used to 
acquire a file, exactMatch will be true, 

MFile.ComputeFileType: procedure [file: MFiie.Handle] returns [type: MFiie.Type]; 

The ComputeFileType procedure implements a heuristic for calculating the type of a file of 
unknown type. It reads all the bytes of file; if all represent character codes, it returns the 
type text. Otherwise, it returns the type binary. 

MFile.Copy: procedure [file: MFiie.Handle, newName: long string]; 

The Copy procedure copies a file into another file. The client must have readonly or 
readWrite access to file, and it must be able to open file newName for writeOnly. This 
procedure can raise MFile. Error[..., noSuchFile, directoryFull, filelsRemote, file IsDirectory, 
insufficientAccess, volumeNotOpen, noRootDi rectory, noRoomOnVolume, 

addressTranslationError, connectionSuspended, courierError, other,...]. 

MFiie.CopyFileHandle: procedure [ 

file: MFiie.Handle, release: MFiie.ReleaseData, access: MFiie.Access null] 
returns [MFiie.Handle]; 

The CopyFileHandle procedure produces a new MFiie.Handle on the same file as file. This 
operation is an accelerator for Acquire that avoids looking up the file in the directory 
again. It may obtain the new handle with a different access. If the access parameter is 
null, the new handle has the same access as the old handle; otherwise, it has the requested 
access. (Note that null access cannot be used when copying the handle passed to a 
NotifyProc; see the discussion of the type NotifyProc.) Because it can change the access, 
CopyFileHandle can raise Error[..., conflictingAccess, protectionFault...]. 

This operation provides an escape hatch for some of the file system’s access control. If the 
access requested for the copy is no stronger than the original access, the file system will 
make the copy even though it would not permit another client to gain that access to the 
file. For instance, if a client already has a file handle with readWrite access, it can obtain 
a copy with readonly access or readWrite access, although another client requesting a 
handle with either of these accesses would be refused. It is assumed that a client that 
produces such conflicting handles is responsible for the potential chaos that might result if 
those handles are misused. 
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Table 47.2 defines the relative strengths of accesses; < means that the new access is 
weaker than the old, and > means that the new access is stronger than the old. If the 
requested access is stronger than the access on the file, the usual access checking is 
performed. 
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read 
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Table 47.2: Access strengths 

MFiie.CopyProperties: procedure [from, to: MFiie.Handle]; 

The CopyProperties procedure is typically used by a utility to copy all of the existing 
properties of some base file into a new version. It can raise 
MFile.Error[addressTranslationError, connectionSuspended, courierError]. Client 
properties are preserved while a file stays in the development environment file system. 
However, they may be lost if, for instance, the file is stored on a remote file server. This 
procedure can be called on file handles with any access. 

MFile.CreateOirectory: PROCEDURE [dir: long string]; 

The CreateDirectory procedure ensures that a directory exists, creating new directories if 
necessary. All the intermediate subdirectories on the path will be created as necessary; for 
example, if dir is <Tajo>Defs> Source and subdirectory Pef^s does not exist, it as well 
as subdirectory Source will be created. The root directory is not created automatically, 
and an error will be raised if it does not exist. If dir is not completely specified, the search 
path will be used. Trailing >s are stripped from dir. Hence 
CreateDirectory['*<Tajo>Temp>”L] and CreateDirectory[”<Tajo>Temp”L] both create 
a subdirectory in the root directory on a volume named Tajo. CreateDirectory[”>Temp"L] 
creates a subdirectory in the first writeable directory of the current search path. If a file 
named dir already exists and is a directory, this procedure is a no-op. If dir is not a 
directory, the error code fileAlreadyExists is raised. This procedure can raise Error[.,., 
directoryFull, filelsRemote, illegalName, volumeNotOpen, noRootDi rectory, 
fileAlreadyExists...]. 
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MFile.Delete: procedure [file: MFiie.Handle]; 

The Delete procedure deletes a file. As directories are just files,this procedure can be used 
to delete directories. Delete can only be called with a handle with delete access. 
Directories can be deleted only if they are empty and they are not on the search path. 
Delete always releases the MFile. Handle passed in if it is successful. Delete can raise 
Errorf..., conflicting Access, directoryNotEmpty, insufficientAccess, filelsRemote, 
volumeNotOpen, noRootDirectory, directoryOnSearchPath, courierError, 
addressTranslationError, connectionSuspended,...]. (See also DeleteWhenReleased). 

MFiie.DeleteWhenReleased: procedure [file: MFile.Handle]; 

The DeleteWhenReleased procedure arranges for a file to be deleted when all its current 
uses of the file. If no other client is currently accessing the file, DeleteWhenReleased has 
the same semantics as Delete. If the file is in use by other agents, DeleteWhenReleased 
removes it from the directory and makes it a temporary file, sets its name in the leader 
page to the empty string, and marks it to be deleted when all other agents have released it. 
DeleteWhenReleased can be called with a handle with any access. Directories can be 
deleted only if they are empty and they are not on the search path. DeleteWhenReleased 
always releases the MFile. Handle passed in if it is successful. DeleteWhenReleased can 
raise Error[..., directoryNotEmpty, fiielsRemote. filelsDirectory, volumeNotOpen, 
noRootDirectory, directoryOnSearchPath,...] (See also Delete.) 

MFile.EnumerateDirectory: procedure [ 

name: long string, proc: MFile. EnumerateProc, which: MFile. EnumerationType], 

The EnumerateDirectory procedure enumerates the files in the file system. Enumerations 
can be performed on files, directories, or both, depending on the parameter which. The 
procedure proc is called for every file matching the pattern name. The enumeration can be 
terminated early by returning TRUE from proc. It is possible to enumerate only within a 
directory or within a directory and all its offspring. A # in name matches any single 
character in a file name except >. A single * occurring in name matches zero or more 
characters in a file name, but does not match >. Hence, enumerating * in a directory lists 
all the files in that directory but not in its subdirectories. Multiple consecutive *s do match 
>, so enumerating ** matches all files in a directory and in the entire directory tree below 
it. EnumerateDirectory does not guarantee to enumerate the files in any particular order 
(that is, they will not necessarily be alphabetical). If the pattern is not completely 
specified (if it does not start with < VolumeName>) EnumerateDirectory uses the search 
path. It enumerates from every directory in the search path successively. It is possible to 
enumerate a file several times if it occurs below several search path directories. See also 
FileAcquireProc and EnumerateProc. EnumerateDirectory can raise MFiie.Error[..., 
fiielsRemote, volumeNotOpen, illegalName, noRootDirectory, other,...]. 

MFiie.FreeSearchPath: procedure [MFiie.SearchPath]; 

The FreeSearchPath procedure frees a search path allocated by GetSearchPath. Note that 
the search path is not allocated from the system heap, so the client must be careful not to 
free search paths that contain strings allocated from the system heap. 
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MFile.GetAcceSS: PROCEDURE (file: MFile.Handle] RETURNS (access: MFHe.AcceSS]; 

The GetAccess procedure returns the current access associated with a Handle.lt can raise 
MFile. Error with the error codes addressTranslationError, connectionSuspended, and 
courierError. 

MFile.GetCreateDate: procedure (file: MFile.Handle] returns (create: Time.Packed]; 

The GetCreateDate procedure returns the create time of file, which is updated when a file 
is acquired with readWrite, writeOnly, or log access. This procedure can be called on a file 
handle with any access. 

MFiie.GetDirectoryName: procedure [file: MFile.Handle, name: long string]. 

The GetDirectoryName procedure appends to the string name as much of the directory 
portion of the fully qualified name of file as will fit. The name has a trailing > if file was 
not the top level directory. PropertyError[insufficientSpaceForProperty] is raised if it does 
not fit. This procedure can be called on a file handle with any access. It also raises 

MFile, Error(addressTranslationError, connectionSuspended, courierError]. 

MFile.GetFullName; procedure (file: MFile.Handle, name: long string]; 

The GetFullName procedure appends to the string name as much of the fully qualified 
name of file as will fit. PropertyError[insufficientSpaceForProperty] is raised if it does not 
fit. Error(addressTranslationError, connectionSuspended, courierError] can also be raised. 
This procedure can be called on a file handle with any access. 

MFile.GetLength: procedure [file: MFtie.Handle] returns (MFiie.ByteCount]; 

The GetLength procedure returns the length of file in bytes. It can raise 
Mfiie.Error(addressTranslationError, connectionSuspended, courierError] This procedure 
can be called on a file handle with any access. 

MFile.GetNextHandleForReading: procedure [ 

filter, name: long string, release: ReleaseData, lastState: EnumerateState, stopNow: 
BOOLEAN false] 

returns [file: Handle, state: EnumerateState]; 

The GetNextHandleForReading procedure provides a restricted form of "stateless” 
enumeration. A Handle with Readonly access is created for each file in the directory that 
is not ReadProtected and that matches the filter. (See EnumerateDirectory for a 
description of when a file matches a filter.) The current state of the enumeration is passed 
back and forth on each call. lastState must be nil on the initial call, and filter should 
contain the same value for each call in the stateless enumeration, name is a client- 
provided string that will be filled in with the name of the file file. When the enumeration 
terminates, name.length will be 0 and state will be nil. If the enumeration is to be 
terminated early, a final call with stopNow s true must be made, permitting the file 
system to free its enumeration state. This procedure can raise MFile. Error with error code 
filelsRemote. 
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MFile.GetProperties: procedure [file: MFiie.Handle, name: long string f- nil] 

RETURNS [create, write, read: Time.Packed, length: MFiie.ByteCount, type: MFiie.Type, 
deleteProtected, writeProtected, readProtected: boolean]; 

The GetProperties procedure returns the values of the built-in properties of a file. If name 
is not NIL, it is filled in with the name of the file. If readProtected is true, all other 
information is invalid. This procedure can be called on a file handle with any access. It 
can raise MFiie. Error[addressTranslationError, connectionSuspended, courierError] 

MFile.GetProperty: procedure [ 

file: MFiie. Handle, property: MFiie. Property, block: Environment.Block] 
returns [length: cardinal]; 

The GetProperty procedure gets the value of a client property. As much of the property as 
fits will be placed into block. The actual number of bytes copied is returned. The error 
MFiie. PropertyError[wrongSize] will be raised if the number of bytes in block is smaller 
than the number of bytes of information stored in this property value. If the property is not 
found, the error PropertyError[noSuchProperty] is raised. MFiie. Error can also be raised 
with the error codes addressTranslationError, connectionSuspended, and courierError. 
This procedure can be called on a file handle with any access. 

MFile.GetProtection: procedure [file: MFiie.Handle] 

returns [deleteProtected, writeProtected, readProtected: boolean]. 

The GetProtection procedure returns the protection status of file. It can raise MFiie. Error[ 
addressTranslationError, connectionSuspended, courierError] . This procedure can be 
called on a file handle with any access. 

MFiie.GetReleaseData. procedure [ 

file: MFiie.Handle] returns [release: MFiie.ReleaseData]; 

The GetReleaseData procedure returns the current release data associated with a Handle. 
It can raise MFiie. Error[ addressTranslationError, connectionSuspended, courierError]. 
This procedure can be called on a file handle with any access. 

MFile.GetSearchPath: procedure returns [MFiie.SearchPath]; 

The GetSearchPath procedure returns a copy of the file system search path. The client is 
responsible for deallocating the returned search path by calling FreeSearchPath. 

MFile.GetTimes: procedure [ 

file: MFiie.Handle] returns [create, write, read: Time.Packed]; 

The GetTimes procedure returns the create, read, and write times of file. The create and 
write times of a file are updated when a file is acquired with readWrite, writeOnly, or log 
access. The read time of a file is updated when a file is acquired with readonly or 
readWrite access. GetTimes can raise Error[ addressTranslationError, 
connectionSuspended, courierError] . This procedure can be called on a file handle with 
any access. 
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MFile.GetType: PROCEDURE [file: MFile.Handle] RETURNS [type: MFile.Typej; 

The GetType procedure returns the type of file. It can raise MFile. Error 
[addressTranslationError, connectionSuspended, courierError] . 

MFile.GetVolume: procedure [ file: MFiie.HandleJ returns [voiume.lDj; 

The GetVolume procedure returns the Volume. ID of the logical volume containing file. If 
file is a remote file, it returns volume. nulllD. 

MFile.lnitializeFileSystem: procedure; 

The InitializeFiieSystem procedure starts the file system; it should only be called by clients 
that include the file system. It causes a top-level directory to be created on the volume 
from which it is called. Clients of this procedure must be prepared to catch the resumable 
SIGNAL AboutToScavenge, defined in the friends interface MScavenge. 

MFile.Log: PROCEDURE [ 

name: long string, release: MFile.ReleaseData, 
initialLength: MFile.lnitiallength «-MFile.dontCare] 

RETURNS [MFiie.HandleJ; 

The Log procedure acquires the file name with log access It ensures that the file is at least 
as large as initialLength, although it will not set the file’s logical length. If file name does 
not exist, a new file of size initialLength and type text is created. See Acquire and 
PleaseReleaseProc for a discussion of access conflicts. See also MStream.SetLogReadLength. 
This procedure can raise MFile.Error[..., noSuchFile, conflicting Access, directoryFull, 
illegalName, volumeNotOpen, noRootDi rectory, nullAccess, protectionFault, 
noRoomOnVolume, addressTranslationError, connectionSuspended, courierError, other 
... 1 . 

MFile.ReadOnly; procedure [ 

name: long string, release: MFile.ReleaseData, mightWrite: boolean false] returns 
[MF iie.HandleJ; 

The Readonly procedure acquires the file name with readonly access. See Acquire and 
PleaseReleaseProc for a discussion of access conflicts and the meaning of mightWrite. This 
procedure can raise MFile.Error[..., noSuchFile, conflictingAccess, directoryFull, 
illegalName, volumeNotOpen, noRootDi rectory, noSuchDirectory, 

noSuchVolume.nullAccess, protectionFault, noRoomOnVolume, 

addressTranslationError, connectionSuspended, courierError, other,...]. 

MFiie.ReadWrite: procedure [ 

name: long string, release: MFile.ReleaseData, type: MFiie.Type. 
initialLength: MFile.InitialLength <-MFile.dontCare] 

RETURNS [MFiie.HandleJ: 

The ReadWrite procedure acquires the file name with readWrite access. It ensures that 
the file is at least as large as initialLength, although it will not set the file’s logical length. 
If file name does not exist, a new file of size initialLength and type type is created. See 
Acquire and PleaseReleaseProc for a discussion of access conflicts. This procedure can 
raise MFile. Error]..., noSuchFile. conflictingAccess, directoryFull, illegalName, 
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volumeNotOpen, noRootDirectory, nullAccess, protectionFault. noRoomOnVolume, 
addressTranslationError, connectionSuspended, courierError, other,...]. 

MFiie. Release: PROCEDURE [file: MPiie. Handle); 

When a client is through using a handle, it returns it to the file system by calling Release. 
This procedure can raise MFiie. Error(addressTranslationError, connectionSuspended, 
courierError. invalidHandle], 

MFile.RemoveNotifyProc: procedure [ 

proc: MFiie. NotifyProc, filter: MFiie. Filter, clientInstanceData: long pointer); 

The RemoveNotifyProc procedure removes a client notification request from the file 
system notification list. A call on RemoveNotifyProc that finds no match is a no-op, and nil 
clientInstanceData matches anything. If this procedure is called from a NotifyProc, the file 
system will deadlock. (See also NotifyProc.) 

MFile.RemoveProperties: PROCEDURE [file: MFiie.Handle); 

The RemoveProperties procedure removes all client properties from file. It can raise 
MFiie. Error [addressTranslationError, connectionSuspended, courierError). This procedure 
can be called on a file handle with any access. 

MFile.RemoveProperty: procedure [file: MFiie.Handle, property: MFiie.Property); 

The RemoveProperty procedure removes a client property. It can raise MFiie. Error 
(addressTranslationError, connectionSuspended, courierError). This procedure can be 
called on a file handle with any access. 

MFile.Rename: procedure [file: MFiie.Handle, newName: long string); 

The Rename procedure changes the name of a file, potentially moving it between 
directories but not between volumes. If Rename is called with a temporary file, the file 
will be made permanent and given the specified name; if Rename is called with an empty 
string, the file will be made temporary. The client must have rename access to file. This 
procedure can raise MFiie. Error(..., noSuchFile, directoryFull, insufficientAccess, 
volumeNotOpen, noRootDi rectory, fileAlreadyExists, filelsDirectory, filelsRemote, 
addressTranslationError, connectionSuspended, courierError, other,...] 

MFile.SameFile: procedure [file1,file2: MFiie.Handle] returns (boolean); 

The SameFile procedure returns true if filel and file2 are Handles on the same underlying 
file. 

MFile.SetAccess: procedure [file: MFiie.Handle, access: MFiie.Access); 

The SetAccess procedure changes the access associated with a Handle. As with Acquire, 
the PleaseReleaseProc of other clients with conflicting access may be called. Because it 
changes the access, SetAccess can raise Error(..., conflicting Access 
addressTranslationError, connectionSuspended, courierError, protectionFault...]. 
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MFiie.SetOeleteProtect: procedure [file: MFile. Handle, deleteProtected: boolean); 

The SetDeleteProtect procedure changes the deleteProtection attribute of file. It can raise 
MFiie.Error[addressTranslationError, connectionSuspended, courierError]. This procedure 
can be called on a file handle with any access. 

MFile.SetLength: procedure [file: MFile.Handle, length: MFile.ByteLength); 

The SetLength procedure changes the length of a file, where length is specified in bytes. 
The file is grown or shrunk as necessary. If it must be grown, this happens immediately; 
however, it will not be shrunk until all users of the file Release their Handles. This 
procedure can raise MFile. Error[addressTranslationError, connectionSuspended, 
courierError]. 

MFile.SetProperties: procedure [ 

file: MFile. Handle, create, write, read: Time.Packed System. gmtEpoch, length: 

MFile. ByteLength, type: Type, deleteProtected, writeProtected, readProtected: 

BOOLEAN ^ false]; 

The SetProperties procedure sets many of the built-in properties of file. The name 
property must be changed by calling Rename. The type cannot be changed from or to 
directory If SetType would change the type of the file from directory, the operation is 
ignored but no error is raised; if it would change the type of the file to directory, the error 
MFile. Error[other] is raised. The procedure can also raise [addressTranslationError, 
connectionSuspended. courierError). It can be called on a file handle with any access. 

MFlle.SetProperty; procedure [ 

file: MFile. Handle, property: MFile. Property, block: Environment.Block); 

The SetProperty procedure sets the value of a client property. The error 
MFile. PropertyError[noSuchProperty) will be raised if the property is not associated with 
file. The error MFile. PropertyError[wrongSize) will be raised if the number of bytes in the 
block is greater than the maximum associated with this property. The actual number of 
bytes is recorded so that, for instance, it is not necessary to pad string properties with nuls. 
This procedure can also raise MFile.Error with error codes addressTranslationError, 
connectionSuspended, courierError. It can be called on a file handle with any access. 

MFile.SetProtection: procedure [ 

file: MFiie.Handle, deleteProtected, writeProtected, readProtected: boolean ^ false]; 

The SetProtection procedure changes the protection attributes of file. (See also 
SetReadProtect, SetWriteProtect, and SetDeleteProtect.) This procedure can raise 
MFile.Error [addressTranslationError, connectionSuspended, courierError). It can be called 
on a file handle with any access. 

MFile.SetReadProtect: procedure [file: MFiie.Handle, readProtected: boolean); 

The SetReadProtect procedure changes the read-protect attribute of file. Read protection 
may be used by a client to mark a file as inconsistent; for example, the compiler read- 
protects the object file if the corresponding source failed to compile. By not deleting the 
file, the user's directory structure is preserved. If a file is read-protected, its contents, 
including its other properties, are assumed to be invalid. This procedure can raise 
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MFile Error(addressTranslationError, connectionSuspended. courierError]. It can be called 
on a file handle with any access. 

MFile.SetReleaseData: procedure [file: MFiie.Handle, release: MFiie.ReleaseData]; 

The SetReleaseData procedure changes the release data associated with a Handle. It can 
raise MFile. Error [addressTranslationError, connectionSuspended, courierError]. This 
procedure can be called on a file handle with any access. 

MFile. SetSearchPath: procedure [ 

MFiie.SearchPath] returns [succeeded: boolean <-true]; 

The SetSearchPath procedure sets the file system search path. Before setting the search 
path, the file system raises the Supervisor event aboutToChangeSearchPath, which can 
be aborted by clients wishing to forbid the change. If a client aborts the event 
aboutToChangeSearchPath, the file system raises the Supervisor event 
abortedSearchPathChange and returns. SetSearchPath copies the search path object and 
does not consume it. After successfully changing the search path, the file system raises the 
Supervisor event newSearchPath.The volumes named in the search path must be open 
and the directories named must already exist; SetSearchPath will not create them 
automatically SetSearchPath can raise Error[..., noSuchFile, illegalName, 
volumeNotOpen, noRootDirectory, illegalSearchPath, ...]. If the error code is 
illegalSearchPath, the search path is unchanged. Any other error causes the search path to 
be set to nil. (See also filesystem, aboutToChangeSearchPath, and newSearchPath.) 

MFiie.SetTimes: procedure [ 

file: MFiie.Handle, create, read, write: Time.Packed ^ System.grntEpochj; 

The SetTimes procedure changes the read, write and/or create dates of file. Defaulted 
values are not changed. The procedure can raise MFile.Error[addressTranslationError, 
connectionSuspended, courierError]. It can be called on a file handle with any access. 

MFile.SetType: procedure [file: MFiie.Handle, type: MFiie.Type]; 

The SetType procedure changes the type of file. The type cannot be changed from or to 
directory. If SetType would change the type of the file from directory, the operation is 
ignored but no error is raised; if it would change the type of the file to directory, the error 
MFile.Error[other] is raised. This procedure can be called on a file handle with any access. 

MFile.SetWriteProtect: procedure [file: MFiie.Handle, writeProtected: boolean]; 

The SetWriteProtect procedure changes the write^protect attribute of the file. This 
procedure can be called on a file handle with any access. 

MFiie.Error[addressTranslationError, connectionSuspended, courierError ] can be raised . 

MFile.SwapNames: procedure [f1,f2: MFiie.Handle]; 

The SwapNames procedure swaps the contents for a pair of files; they may be temporary 
files or in different directories, but they must be on the same volume. This is a very cheap 
operation, and the contents of the files are not copied. The client must have rename access 
to both f1 and f2. This procedure can raise MFile. Error[..., addressTranslationError, 
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connectionSuspended, courierError, noSuchFile, directoryFull, insufficientAccess, 
volumeNotOpen, noRootDirectory, filelsDirectory, other,...] 

MFiie.ValidFilename: procedure [name: long string] returns [ok: boolean]; 

The ValidFilename procedure returns true if name contains a syntactically valid file 
name. 

MFile.WriteOnly: PROCEDURE [ 

name: long string, release: MFile.ReleaseData, type; MFile.Type, initialLength: 
MFiie.lnitialLength 4- MFile.dontCare] 

RETURNS [MFile. Handle]; 

The WriteOnly procedure acquires the file name with writeOnly access. It ensures that the 
file is at least as large as initialLength, although it will not set the file’s logical length. If 
file name does not exist, a new file of size initialLength and type type is created. (See 
Acquire and PleaseReleaseProc for a discussion of access conflicts.) This procedure can 
raise MFile. Error[..., noSuchFile, conflictingAccess, directoryFull, illegalName, 
volumeNotOpen, noRootDirectory, nullAccess, protectionFault, noRoomOnVolume, 
addressTranslationError, connectionSuspended, courierError, other,...]. 

47.5 Discussion and examples 

The following contains discussion and examples of PleaseReleaseProc and Notification. 
This material may be skipped by the casual client of MFile. 

47.5.1 Release procedures 

A client should provide a PleaseReleaseProc for a file if it is making relatively passive use 
of the file and might be willing to relinquish it. For example, a file window is willing to 
release a file if it is not open for edit, and a file cache releases an old version of a file so that 
a new version may be retrieved. 

The call on a client’s PleaseReleaseProc is made from the process that is requesting the file 
in a conflicting way, such as when (1) the file system has locked some of the data 
structures associated with the file, and (2) the client’s processes are running at the same 
time. Special care must be taken in writing PleaseReleaseProc both to avoid 
synchronization problems in the client’s code and to avoid deadlock in the file system. 

To protect itself, the client must monitor data accessed by the PleaseReleaseProc and also 
carefully synchronize which process has actually released the file. The PleaseReleaseProc 
should not wait for a monitor that may be held by a process that might be waiting for the 
file system. For example, the actual release of the file should not be done from within the 
client monitor, since the release may be blocked, waiting for the PleaseReleaseProc. 

The PleaseReleaseProc may determine that it can release the file, in which case the client 
process must not access the file handle again. The PleaseReleaseProc does not actually 
perform the release but returns the value go Ahead, asking the file system to do the 
release. The PleaseReleaseProc may determine that the file will be released in the near 
future, either because the client process is already releasing it or because the 
PleaseReleaseProc will fork another process to actually release the file. In this case, the 
PleaseReleaseProc returns the value later, and the file system delays the conflicting 
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request for the file until it has been released. The PleaseReleaseProc may determine that 
it cannot release the file, in which case it returns no. If the client does not wish to release 
the file but does not care if it is renamed, it returns the value allowRename. 

To avoid deadlock with the file system, the PleaseReleaseProc should not call any of the 
following procedures on the file requested: Acquire, Acquireid ( a friends-level procedure), 
CopyFileHandle, Delete, DeleteWhenReleased, Log, Readonly, ReadWrite, Release, 
SetAccess, SetRelease, WriteOnly In addition, the PleaseReleaseProc should not perform 
an enumeration that lists the file. If a PleaseReleaseProc must invoke one of these actions, 
it must fork a separate process and not wait for that process, since the procedures will not 
be executed until after the PleaseReleaseProc returns. The file system guarantees that 
once a handle has been released, it will not invoke its PleaseReleaseProc. 

The following simple example of a PleaseReleaseProc shows a simple-minded module 
managing a single file that it is always willing to release. 

FileNotAvailable: error a code; 
f: MFiie. Handle 

busy. pleaseFree: boolean false; 

Acquire: entry procedure = { 
busy ♦-false; 
pleaseFree«- false; 

f «-MFiie.Acquire{name: "Some.File"L, release: [proc: MyReleaseProc],... ]}; 

DoneWith; procedure returns [file: MFiie.Handle] * { 

FileToFree: entry procedure returns [file: MFiie.Handle] * {file «-f; f 
localF: MFiie.Handle * FileToFreeH; 

IF localF # NIL THEN MFiie.Release(localF]}; 

MyReleaseProc: entry MFiie.PleaseReleaseProc * { 
select true from 

busy a > (pleaseFree ♦-true; RETURN(later]}; 
f a nil a > RETURN[later]; 

ENDCASE a > {f <- NIL,’ RETURN[goAhead]}}; 

OoSomeWorkUsingFile: procedure a { 

MakeBusy: ENTRY procedure RETURNS [file: MFiie.Handle] a { 
busy ♦-true; RETURN[f]}; 

Makelinbusy: entry procedure returns [file: MFiie.Handle] a { 
busy ♦- false; 

IF pleaseFree then {file ♦-f; f e-Niu; pleaseFree ♦- false} 
else file ♦-nil}; 

file: MFiie.Handle a MakeBusyU; 

IF file a NIL THEN ERROR FileNotAvailable; 

- do the work using file 

IF (file ♦- MakeUnbusy[]) # nil then MFiie.Release[file]}; 

AcquireH; 

DO 

-- do some computing 

DoSomeWorkUsingFile[! FileNotAvailable a > exit]; 
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- do some more computing 

ENOLOOP; 

DoneWitht] ; 

47.5.2 Notification 

Some clients wish to be notified whenever a file becomes available for access. For instance, 
a cache may wish to know whenever there is a new version of one of its files; that is, 
whenever one of its files becomes available for readonly access. If a client gives up a file 
because its PleaseReleaseProc was called, it may wish to be notified when the file is 
available again so it can resume using it. Clients ask to be notified by calling 
AddNotifyProc with the file name and access of interest, and add a NotifyProc to be called 
when the file becomes available. 

Notification is performed by a special process in the file system. The file system maintains 
a list of files that are eligible for notification, and the notification process examines each 
file in the list. The notification process first checks whether a NotifyProc is interested in 
the file; that is, whether the file name matches the name in the filter and whether the 
access in the filter corresponds to a recent access transition on the file. If the NotifyProc 
matches, the notification process checks whether it can obtain the filter's access on the 
file (It may not be possible because some previous NotifyProc has created a conflicting 
handle on the file; also, if several NotifyProcs want to know when they can get writeOnly 
access to a file, only one of them will actually succeed). 

There is no guarantee about the order of notification; in particular, files may be released 
in one order and notification may take place in the other. There is also no guarantee about 
how quickly notification will take place after a file is released, since the notification takes 
place in another process. Because the notification process checks whether the filter access 
is available before calling a NotifyProc, a NotifyProc may not be called for every transition 
it is interested in. 

Like PleaseReleaseProc, NotifyProcs are called by a separate process from the client 
process, so the client must protect itself from the effects of concurrent processing. Common 
data must be monitored. Furthermore, the client must not make any assumptions about 
the relative timing of file system manipulations. If a client releases a file in one statement 
and adds a NotifyProc on that file in the next, the file may in fact have been acquired and 
released between the two statements, and the client will miss the notification of this state 
change. 

To avoid deadlock with the file system, the NotifyProc should not directly or indirectly call 
AddNotifyProc or RemoveNotifyProc. The boolean result of the NotifyProc may be used to 
allow the NotifyProc to remove itself from the notify list. 

The following simple example of a NotifyProc and a PleaseReleaseProc shows a simple- 
minded module managing a single file. It it is willing to release the file if it is not in use, 
but wishes to be notified when the file is available again. 


fileName: LONG string: * .. 
f: MFile.Handle; 
useCount: cardinal; 
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Acquire: public entry procedure returns [iwiFiie. Handle] = { 

IF f # NiLTHEN useCount«-useCount ♦ 1; 
return]!]}; 

Release: public entry procedure * {useCount <— useCount -1}; 

Initialize: PUBLIC ENTRY PROCEDURE = { 
f «—MFile.Acquire] 

name: fileName, access: readonly, release: [proc: MyReleaseProc], ! 
MFile. Error * > { 

MFiie.AddNotifyProc] 
proc: MyNotifyProc. 

filter: [name: fileName, access: readonly]]; 
f c-nil; 
continue}]]; 
useCount «-0}; 

MyReleaseProc: entry MFiic.PleaseReleaseProc = { 

IF useCount # 0 then RETURN[no]; 
f «-nil; 

MFiie.AddNotifyProc] 

proc: MyNotifyProc, filter: [name: fileName, access: readonly]]; 
RETURN]goAhead]}}; 

MyNotifyProc: entry MFile. NotifyProc * { 
removeNotifyProc true; 
f <- MFile.CopyFileHandle] 

file: file, access: readonly, release: [proc: MyReleaseProc]! 

MFile.Error = > { 
f «- nil; 

removeNotifyProc <— false; 
continue}]}; 

-- main line code 

Initialize]]; 

do 

Acquire]]; 

- do some computing 

Release]] 

endloop; 
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MFileProperty 


The MFileProperty interface is a constants-only definitions file that contains the list of the 
registered client file property numbers. 

48.1 Types 

None. 

48.2 Constants and data objects 

MFileProperty.AdobeRepOrtSortTime: CARDINAL = ...; 

MFileProperty.CheckSum; CARDINAL = .. 

MFileProperty. PropagationDate: cardinal = . . .; 

MFileProperty.RemOteName CARDINAL = ...; 

48.3 Signals and errors 

None. 

48.4 Procedures 

None. 
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• MLoader 

The MLoader interface allows clients to load and start programs stored in files in the 
development environment file system. This facility is used in place of the Pilot loader 
facility because clients do not have direct access to file capabilities. 

49.1 Types 

MLoader.Handle;TYPE = LONG POINTER TO Object; 

MLoader.Object: TYPE = ... ; 

MLoader.Options: TYPE = RECORD [codeLinks: boolean]; 

49.2 Constants and data objects 

MLoader.defaultOptions: MLoader.Options & [codeLinks: True); 

49.3 Signals and errors 

MLoader.Error; ERROR s [code: ErrorCode. String: LONG STRING],' 

MLoader.ErrorCode: TYPE a { 

invalidParameters, missingCode, badCode, exportedTypeClash. lookupFailure, gftFull, 
loadStateFull.insufficientAccess, alreadyStarted, other}; 

invalidParameters the file is an invalid configuration. 

missingCode code was not copied into the file when it was bound. 

badCode code was for the wrong machine. 

exportedTypeClash code contains conflicting exported type implementation. 

lookupFailure reserved for future use. 

gftFull no room in the Global Frame Table. 
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loadStateFull l esorved for future use. 

insufficientAccess file does not have readonly access. 

alreadyStarted handle has already been started, 

other implementation error. 

MLoader.VersionMismatch: signal [module: long string]; 

The VersionMismatch signal is raised when an interface is exported with one version and 
imported with another. The parameter is the name of the interface. If this signal is 
resumed, the item from the imported version remains unbound. 


49,4 Procedures 

MLoader.HandleFromProgram: procedure [program] returns [MLoader.Handle]; 

The HandleFromProgram procedure returns the handle for a loaded program that was 
loaded by Load or Run. It returns nil if no handle can be found. 

MLoader. Load: PROCEDURE [ 

file: MFiie.Handle, options: MLoader.Options 4-MLoader.defaultOptions] 

RETURNS [MLoader.Handle]; 

The Load procedure requires an MFile.Handle with (exactly) readonly access. It loads the 
file with the options passed in and returns a handle that can be used by Start or Unload. If 
options = MLoader.defaultOptions, any module for which code links were requested 
during binding will be loaded with external links in its code rather than its frame. 
Ownership of the MFile.Handle is transfered to the MLoader package. If the client wishes to 
maintain control of the file, it must call MFile.CopyFileHandle before calling Load. This 
procedure may raise MLoader.VersionMismatch or MLoader.Error[..., insufficientAccess, 
gftFull, badCode, invalidParameters, missingCode, exportedTypeClash, other,...]. 

MLoader.Run: PROCEDURE [ 

file: MFiie.Handle, options: MLoader.Options 4-MLoader.defaultOptions] 

RETURNS [MLoader.Handle]; 

The Run procedure is equivalent to a Load followed by a Start. This procedure may raise 

MLoader.VersionMismatch or MLoader.Error[..., insufficientAccess, gftFull, badCode, 
invalidParameters, missingCode, exportedTypeClash, alreadyStarted, other,...]. 

MLoader.Start: PROCEDURE [MLoader.Handle]; 

The Start procedure starts a handle that has been loaded by Load. This procedure may 
raise MLoader.Error[..., alreadyStarted, other,...]. 

MLoader.Unload: PROCEDURE [MLoader.Handle]; 

The Unload procedure unloads a loaded file that has been loaded by Load or Run. This 
procedure may raise MLoader. Error[other], 
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The MSegment interface supports file mapping to spaces in virtual memory called 
segments. Although most of its operations have direct counterparts in the Space interface, 
MSegment is used because clients of the Xerox Development Environment file system do 
not have access to File. Files. For more information on these operations, consult the 
documentation on Space in the Pilot Programmer's Manual. 

Addressing data pages through the MSegment interface is zero-origin. Only files in the 
Xerox Development Environment file system can have segments created on them. 

A segment is created and associated with a portion of a file by the Create operation (see its 
declaration below). The new segment can be used to read and modify the contents of the 
file (depending on the MFile.Access of the file handle passed to Create) because the file is 
the ’’backing store” for the segment. 

Nothing in the MSegment interface will change the size of the backing file. If a client 
wishes to change the size of a file, it should first call MFile.SetLength. One situation in 
which this must be done, for example, is when a client creates a file via MFile.Acquire with 
a large physical size hint and uses MSegment to initialize its contents. Since the file is 
physically large (although logically empty), a segment can be created on it and written 
into. However, if MFile.SetLength is not called, the logical length of the file does not 
change, and it will appear to later users as if the file were empty. 


50*1 Types 


MSegment.Handle: TYPE = LONG POINTER TO MSegment. Object; 

MSegment.Object: TYPE; 

MSegment.PleaseReleaseProc; type = procedure [ 

segment: MSegment.Handle, instanceData: long pointer] 

RETURNS [MFile.ReleaseChoice]; 

Note that these types are different than those in MFile; in particular, the Handle is an 
MSegment.Handle, not an MFile. Handle. Each owner of an MSegment is notified when some 
other client wishes to have access to the MFile. Handle in a way that conflicts with the 
original use. If the ReleaseData.proc is nil, the new agent is denied access to the file. As 
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with MFile, MSegment. Delete cannot be issued from the PleaseReleaseProc directly, and the 
client must synchronize carefully. (See MFile for more discussion on PleaseReleaseProcs 
and Space in the Pilot Programmer's Manual for discussion of SwapUnitOption 

MSegment.ReleaseData: TYPE = RECORD [ 
proc: MSegment.PleaseReleaseProc <— nil. 
clientInstanceData: long pointer <- nil]; 

MSegment.SwapUnitOption: type = RECORD { 

body: select tag: MSegment.SwapUntilType from 
unitary = > null, 

uniform = > [size: MSegment.SwapUnitSize], 
irregular = > [sizes: MSegmentSwapUnitSequence] 
endcase]; 

MSegment.SwapUnitSequence: TYPE = LONG POINTER TO MSegment.SwapUnitSequenceObject; 

MSegment.SwapUnitSequenceObject: type = record [ 

swap: SEQUENCE length: cardinal of MSegment.SwapUnitSize]: 

MSegment.SwapUnitSize: TYPE = Environment. PageCount; 

A SwapUnitSize specifies the size in pages of the uniform swap units to be used. 
MSegment.SwapUnitType; TYPE = {unitary, uniform, irregular}; 

50.2 Constants and data objects 

MSegment.defaultPages: Environment. PageCount * ...; 

MSegment.defaultSwapUnitS: MSegment.SwapUnitOption s ...; 

If the defaultSwapUnits value is used, the swap unit size defaults to 1,2, or 4 pages, 
depending on whether the size of the segment is less than 11 pages, between 11 and 50 
pages, or greater than 50 pages. 

MSegment.dontChangeFile: MFile.Handle s ...; 

MSegment.dontChangeFileBase: Fiie.PageNumber s ...; 

MSegmentdontChangePages; Environment.PageCount ss ...; 

MSegment.dontChangeReleaseData: ReieaseData s ...; 

50.3 Signals and errors ^ 

MSegment.Error: SIGNAL [segment: MSegment.Handle, code: MSegment.ErrorCode); 

MSegment.ErrOrCode: TYPE S MACHINE DEPENDENT { 
zeroLength{0), insufficientVM, noSuchSegment, 
sharedSegment, baseOutOfRange, conflictingAccess, 
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illegal Access, invalidFile, dataSegmentNeedsPages,noRoomOn\/olume, 
other(LAST[CARDlNAL])} 


zeroLength(O) 

insufficientVM 

noSuchSegment 

sharedSegment 

baseOutOfRange 

conflictingAccess 

illegalAccess 

invalidFile 

dataSegmentNeedsPages 

noRoomOnVolume 

other 


a zero-length segment cannot be created. 

there is not enough VM left to create the desired segment. 

there is no segment containing the address or base 
requested, or the segment is invalid. 

the segment you are resetting is shared with some other 
client. 

a segment cannot have a base larger than 

File.lastPageNumber. 

the requested access of the file cannot be obtained. 

the file access is illegal for the operation. 

an invalid MFile.Handle has been used. 

the pages parameter may not be defaulted when creating 
a data segment. 

there is not enough free space on the volume to map the 
segment. 

implementation error. 


50.4 Procedures 

MSegment.Activate: PROCEDURE [segment: MSegment.Handie]; 

The Activate procedure is called to indicate that the segment is likely to be referenced soon 
and that Pilot should begin swapping it in. (See Space.Activate.) 

MSegment.AddreSS: PROCEDURE [segment: MSegment.Handie] RETURNS [long pointer); 

The Address procedure returns the virtual memory address of the start of the segment. 
Address should be called after the segment is modified by MSegment,Reset, as well as when 
it is created. This procedure may raise MSegment.Error[noSuchSegment]. 

MSegrnent.AddresstoSegment: procedure [pointer: long pointer] returns 
[MS egment.Handie]; 

The AddresstoSegment procedure returns the smallest segment containing the virtual 
memory address. This procedure may raise MSegment.Error[noSuchSegment]. 
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MSegment Base: PROCEDURE [ 

segment: MSegment.Handle] returns [Environment.PageNumber]; 

The Base procedure returns the virtual memory page number containing the start of the 
segment. Base should be called after the segment is modified by MSegment. Reset, as well as 
when it is created. This procedure may raise MSegment. ErrorfnoSuchSegment]. 

MSegment. BasetoSegment: procedure [ 

page: Environment.PageNumber] returns [MSegment.Handle]; 

The BasetoSegment procedure returns the smallest segment containing the virtual 
memory page number. This procedure may raise MSegment. Error[noSuchSegment]. 

MSegment.CopyIn: PROCEDURE [ 

segment: MSegment.Handle, file: MFiie.Handle,fileBase: Fiie.PageNumber, count: 
Environment.PageCount]; 

The Copyin procedure copies data into the segment from the file starting at page fileBase 
for count pages. Unlike Create, Copyin does not own the file when it is done. This 
procedure may raise MSegment.Error[..., zeroLength, noSuchSegment, baseOutOfRange, 
illegalAccess, invalidFile,...] 

MSegment.CopyOut: PROCEDURE [ 

segment: MSegment.Handle, file: MFiie.Handle, fileBase: Fiie.PageNumber, count: 
Environment.PageCount]; 

The CopyOut procedure copies data from the segment into the file starting at page 
fileBase for count pages. It does not own the file when it is done. This procedure may raise 
MSegment.Error[-..,zeroLength, noSuchSegment, baseOutOf Range, illegalAccess, 
invalidFile,...]. 

MSegrnent.CopySegment: PROCEDURE [ 

segment: MSegment.Handle] returns [newSegment: MSegment.Handle]; 

The CopySegment procedure permits a segment to be shared by different programs. 
Shared segments cannot be modified by MSegment.Reset. This procedure may raise 

MSegment.Error[noSuchSegmentl. 

MSegment. Create: PROCEDURE [ 

file: MFiie. Handle 4-NIL, release: MSegment.ReieaseData, 

fileBase: Fiie.PageNumber 4-0, pages: MSegment.PageCount 4-defaultPages, 

swapinfo: MSegment.SwapUnitOption 4-defaultSwapUnits] 

RETURNS [segment: MSegment.Handle]; 

The Create procedure creates a segment. Operations on it are restricted by the MFile.Access 
associated with the file that is passed in. To create a segment, readonly or readWrite 
access to the file is needed. If this operation succeeds, ownership of the file is passed to the 
MSegment package. If the client wishes to maintain control of the file, it must call 
MFile.CopyFileHandle before calling MSegment.Create. The segment will be pages long; if 
pages is defaultPages, the segment will be the logical size of the file. An important special 
case: if file is nil, the segment will be a data segment backed by a temporary file. It is 
possible to create a segment on nonexistent file pages; that is, fileBase 4 * pages may be 
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larger than the number of pages in the file. However, if the client tries to reference such 
pages, an address fault will result. This procedure may raise MSegment.Error[..., 
zeroLength, insufficientVM, baseOutOf Range, illegal Access, invalidFile, 
dataSegmentNeedsPages, noRoomOnVolume, other,...]. 

MSegment.Deactivate: PROCEDURE [segment: MSegment.Handle]; ( 

The Deactivate procedure is called to indicate that the segment is not likely to be 
referenced soon and that Pilot can swap it out. (See Space. Deactivate.) 

MSegment. Delete: PROCEDURE [segment: MSegment.Handle]; 

The Delete procedure deletes the segment created by MSegment.Create or 
MSegrnent.CopySegment. The virtual memory occupied by this segment is freed and the 
segment object is released. This procedure may raise MSegment.Error[noSuchSegment]. 

MSegrnent.EquivalentSegments: procedure [segl, seg2: MSegment.Handle] returns 
[boolean]; 

The EquivalentSegments procedure checks whether two segments refer to the same pages 
of the same file. It returns TRUE if both arguments are nil, or if both are segments on the 
same span of pages of the same file. 

MSegment.ForceOut: PROCEDURE [segment: MSegment.Handle]; 

The ForceOut procedure forces out the segment; that is, writes its dirty pages to disk. It 
does not return until all output is complete. (See Space. ForceOut.) This procedure may 
raise MSegment, Error[noSuchSegment]. 

MSegment.FreePages: procedure [base: long pointer]; 


The FreePages procedure 
MSegment. GetPages, 

deallocates a page-aligned 

block 

allocated 

with 

MSegment.FreeWords: PROCEDURE [base: LONG pointer]; 




The FreeWords procedure 

deallocates a page-aligned 

block 

allocated 

with 


MSegment.GetWords. 

MSegment.GetFile: PROCEDURE [segment: MSegment.Handle] RETURNS [MFile.Handle]; 

The GetFile procedure returns the file handle on which this segment was created. This 
procedure may raise MSegment. Error[noSuchSegment]. 

MSegment.GetFileBase: procedure [ 

segment: MSegment.Handle] returns [FHe.PageNumber]; 

The GetFileBase procedure returns the starting page in the file of this segment. This 
procedure may raise MSegment. ErrorfnoSuchSegment]. 
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MScgment.GetFilePages: procedure [ 

segment: viSegment.Handle] returns [Fiie.PageCount]; 

The GetFilePages procedure returns the number of physical data pages in the file on which 
this segment was created. It may raise MSegrnent.ErrorfnoSuchSegment], 

MSegment.GetPages: PROCEDURE [npages: cardinal] returns [base: long pointer); 

The GetPages procedure allocates a page-aligned block containing a specified number of 
pages. This block must later be freed by MS«gment.FreePages. 

MSegment.GetReleaseData: procedure [ 

segment: MSegment.Handle] returns [MSegment.ReleaseOata]; 

The GetReleaseData procedure returns the release data associated with this segment. 
This procedure may raise MSegnient.Error[noSuchSegment]. 

MSegment.GetWords: PROCEDURE [nwords: cardinal] returns [base: long pointer];( 

The GetWords procedure allocates a page-aligned block containing at least a specified 
number of words. MSegment.FreeWords is used to free this block. (An integral number of 
pages will actually be allocated.) 

MSegment.Kill: PROCEDURE [segment: MSegment.Handle]; 

The Kill procedure, which kills the mapped pages of a segment, is used when the current 
contents of the segment are not needed. If a word is read from a killed page, the page is not 
read from backing store. This is useful when the segment has just been created and the 
backing file does not contain any useful information. If the killed segment is deleted or 
reset, its pages are not written to disk. (See Space.Kill.) This procedure may raise 
MSegment.Error[noSuchSegment]. 

MSegment.MakeReadOnly: procedure [segment: MSegment-Handle]; 

The MakeReadOnly procedure makes the segment read-only. (See Space.ReadOnly.) This 
procedure may raise MSegment.Error(noSuchSegment]. 

MSegment.MakeWritable; procedure [segment: MSegment.Handle]; 

The MakeWritable procedure makes the segment writable. (See Space.Writable.) This 
procedure may raise MSegment.Error[..., noSuchSegment. illegalAccess,...]. 

MSegment.Pages: procedure [ 

segment: MSegment.Handle] returns [Environment.PageCount]; 

The Pages procedure returns the number of pages in the segment. This procedure may 
raise MSegment.Error[noSuchSegmentl. 

MSegment.PagesForWords: PROCEDURE [nwords: cardinal] returns [cardinal]; 

The PagesForWords procedure returns the number of pages needed to hold nwords words. 
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MSegment.Reset: PROCEDURE [ 
segment; wisegment.Handle, 
file: MFiie.Handle «- MSegment.dontChangeFile, 

release: MSegment.ReleaseData «-MSegmcnt.dontChangeReleaseData, 
fileBase: Fiic.PageNumber«- MSegment.dontChangeFileBase, 
pages: Environment.PageCount ^-MSegment.defaultPages, 
swapinfo: MSegment.SwapUnitOption MSegment.defaultSwapUnits]; 

The Reset procedure changes the properties of the segment without creating a new 
segment object. Parameters that receive the default values are not changed. Since the 
segment's virtual memory location might be different, MSegment.Address should be called 
again to obtain the new starting address and MSegment.Base should be called for the new 
base. It is possible to reset to a segment on nonexistent file pages; that is, fileBase + pages 
may be larger than the number of pages in the file. If a client tries to reference such pages, 
however, an address fault results. This procedure may raise MSegment.Error[..., 
insufficientVM, noSuchSegment, sharedSegment, itIegalAccess, baseOutOfRange, 
invalidFile, noRoomOnVolume,...]. 

MSegment.SetReleaseData: procedure [ 

segment: MSegment.Handle, release: MSegment.ReleaseData]; 

The SetReleaseData procedure sets the release data associated with the segment. It may 
raise MSegment. Error(noSuchSeg ment]. 

50.5 Examples 

The following program fragment reads and updates a data structure stored on the file 
"MyFile"; 


f: MFiie.Handle; 

seg: MSegment.Handle; 

data: long pointer to MyOata; 

- create a read/write segment on the file 

f 4-MFiie.ReadWritelname: "MyFile", release: [l.type: binary]; 
seg «-MSegment.Create[file: f, release: []]; 
data <- MSegment. Addresslseg]; 

- now manipulate the data structure 
data.updateCount <- data.updateCount 1; 

MSegment. Delete[seg]; 

Ownership of the file handle is passed to the segment by Create. Consequently, the file is 
released when the segment is deleted. If the client needs to retain access to the file, it must 
call MFiie.CopyFileHandle before creating the segment. 

It is also possible to create "data segments" that have temporary backing files by passing a 
NIL file handle to Create. Data segments are most often used with the Copyin and CopyOut 
operations. These procedures copy data between a segment and a file, much like the read 
and write operations of traditional file systems. They do not create a permanent 
association between a segment and a file window, and are relatively fast. 
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In the program fragment that follows, a data segment is used as a buffer. It is created at 
the beginning of the program, and data is copied into it from several different files during 
program e.xecution. Note that ownership of the file handle is not passed to the segment by 
Copyin; each input file must be explicitly released by the client. 

buffer; MSegment.Handle; 

data; long pointer to array [o..o) of Environment.Byte; 
source; MFHe. Handle; 

buffer MSegment.Create{file; nil, release; [], pages; 20]; 
data MSegment.Address(buffer|; 

source «-MFiie.ReadOnly(name; "Input.data”, release; []]; 

MSegment.Copyln[segrnent; buffer, file; source, fileBase; 0, count; 20); - read one file's 
data 

MFile.Releasefsource); -- done with input file now 
- process the data 

FOR i: CARDINAL IN [o..(20*Environment.bytesPerPage)) do 
iFdata[i] = OTHEN... 

ENDLOOP; 

MSegment.Deletefbuffer]; 
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The MStream interface implements a Pilot transducer for accessing a file as a positionable 
byte stream. Only files in the Xerox Development Environment directory may have 
MStreams created on them. 


51.1 Types 


MStream. Handle: TYPE = Stream. Handle; 

An MStream. Handle is the same type as a Stream. Handle. Clients may pass streams obtained 
from some other source to the procedures; the error MStream. Error[invalidHandle] is raised 
in most instances, 

MStream.PleaseReleaseProc: type = procedure [ 

stream: MStream. Handle, instanceData: long pointer] 

RETURNS [MFile.ReleaseChoicej; 

The PleaseReleaseProc is similar to that of MFile. Each user of an MStream is notified 
when some other agent wishes to have access to the MFile.Handle in a way that conflicts 
with the original use. If the ReleaseData.proc is nil, the new agent is denied access to the 
file. As with MFile, the stream cannot be destroyed from the PleaseReleaseProc directly, 
and the client must synchronize carefully. (See the documentation of 
MFile.PleaseReleaseProc and the discussion at the end of MFile for the semantics of release 
procedures.) A stream is released by calling Stream. Delete. 

MStream.ReleaseData:TYPE = RECORD [ 

proc: MStream.PleaseReleaseProc nil, clientInstanceData; long pointer 4 - nil]; 

51.2 Constants and data objects 

None. 
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51.3 Signals and errors 

MStream.Error: ERROR [Stream: stream.Handle, code: MStream.ErrorCode]; 

MStream.ErrOrCode: TYPE = MACHINE DEPENDENT { 

invalidHandle(O), indexOutOfRange, invalidOperation, fileTooLong, fileNotAvailable, 
invalidFile, other(LAST[CARDiNAL])}; 

invalidHandle an invalid stream handle has been passed to a file stream 

procedure. 

indexOutOfRange a client tried to extend a file without the proper access. 

invalidOperation a client tried to operate on a stream in a way conflicting with its 

access; for example, to write on a read-only stream. 

fileTooLong a client tried to extend a stream beyond 65,535 pages. 

fileNotAvailable a file cannot be acquired from MFile with the requested access. 

invalidFile an invalid MFile. Handle was used. 

51.4 Procedures 

MStream.BackupLog: procedure [ 

stream: MStream. Handle, count: MFile.ByteCount] returns [backedUp: MFiie.ByteCount]; 

The BackupLog procedure permits a client to back up in a file of type log. The number of 
characters to be backed over is given by count; the number actually backed over is 
returned by backedUp. BackupLog may not back the file up past the point made available 
for reading by SetLogReadLength. (See also SetLogReadLength.) This procedure may 
raise MStream. Error[..., invalidHandle, indexOutOfRange, invalidOperation,...]. 

MStream. Copy: PROCEDURE [from,to: stream. Handle, bytes: MFiie.ByteCount] 
returns [bytesCopied: MFiie.ByteCount]; 

The Copy procedure copies bytes either to or from an MStream. Either from or to must be 
a stream. Handle obtained from the MStream, or the error MStream. Error[...invalidHandle] is 
raised. It is legal for endOfStream to be reached before bytes bytes can be copied. To copy 
the rest of a file, you might call [] Copylfrom, to, last[long cardinal]]. If from is not an 
MStream, and if a call of stream. GetBlock[from, ...] returns a why of sstChange, this 
procedure may raise MStream. Error[other]. It raises MFile. Error[noRoomOnVolume] if there 
is not enough room on the logical volume for the copied file. 

MStream.Create: procedure [ 

file: MFiie.Handle, release: MStream.ReleaseOata, 
options: stream.InputOptions ^-stream.defaultlnputOptions, 
streamBase: File.PageNumber ^0] 
returns [stream: MStream.Handle]; 

The Create procedure creates an MStream. If the PleaseReleaseProc release.proc passed 
in to Create is nil, the stream and underlying file are not released. Note that any 
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MFile.PleaseReleaseProc previously associated with this MFile.Handle is discarded. 
Operations on the stream are restricted by the MFile.Access associated with the file that is 
passed in. Ownership of file is passed to the MStream package. If the client wishes to 
maintain control of the file, it must call MFile.CopyFileHandle before calling 
MStream. Create. The streamBase parameter indicates the starting page number for the 
stream. It permits a client to have a segment and a stream open on a file simultaneously, 
the segment on the first portion of the file and the stream on the remainder. This 
procedure may raise MStream. Error[..., invalidOperation, fileTooLong, invalidFile,...]. 

MStream. EndOf: PROCEDURE [stream: MStream. Handle] returns [boolean]; 

The EndOf pi ocedure returns true if an MStream is at the end of the file. This procedure 
may raise MStream. Error[invalidHandle]. 

MStream. GetFile: PROCEDURE [stream: MStream.Handle] returns [MFiie.Handle]; 

The GetFile procedure returns MFiie.Handle underlying an MStream. It can be used to 
examine properties of the file, etc. The file is still owned by the MStream. This procedure 
may raise MStream. Error[invalidHandle]. 

MStream. GetLength: procedure [ 

stream: MStream. Handle] returns [fileLength: MFile. ByteCount]; 

The GetLength procedure returns the current length of an MStream. The result is the 
current length of the file in bytes; it does not change the position of the stream. This 
procedure may raise MStream. Error[invalidHandle]. 

MStream. GetReleaseOata: procedure [ 

stream: MStream. Handle] returns [release: MStream. ReleaseData]; 

The GetReleaseOata procedure returns the ReleaseData associated with a stream. This 
procedure may raise MStream. Error[invalidHandle]. 

MStream.lsIt: PROCEDURE [stream: stream. Handle] returns [boolean]; 

The procedure Isit returns true if stream is a stream created by MStream that can be used 
in operations that require an MStream stream. 

MStream. Log: PROCEDURE [name: long string, release: MStream. ReleaseData] returns 
[MS tream. Handle]; 

The Log procedure acquires the file name with log access and then creates the stream. 
This procedure may raise MStream. Error[..., invalidOperation, fileTooLong, 
fileNotAvailable, ...]. (See also BackupLog and SetLogReadLength.) 

MStream.ReadOnly: PROCEDURE [name: long string, release: MStream.ReleaseData] returns 
[MS tream.Handle]; 

The Readonly procedure acquires the file name with readonly access and then creates the 
stream. This procedure may raise MStream. Error[..., invalidOperation, fileTooLong, 
fileNotAvailable,...]. 
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MStream.ReadWrite: procedure [ 

name: long string, release: is/istream.ReleaseData, type: MFiie.Iype e- unknown] 

RETURNS [MStream. Handle]; 

The ReadWrite procedure acquires the file name with readWrite access and then creates 
the stream. This procedure may raise MStream. Error[..., invalidOperation, fileTooLong, 
fileNotAvailable,...]. 

MStream. SetLength: procedure [ 

stream: MStream. Handle,fileLength: MFiie.ByteCount]; 

The SetLength procedure changes the length of a file (access permitting). This operation 
sets the current position only if the file is made shorter than the old position. In that event, 
the current position is set to be the new end of the file. (See also BackupLog. )This 
procedure may raise MStream. Error[..., invalidHandle, indexOutOfRange, 
invalidOperation, fileTooLong,...]. 

MStream. SetLogReadLength: procedure [ 

stream: MStream. Handle, position: MFiie.ByteCount]; 

The SetLogReadLength procedure makes parts of a file of type log available for reading. 
Position is the last position in the file that other clients may read. Owners of log files are 
encouraged to call this procedure in their PleaseReleaseProcs because it enables other 
clients to read the log file. BackupLog may not back the file up past the point made 
available for reading by SetLogReadLength. (See also BackupLog.) This procedure may 
raise MStream.Errorf..., invalidHandle, indexOutOfRange, invalidOperation,...]. 

MStream. SetReleaseData: procedure [ 

stream: MStream. Handle, release: MStream. ReleaseData]; 

The SetReleaseData procedure changes the ReleaseData associated with a stream. This 
procedure may raise MStream. Error[invalidHandle]. 

MStream. ShareBlock: procedure [ 

stream: MStream. Handle, start: MFiie.ByteCount, length: cardinal] 
returns [block: Environment.Block]; 

The ShareBlock procedure permits a client to use the mapped buffers of a file directly. To 
minimize mapping operations, the entire requested block may not be returned. However, 
at least one byte will be in the block returned if start is less than the current length of the 
file. Subsequent calls with updated values for start can be used to get at all the desired 
addresses of the file. The current position is set to one past the position of the last 
character in the block returned. The block that is returned is valid only until the next 
stream operation is executed on this stream. This procedure may raise MStream.Error[.,., 
invalidHandle, indexOutOfRange,...]. 

MStream.WriteOnly: procedure [name: long string, release: MStream.ReleaseData, type: 
MFHe.Iype] returns [MStream. Handle]; 

The WriteOnly procedure acquires the file name with writeOnly access and then creates 
the stream. This procedure may raise MStream. Error[..., invalidOperation, fileTooLong, 
fileNotAvailable,...]. 
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51.5 Stream-specific operations 

delete: stream. DeleteProcedure; 

When this procedure is invoked and the stream has writeOnly access, the file may be 
shortened according to the following algorithm; 

IF access = writeOnly and stream,GetPosition[s] # 0 then 
MStream.SetLength[s, Stream.GetPosition[s]]; 

get: stream. GetProcedure; 

This procedure may raise Stream.EndOfStream if the stream is positioned at the end of the 
file and the options specify signalEndOfStream. It may raise Stream.ShortBlock if the 
stream is positioned at the end of the file and the options specify signalShortBlock. This 
procedure raises MStrcam.ErrorfinvalidOperation] if the stream was created with 
writeOnly access. 

getByte: stream.GetByteProcedure; 

getWord: stream. GetWordProcedure. 

These procedures may raise Stream.EndOfStream if the stream is positioned at the end of 
the file. They raise MStream.Error[invalidOperation] if the stream was created with 
writeOnly access. 

put: stream.PutProcedure; 

putByte: stream.PutByteProcedure; 

putWord: stream.PutWordProcedure; 

These procedures raise MStream.ErrorfinvalidOperation] if the stream was created with 
readonly access. They may raise MFil€.Error[noRoomOnVolume] if the file needs to be 
grown and there is no room on the logical volume. 

setPosition: stream.SetPositionProcedure; 

This procedure may raise MStream.Error[indexOutOfRange] if the stream was created with 
readonly access and the new position is past the end of the file, or for any stream if the 
new position is greater than 33,553,920 (65, 535 pages). 

setSST: stream.SetSSTProcedure; 

sendAttention: stream.SendAttentionProcedure; 

waitAttention: stream.WaitAttentionProcedure; 

These procedures have no effect. 
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The MVolume interface exports an error raised by the Supervisor (see the Supervisor 
chapter of the Pilot Programmer iy Manual), 


52,1 Types 


None. 

52.2 Constants and data objects 

None. 

52.3 Signals and errors 

MVoiume.CIoseAborted: error; 

Closing a volume (volume. Close, as defined in the Pilot Programmer's Manual) under XDE 
raises the supervisor event EventTypes.aboutToCloseVolume, which can be vetoed. If a 
client vetos this event, the error MVoiume.CIoseAborted is raised by the implementation of 

Volume.Close. 

52.4 Procedures 


None. 
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Sorting and searching 


The sorting and searching interfaces, BTree, GSort, and StringLookUp, are largely self- 
explanatory and are of interest to most programmers. 


The BTree package was used in implementing the XDE file and directory system. 
Programmers designing file management tools may want to study it. 


VI.l Interface abstracts 

BTree implements a B-tree whose keys are long strings and values are arrays of 
CARDiNAL.(see D. Knuth, "'Sorting and Searching,'' in The Art of Computer Programming, 
vol 3, 473-79) 


GSort provides a general package for sorting arbitrarily large amounts of data. 


StringLookUp provides a facility for looking up an identifier in a list of names. It is 
particularly useful to programs that process User.cm sections and that permit users to 
abbreviate commands. 
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BTree 


The BTree package implements a searching algorithm based on multiway tree branching 
called B-trees (see D. Knuth, ''Sorting and Searching,” in The Art of Computer 
Programming, vol. 3, 473-79). The keys are LONG strings and the values associated with 
them are LONG DESCRIPTORS FOR ARRAY OF CARDINAL. The directories in the file system are 
implemented using BTree. 


53.1 Types 

BTree.Tree: TYPE * long pointer to BTree.TreeObject; 

BTree.TreeObject: type; 

BTree.Value: TYPE = longdescriptorforarrayofcardinal; 

BTree.ValueSize: TYPE = [1..32); 

A value is an uninterpreted array of words. Its size, specified in words and fixed for any 
given B-tree, must be in the range ValueSize. 

53.2 Constants and data objects 

BTree.defauItValueSize: BTree.ValueSize » 6; 

BTree.maxNameLength: CARDINAL a 100; 

A name is a string with a maximum length of 100 characters. 

53.3 Signals and errors 

BTree.ValueTooSmall: error [tree: BTree.Tree]; 

If the BTree implementation needs to copy values to or from the B-tree and there is 
insufficient room in the destination, ValueTooSma]! is raised. (See the individual 
procedures for more details.) 
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53.4 Procedures 

BTree.Delete: procedure [tree: BTree.Iree]; 

Delete deletes a B-tree as well as the data space associated with it, causing the B-tree to be 
saved in its associated file. 

BTree.Empty: PROCEDURE [tree; BTree.Iree] returns [boolean]; 

Empty returns false if there are any entries in the B-tree, and TRUE otherwise. 

BTree.Find: PROCEDURE [tree: BTree.Iree, name: long string, value: BTree.Value] 
returns [ok: boolean]; 

Find locates the B-tree entry corresponding to name and returns the associated value in 
value. If the entry does not exist, ok is returned FALSE. If value is too small to hold the 
associated value, BTree. ValuelooSmall is raised after the leftmost words of the value have 
been transferred into value. 

BTree. Getinfo: PROCEDURE [ 

tree: BTree.Iree] returns [valueSize: BTree.ValueSize, file: MFiie.Handle]; 

Getinfo returns the size of the values stored in a B-tree and the file associated with it. If 
there is no file associated with the B-tree, file is returned nil. 

BTree.GetNext: PROCEDURE [ 

tree: BTree.Iree, name: long string, nextName: long string, value: BTree.Value, 
mask: long string nil]; 

GetNext is a stateless enumerator of a B-tree. The string nextName is set to the name 
following name in alphabetical order in the B-tree. The value associated with nextName 
is returned in value. If the length of the string name is zero, nextName is set to the the 
first entry in the B-tree and the corresponding value is returned. If name is the last entry 
in the B-tree, the length of nextName is set to zero. If name is not in the B-tree, nextName 
is set to the name in the B-tree that would logically follow name. An optional mask may be 
specified with this procedure. This mask uses the standard syntax in which a # matches 
any one character and a * matches any string of characters, including the empty string. If 
mask is specified, nextName is set to the first name following name that matches mask, 
and the corresponding value is returned. If value is too small to hold the associated value, 
BTree.ValuelooSmall is raised after the leftmost words of the value have been transferred 
into value. 

BTree.lnsert: procedure [tree: BTree.Iree, name: long string, value: BTree.Value] returns 
[ ok, noRoom: boolean]; 

Insert inserts the <name, value > pair into a B-tree. If the name is successfully inserted 
into the B-tree, ok is returned true and noRoom is returned false. If an entry with that 
name already exists in the B-tree, both ok and noRoom are returned FALSE. If the B-tree is 
too full to add the new entry, ok is returned FALSE and noRoom is returned true. If value is 
larger than the value size associated with this B-tree, BTree.ValuelooSmall is raised after 
the leftmost words of the value have been inserted into the B-tree. 
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BTree.Make: PROCEDURE [ 

file: MFiie.Handle valueSize: BTree.ValueSize <-BTree.defaultValueSize . 

reset: boolean false] returns [tree: BTree.Treej; 

Make creates a B-tree. 'Fhe file passed to Make is the file in which a B-tree is located. If 
either the file is newly created (that is, if the first word of the file is a zero) or if reset is 
true, this file is initialized to an empty B-tree that contains values of size valueSize; 
otherwise, the file is assumed to be a previously created B-tree (and valueSize is ignored). 
The file is enlarged as the B-tree grows, up to 256 pages. The initial file size may be zero. 

If the default value for the file is used, a data space of 256 pages is used to store a new B- 
tree. If the client wishes to create a temporary B-tree but does not wish to have the 
overhead of a 256-page space, the client should pass in to Make a Pilot temporary file 
created with MFiie. AcquireTemp. 

BTree.Remove: procedure procedure [ 

tree: BTree.Iree, name: long string, value: BTree.Value] returns [ok: boolean]; 

Remove removes the entry name from a B-tree. If the entry was successfully removed, ok 
is returned true and the associated value is returned in value. If the entry was not found in 
the B-tree, ok is returned false. If value is smaller than the value size associated with this 
B-tree, BTree.ValueTooSmall is raised after the leftmost words of the value have been 
transferred into value. 

BTree. SwapValue: procedure [ 

tree: BTree.tree, name: long string, oldValue, newValue: BTree.Value] 
returns [ok: boolean]; 

The SwapValue procedure replaces the value associated with name with newValue. If the 
entry was found, ok is returned true and the previous value is returned in oldValue. If the 
entry was not found in the B-tree, ok is returned false. If newValue is larger than the 
value size associated with this B-tree, the inserted value will be truncated on the right. If 
oldValue is smaller than the value size associated with this B-tree, only the leftmost 
words of the previous value have been transferred into oldValue. If either or both of these 
conditions occur, BTree.ValueTooSmall is raised. 
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GSort 


The GSort interface provides a handy package for sorting arbitrarily large amounts of 
data. The client program tells the sort package the maximum and expected size of records 
and provides procedures that the sort package can call for reading, writing, and comparing 
records. If all of the records can fit in memory, the sort algorithm is an n log n in-core 
sort-if not, up to three scratch files are created and a polyphase merge sort is used (see D. 
Knuth, ''Sorting and Searching,” in The Art of Computer Programming, vol. 3, 473-79). 
This interface is not exported from Tajo; it is implemented by file 
Basics>GSor tlmpl. bed on the release directory. 

54.1 Types 

GSort.CompareProcType: type = procedure ( 

p1 : LONG pointer, p2 . LONG POINTER] RETURNS [INTEGER]; 

One of the parameters passed to the sort package is a procedure that can be called with 
pointers to two records to compare them. The client program is expected to know how to 
compare them and to return an integer value in the following range. 

Condition value returned 

Record at pi > Record at p2 >0 

Record at pi < Record at p2 <0 

Record at pi = Record at p2 0 

GSort.GetProcType: type = procedure [p: long pointer] returns [cardinal]; 

Another of the parameters passed to the sort package is a procedure that will be called to 
get the input records. The procedure is called with a pointer to a buffer area. It is the 
responsibility of the client program to place the input record into the buffer and then 
return to the sort package the actual size (in words) of the record read. The maximum 
allowable size of input record (and hence the size of the buffer) is specified by the client 
program when it calls the procedure GSort.Sort. If the get procedure returns a length larger 
than the maximum, the signal GSort.RecordTooLong is raised. (Of course, the client 


54 1 




54 


GSort 


program has already smashed the sort package*s heap by writing outside the buffer, so you 
should not write programs that routinely expect this signal.) 

GSort.PutProcType: type = procedure (p: longpojnter, len: cardinal]; 

Another of the parameters passed to the sort package is a procedure that can be called 
with the records in sorted order. This procedure is passed a pointer to the record and the 
length that was returned by the get procedure when the record was first introduced to the 
sort process. lt*s not clear how useful the len parameter is, because the client program 
probably needs to know the length of records from the pointer to compare them properly. 

GSort.Port: TYPE = MACHINE DEPENDENT RECORD [in. Out: UNSPECIFIED]; 

The current version of Mesa does not have a suitable lightweight co-routine mechanism. 
The Mesa instruction set, on the other hand, allows co-routine operation of the sort 
package. This type is used with appropriate loopholes for setting up the co-routine 
linkage. While the sort package does not require them, co-routines may simplify some 
programs that use GSort. 

GSort.SortItemPort: type = port [len: cardinal] returns [p: long pointer]; 

When the sort package is being run as a co-routine, the SortltemPort is called with the 
length of the current input record and returns a pointer to the buffer in which to build the 
next input record. To get started, the SortltemPort is LOOPHOLEd into a GSort.Port and its 
out field is set to GSort.Sort. 

GSoft.SortStarter: type = port ( 

nextitem : pointer to GSort.SortItemPort, 
put: GSort.PutProcType, 
compare: GSort.CompareProcType, 

expectedItemSize: cardinal 30, maxItemSize; cardinal ^1000, 
pagesInHeap: cardinal 100] returns [p: long pointer]; 

When the sort package is being run as a co-routine with the producer of input records, the 
SortltemPort is LOOPHOLEd into a SortStarter to get the sort package started (the out field 
of the port must be initialized first). The nextitem parameter is a pointer to the same port 
being LOOPHOLEd. This call returns with a pointer to a buffer where the client procedure is 
to place the first input record. (The meaning of the other parameters is the same as for 
GSort.Sort.) 

GSort.SortStOpper: TYPE = PORT (len: cardinal<- o]; 

When the sort package is being run as a co-routine, the SortltemPort is LOOPHOLEd into a 
GSort.SortStopper and called to tell the sort package that there are no more input records. 
After this call, the put procedure is called with the sorted output records. 
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54.2 Constants and data objects 

None, 


54.3 Signals and errors 

GSort.RecordTooLong: error; 

This signal is raised when the get procedure returns a length that is greater than the size 
of the buffer. With any luck, the client only clobbered the sort package’s heap. 


54.4 Procedures 

GSort.Sort: PROCEDURE [ 

get: GSort.GetProcType, put: GSort.PutProcType, 
compare: GSort.CompareProcType, 

expectedItemSize: cardinal 4- 30, maxItemSize: cardinal 1000, pagesInHeap: 
CARDINAL ^ 100]; 

The Sort procedure is called to start up the sort package. The client passes in procedures 
that are called to obtain input records (get), to compare two records (compare), and to 
receive the sorted records (put). The sort package knows nothing about the contents of the 
records; it only knows that they will all be not greater than maxItemSize in length (they 
need not be of equal length). The amount of memory used for buffers and the tournament 
area is specified by pagesInHeap. The package uses the expectedItemSize hint to decide 
how to partition its use of memory. 

In operation, the get procedure is called for each input record. These records are 
maintained in a sorted heap by calling compare. If the heap fills up before get returns a 
length of zero, runs of sorted records are written on temporary disk files. When there are 
no more input records, get returns a length of zero; put is then called with the sorted 
records, which are obtained either from the heap or by merging the scratch files into a 
single run. The maximum number of scratch files is three; they are deleted when the 
procedure GSort.Sort returns. 

The re-entrant procedure GSort.Sort is also suitably protected by unwind catch phrases so 
that it cleans up (destroys its heap, deletes its scratch files, etc.) if it terminates 
abnormally. For example, the put procedure could raise a signal that is caught by the call 
on Sort, which does a continue. 

54.5 Examples 

The program fragment below shows how to use GSort to sort a text file alphabetically by 
lines. 

SortLines: procedure [in, out: stream.Handie] = 

BEGIN 

maxLineLength: CARDINAL » 1000; 

maxRecordSize: cardinal * string.WordsForString[maxLineLength]; 

GetLine: GSort.GetProcType = 
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BEGIN 

S: LONG STRING = p; 

s I «- [length; 0, maxlength: maxLineLength, text:]; 

DO 

c: CHARACTER = Stream.GetChar[in ! stream.EndOfStream = > exit]; 
string. AppendCharfs, c]; 

IFC = Ascii.CR THEN EXIT; 

ENDLOOP; 

IF s.length = 0 then return [0] 

ELSE RETURN [String.WordsForString[s.length]]; 
end; 

PutLine; GSort.PutProcType = 

BEGIN 

s: LONG STRING = p; 
block; Environment.Block = [ 

blockPointer; LOOPHOLE[@s.text], 
startindex: 0, 

stopIndexPlusOne; s.length]; 
stream.PutBlock[out, block]; 
end; 

CompareLines; GSort.CompareProcType = { 

RETURN [string.CompareStrings[p1, p2]]}; 

GSort.SOrt ( 

get: GetLine, put: PutLine, compare: CompareLines, 
expectedItemSize: string.WordsForStringiBO], 
maxItemSize: maxRecordSize]; 
end; - SortLines 

It is sometimes inconvenient to write a procedure that can be called for the next input (a 
GSort-GetProcType), such as when the data to be sorted might be obtained by enumerating 
some complicated tree structure. Such enumerators are easy to write in a recursive 
descent manner in which the enumerator calls the sort package whenever it finds a record. 
The interface GSort contains type declarations that allow reasonably simple co-routine 
execution of the sort package. Below, the same SortLines procedure is written running the 
sort package as a co routine: 

SortLines: procedure [in, out: stream.Handle] s 
BEGIN 

maxLineLength: cardinal a 1000; 

maxRecordSize: cardinal a string.WordsForString[maxLineLength]; 
buffer: long string; 

OutToSort: GSort-SortltemPort; 

PutLine: GSort.PutProcType a 
BEGIN 

s; LONG STRING a p; 
block: Environment.Block a [ 

blockPointer: LOOPHOLE[@s.text], 
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startindex; 0, 

stopIndexPlusOne: s.length]; 

Stream.PutBlockfout, block]; 
end; 

CompareLines: GSort.CompareProcType = { 

RETURN [string.CompareStrings[p1, p2]]}; 

- initialization of the port for co routine linkage 
LOOPHOLE[OutToSort, GSort.Port].out <- GSort.Sort; 

- get the sort package started. Its first call of "get" looks like a return of this call 
buffer *- LOOPHOLE [OutToSort, GSort.SortStarter] [ 

nextitem: @OutToSort, 
put: PutLine, compare: CompareLines, 
expectedttemSize: string.WordsForString[80], 
maxItemSize: maxRecordSize]; 

DO 

buffer "f <- [length: 0, maxlength: maxLineLength, text:]; 

DO 

c: CHARACTER = stream.GetChar[in ! stream.EndOfStream = > exit]; 
string.AppendChar[buffer, c]; 

IF C = Ascii.CR THEN EXIT; 

ENDLOOP; 

iFbuffer.length = 0 then exit; 

- the sort package thinks this call is a return from "get." We think its next call 

- of "get" is the return of this call 

buffer«- OutToSort[string.WordsForString[buffer.length]]; 

ENDLOOP; 

- the sort package thinks this call is a return ofO from "get." This call returns when 

- the sort package returns from the "Sort " procedure 
LOOPHOLE[OutToSort, GSort.SortStopper] [ ]; 

end; - SortLines 
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The StringLookUp interface provides a facility for looking up an identifier in a list of 
names. It is particularly useful for programs that process User. cm sections or that permit 
users to abbreviate commands. 


55.1 Types 


stringLookUp.GeneratorProcType. TYPE = procedure [buffer: long string]; 

A GeneratorProcType provides a way to get the elements of a list of names, one by one. 
The implementor of a GeneratorProcType can assume that buffer is not nil and that it is 
long enough to hold any of the names it generates. Each time the generator is called, 
buffer contains the previous name generated; the generator should replace the contents of 
buffer with the next name in its list. On the initial call, buffer.length is zero. When the 
generator’s list is exhausted, it should set buffer.length to zero. The string buffer is owned 
by the caller of the generator and should not be deallocated by the generator. 

StringLookUp.TablerTYPE = ARRAY OF LONG STRING; 

A Table provides a list of names. 

StringLookUp.TableDesC: TYPE = LONG DESCRIPTOR FOR StringLookUp.Table; 

55.2 Constants and data objects 

StringLookUp.ambiguOUS: CARDINAL s StringLookUp.emptyKey -1; 

ambiguous is the index indicating that the look-up key matched more than one of the 
names in the list. 

StringLookUp.emptyKey: CARDINAL = StringLookUp.noMatch - 1; 

emptyKey is the index indicating that the look-up key was nil or had zero length. 

StringLookUp.noMatch: CARDINAL a ... ; 
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noMatch Is the index indicating that the look-up key did not match any of the names. 


55.3 Signals and errors 

None. 

55.4 Procedures 

stringLookup.lnitial: PROCEDURE [key, entry: long string, caseFold: boolean true] 

RETURNS [matchLength: cardinal]; 

The Initial procedure compares two strings and returns the length of their common prefix. 
If casefold is true, the case-shift of characters is ignored; that is, lower-case and upper¬ 
case instances of the same character are considered to be equivalent. If casefold is false, 
they are considered to be different. 

StringLookUp. Initialinternal: procedure [ 

key, entry; long string. maxLength: cardinal, caseFold: boolean f-TRUE] 

RETURNS [matchLength: cardinal]; 

This procedure is the internal procedure used to implement Initial. It is provided as an 
accelerator in case the client can meet the requirements on the input: the caller must 
guarantee that neither key nor entry is nil and that neither string is longer than 
maxLength. If these conditions are not met, the result is undefined and an address fault 
may occur. Initialinternal compares two strings and returns the length of their common 
prefix. If casefold is true, the case-shift of characters is ignored; that is, lower-case and 
upper-case instances of the same character are considered to be equivalent. If casefoid is 
FALSE, they are considered to be different. 

StringLookUp.inlable: PROCEDURE [ 

key: long string, table: stringLookup.TableDesc, caseFold: boolean true, 
noAbbreviation: boolean false] 
returns [index: cardinal]; 

The InTable procedure returns the index of the matching table entry if key matches 
exactly one of the entries in table. Otherwise, it returns ambiguous, emptyKey, or 
noMatch, as appropriate. If casefold is true, the case-shift of characters is ignored; that is, 
lower-case and upper case instances of the same character are considered to be equivalent. 
If casefold is false, they are considered to be different. If noAbbreviation is true, the 
comparison must yield an exact match. If noAbbreviation is false, key may be a prefix of 
the table entry and still match it. If noAbbreviation is false and key is both the prefix of 
one table entry and the exact match of another, the index of the exact match is returned 
rather than ambiguous. 

StringLookUpJsPrefix: PROCEDURE [ 

maybePrefix, string: long string, caseFold: boolean ^true] 

RETURNS [yes: boolean]; 

The IsPrefix procedure indicates whether maybePrefix is a prefix of string. If casefold is 
TRUE, the case-shift of characters is ignored; that is, lower-case and upper-case 
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instances of the same character are considered to be equivalent. If casefold is false, they 
are considered to be different. Kither maybePrefix or string may be nil. 

stringLookUp.UsingGenerator: procedure [ 

key: long string, generator: GeneratorProcType, caseFold: boolean true, 
noAbbreviation: boolean false, bufferBytes: cardinal <- 500] 

RETURNS (index: cardinal]; 

The UsingGenerator procedure returns the index of the matching entry if key matches 
exactly one of the entries in the list generated by generator. Otherwise, it returns 
ambiguous, emptyKey, or noMatch, as appropriate. If casefold is true, the case-shift of 
characters is ignored; that is, lower-case and upper-case instances of the same character 
are considered to be equivalent. If casefold is FALSE, they are considered to be different. If 
noAbbreviation is true, the comparison must yield an exact match. If noAbbreviation is 
FALSE, key may be a prefix of the table entry and still match it. If noAbbreviation is false 
and key is both the prefix of one table entry and the exact match of another, the index of 
the exact match is returned rather than ambiguous. bufferBytes indicates the maxiumum 
number of characters in any name that will be generated by generator. If generator 
generates a name longer than bufferBytes characters, the results are unspecified and are 
dependent on the implementation of the client-provided procedure generator. 

stringLookup.UsingGeneratorWithBuffer: procedure [ 

key: long string, generator: GeneratorProcType, caseFold: boolean ^true, 
noAbbreviation: boolean false, buffer: long string] 

RETURNS [index: cardinal]; 

The UsingGeneratorWithBuffer procedure returns the index of the matching entry if key 
matches exactly one of the entries in the list generated by generator. Otherwise, it 
returns ambiguous, emptyKey, or noMatch, as appropriate. If casefold is true, the case- 
shift of characters is ignored; that is, lower-case and upper-case instances of the same 
character are considered to be equivalent. If casefold is false, they are considered to be 
different. If noAbbreviation is true, the comparison must yield an exact match. If 
noAbbreviation is false, key may be a prefix of the table entry and still match it. If 
noAbbreviation is false and key is both the prefix of one table entry and the exact match 
of another, the index of the exact match is returned rather than ambiguous, buffer is the 
client-provided storage to be passed to generator for buffering the name. If buffer is nil or 
generator generates a name longer than buffer.length characters, the results are 
unspecified and are dependent on the implementation of the client-provided procedure 
generator. 

55.5 Examples 

The following example demonstrates how the StringLookUp facilities can be used to look 
up a (possibly abbreviated) command in a command table: 

MyCommands: type * machine depenoent{ 

alpha(O), beta, gamma, noMatch{StringLookUp.noMatch)}; 
commandTable: array MyOptions of long string ^ [ 

alpha: ”Alpha"L, beta: "Beta"L, gamma: "Gamma”L]; 
commands: stnngLookup.TableDesc = LOOPHOLE[oESCRiPTOR[commandTable]]; 
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GetCommand: procedure [command: long string] returns [index: MyOptions] = 

BEGIN 

index f-stnngLookUp.lnTable[key: command, table: commands]; 

IF index = stnngiookup.ambiguous OR index * stringiookup.emptyKey then 
index ^ stringLookUp.noMatch; 
end; 


For a use of the StringLookUp facilities for parsing User .cm entries, see the example at 
the end of the CmFile chapter. 




VII 


Program analysis 


There is currently one interface to aid in program analysis: DebugllsefulDefs. It is a 
public interface that provides access to debugger information. Tools such as the 
Performance Tools use DebugUsefulDefs to get information about such things as stack 
allocation. A programmer designing a system-monitoring tool may want to use this 
interface. 


VILl Interface abstract 

DebugUsefulDefs provides access to some of CoPilot’s basic debugging utilities and data 
structures. It also allows a client to display variables itself instead of using the debugger’s 
default display routines. This interface is exported only by CoPilot. 


VIM 
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DebugUsefulDefs 


The DebugUsefulDefs interface provides access to some of CoPilot’s basic debugging 
utilities and data structures. Many of these facilities act on data structures in the Mesa 
processor. They are provided in this interface for special debugging tools (such as the 
performance tools and DebugHeap); contact your local support group to discuss any 
application involving these procedures. 

In addition, it is the interface to a facility known as Printers. By writing and registering a 
Printer, clients can take over the debugger’s display of variables of client-defined types 
instead of using the default display routines. The client can thus deal with situations that 
CoPilot cannot, such as interpreting overlaid variant records. It also allows the client to 
supress printing of irrelevant record fields. 

The client’s state can change considerably between invocations of the debugger. Tools that 
live inside the debugger should be careful about cacheing information between calls to its 
operations; there may be several days between calls, and the debugee need not even be in 
the same boot file. The most direct course is to validate the debugee’s state on each 
operation; for example, call DebugUsefulDefs.Frame each time rather than save the global 
frame address. 


56.1 Types 

DebugUsefulDefs.BitS: TYPE s [O..Environment.bitsPerWord); 

This type is used for describing the bit offset in a word for a client variable. 

Debugusef uiDefs-FrameList; TYPE s LONG POINTER TO FrameSeq; 

DebugUsefulOefs.FrameSeq:TYPE = RECORD! 

SEQUENCE count: NATURAL OF OebugUsefulOefs.GFHandle]; 

DebugUsefulDefs.GFHandle: TYPE = PrincOps.GlobalFrameHandle; 

DebugUsefulDefs.Handle: TYPE s LONG POINTER TO Object; 
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A Handle is a pointer to an object that describes a variable in the client’s core image. 
Variables have the following interesting properties: type, address, size, and bit offset. 
There are procedures in this interface that return a Handle. 

DebugUsefulOefs.Object: TYPE; 

The storage for Objects and any values copied into them by ReadValue is owned by the 
debugger; it is freed between commands. The BOOLEAN returned is whether or not the 
Printer actually displayed the variable; if it is false, CoPilot displays it. A Printer may be 
called as either the result of invoking the interpreter or the Display Stack command. 

OebugUsefulDefs.Printer: TYPE PROCEDURE [DebugUsefulDefs.Handle] RETURNS [BOOLEAN]; 

56.2 Constants and data objects 

DebugUsefulDefs.fi leSW: READONLY Window.Handle; 

This is the file subwindow containing Debug.log; it is set to nil when CoPilot is 
deactivated. 

DebugUsefulDefs.windOW: READONLY Window.Handle; 

This is the tool window for CoPilot. 

56.3 Signals and errors 

DebugUsefuiDefs.invalidAddress: ERROR [address: long pointer]; 

This is raised if a reference to the debugger client’s memory is made using one of the read 
or WRITE procedures that would have caused an address fault in the client program. 

DebugUsefuiDefs.lnvalidFrame: error [f: pointer]; 

This error may be raised by any procedure that takes either a GlobalFrameHandle or 
LocalFrameHandle. 

DebugUsefuiDefs-invalidNumber: error [p: long pointer]; 

This error may be raised by the interpreter when it has an expression it cannot convert to 
a number. The parameter is used internally by CoPilot. 

DebugUsefulOefs-MultipleFrameS; ERROR [list: DebugUsefulDefs.FrameList]; 

This error is raised only by Frame if there is more than one instance of a module; the 
argument is a sequence of GlobalFrameHandles. The procedure ConfigForFrame may be 
used to determine which configurations the frames are in. 

DebugUsefulDefs.NotFound: ERROR [S: LONG STRING],' 

This is raised whenever the debugger fails in an attempt to look up an identifier; the 
argument is the identifier. 
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DebugUsefuIDef s.UserAborted : SIGNAL; 

This is treated the same way as the predefined error, aborted; it may be raised by any 
procedure if you strike the ABORT key. 

DebugUsefutDefs.WriteProtected: ERROR [page: cardinal]; 

This is raised if a write to the debugger’s client memory is made that would have caused a 
write-protect fault in the client program. 


56.4 Procedures 

DebugUsefulDefs.AddPrinter: procedure [ 

type: long string, proc: DebugUsefuiDefs.Printer]; 

This procedure allows you to take over display of all variables of a known type; proc is 
called whenever a variable of type type is about to be displayed. CoPilot’s interpreter 
evaluates type at the beginning of each session and remembers the target type of the 
result. Unfortunately, type is not a simple type expression, but rather a statement 
evaluated by the interpreter; the type is extracted from the result. Any additional information, 
such as the address of a variable used when evaluating the statement, is ignored. 

A good technique for debugging the string used in the call to AddPrinter is to actually try 
it out using the interpreter. For example, all reals could be intercepted by supplying the 
following STRING to AddPrinter: 0%(real) 

DebugUsefulOefs.ConfigForFrame: PROCEDURE [ 

gf; DebugUsefuioefs.GFHandle.config; long string]; 

This procedure fills in the name of the configuration containing the GlobalFrameHandle 
passed in; it is useful for finding a particular instance of a module that has multiple copies. 
It may raise the error InvalidFrame. 

DebugUsefulDefs-Copied: PROCEDURE [DebugUsefulDefs.GFHandle] RETURNS [BOOLEAN]; 

This procedure returns true if the frame corresponding to the GFHandle was copied and 
FALSE otherwise. 

DebugUsefulDefs.Enumerate: PROCEDURE! 

proc: PROCEDURE [OebugU$efulDefs.GFHandle] RETURNS [BOOLEAN]] RETURNS [ 
gf: DebugUsefulDefs.GFHandle]; 

This procedure enumerates all GFHandies. The client procedure (proc) can halt the 
enumeration by returning TRUE. Enumerate returns the GFHandle that the client stopped 
the enumeration on. If the client doesn’t stop the enumeration before all GFHandies are 
enumerated, Enumerate returns nil.. 
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DebugUsefulDefs.Frame: PROCEDURE [ 

name: long string] returns [oebugusefuioefs.GFHandie]; 

This procedure looks up the GFHandle that corresponds to name; it is extremely useful for 
printers that need things like a BASE POINTER to display complicated data structures. The 
following code reads a long base pointer out of CoPilot’s client, SomeProg: 

DIRECTORY 

SomeProg using tbasePtr], 

MyPrinterimpI: PROGRAM... shares SomeProg b 
BEGIN 

GetBase: PROCEDURE RETURNS [myBase: LONG pointer] b { 
frame: pointer to FRAME[SomeProg] <- 

LOOPHOLE[DebugUsefuiDefs.Frame["SomeProg"L]]; 

DebugUsefuleDefs.ShortCopyRead] 

from: @frame.basePtr, nwords: size[long base pointer], 
to: @myBase]}; 


END. 

Frame may raise the errors MultipleFrames and NotFound. 

DebugUsefulDefs.GetAddress: PROCEDURE [DebugUsefulDefs.Handle] 

RETURNS [base: LONG POINTER, Offset: DebugUsefulDefs.BitS, there: BOOLEAN]; 

This procedure returns the address of a variable, base is its location in memory and offset 
may be non-zero if the variable is less than a word long (e.g., inside a record). If there is 
TRUE, the base is a pointer in the debugee’s core image. The client can ensure that there 
will be FALSE by first calling DebugUsefulDefs.ReadValue, but should only do so if the variable 
is reasonably small. 

DebugUsefulDefs.GetSize: PROCEDURE [DebugUsefulDefs.Handle] 

RETURNS [words: CARDINAL, blts: DebugUsefulDefs.BitS]; 

This procedure returns the size of a variable; bits may be non-zero only if words is zero. 

DebugUsefuiDefs.Interpreter: procedure [ 

exp: LONG STRING. resultS: PROC [DebugUsefulDefs.Handle]]; 

This procedure invokes CoPilot’s interpreter on a given string. Any resulting variable is 
described by a Handle passed to the results procedure. It may raise any of the errors 
defined in this interface. 

DebugUsefulDefs.Lengthen: PROCEDURE [POINTER] RETURNS [LONG pointer]; 

This procedure lengthens a short (MDS-relative) pointer in the debuggee’s core image. 

DebugUsefulDefs.LongCopyREAD: PROCEDURE [ 

from: LONG POINTER, nwOrdS: CARDINAL. tO: LONG POINTER],' 
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This procedure copies a block of memory from the debuggee’s core image. It may raise the 
error InvalidAddress or UserAborted. 

DebugUsefulDefs.LongCopyWRITE: PROCEDURE [ 

from: LONG POINTER, nwOrdS: CARDINAL,tO: LONG POINTER]; 

This procedure writes a block of memory into the debuggee’s core image. It may raise the 
error InvalidAddress, WriteProtected, or UserAborted. 

OebugUsefulOefs.LongREAD: PROCEDURE [lOC: LONG POINTER] RETURNS Ival: UNSPECIFIED]; 

This procedure returns one word from the debuggee’s core image. It may raise the error 

InvalidAddress or UserAborted. 

OebugUsefulOefs.LongWRITE: PROCEDURE [loc: LONG POINTER, val: UNSPECIFIED]; 

This procedure writes one word into the debuggee’s core image. It may reiise the error 
InvalidAddress, WriteProtected, or UserAborted. 

DebugUsefulOefs.Name: PROCEDURE [ 

name: long string, gf: oebugUsefuioefs.GFHandle]; 

This procedure appends name with the module name whose GlobalFrameHandle is gf. It 
may raise the error InvalidFrame or the signal string.StringBoundsFault. 

DebugUsefulD«fs.Original: PROCEDURE [ 

new: DebugUsefulDefs.GFHandle] RETURNS [old: oebugUsefuioefs.GFHandle]; 

This procedure returns a handle for the original (uncopied) frame of which this frame is a 
copy. If this frame was not copied. Original returns the GFHandle it was passed. 

DebugUsefulDefs.ReadValue: PROCEDURE [OebugUsefulDefs-Handle]; 

This procedure copies a variable described by the Handle from the debuggee’s core image 
into GoPilot’s; it also fixes up the Object to reflect this copying. It should only be used on 
variables that are relatively small; large data structures should only be accessed with the 
LongREAD and LongCopyREAD procedures. CoPilot keeps these copies in its own heap; any variable 
up to about a page in size is safe to copy. The space is freed between commands. 

DebugUsefulDefs.ShortCopyREAO: PROCEDURE [ 

from: POINTER, nwOrdS: cardinal, tO: LONG pointer]; 

This procedure operates like LongCopyREAD except that it takes a short (MDS-relative) 
pointer as the source. CoPilot lengthens the pointer and then performs the operation. 

DebugUsefulDefs.ShortCopyWRITE: PROCEDURE [ 

from: LONG POINTER, nwOrdS: CARDINAL,tO: POINTER]; 

This procedure operates like LongCopyWRITE except that it takes a short (MDS-relative) 
pointer as the destination. CoPilot lengthens the pointer and then performs the operation. 

DebugUsefulDefs.ShortREAD: PROCEDURE [loC: POINTER] RETURNS [val: UNSPECIFIED]; 
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This procedure operates like Long READ except that it takes a short (MDS-relative) pointer 
as the source. CoPilot lengthens the pointer and then performs the operation. 

DebugUsefulDefs.ShortWRITE: PROCEDURE [loc; POINTER, val: UNSPECIFIED]; 

This procedure operates like LongWRITE except that it takes a short (MDS-relative) 
pointer as the destination. CoPilot lengthens the pointer and then performs the operation. 

DebugUsefulDefs.Started: procedure [GDebugUsefulDefs.FHandle] RETURNS [boolean]; 

This procedure returns true if the module corresponding to the GFHandle has been started 
and FALSE otherwise. 

DebugUsefuiDefs.StringExpToDecimal: PROCEDURE [exp: LONG string] 

RETURNS [INTEGER]; 

This procedure converts an expression to an INTEGER. Any expression may be passed in. 
CoPilot invokes its interpreter if necessary. It may raise the error InvalidNumber. 

Debugusefuioefs.StringExpToLDecimal: procedure [exp: long string] 

RETURNS [LONG INTEGER]; 

This procedure converts an expression to a LONG integer. It may raise the error 
InvalidNumber. 

oebugUsefulDefs.StringExpToLNum: procedure [ 

exp: LONG STRING, radix: cardinal] returns [long UNSPECIFIED]; 

This procedure converts an expression to a long number; it uses radix as the default radix 
if one is not explicitly contained in exp. It may raise the error InvalidNumber. 

Debugu$efulDefs.StringExpToNum: procedure [ 

exp; LONG STRING, radix: cardinal] returns [UNSPECIFIED]; 

This procedure converts an expression to a short number. It may raise the error 
InvalidNumber. 

DebugUsefulDef$,StringExpToLOctal : PROCEDURE [exp: long string] 

RETURNS [LONG CARDINAL]; 

This procedure converts an expression to a long cardinal. It may raise the error 
InvalidNumber. 

DebugUsefulDefs.StringExpToOctal; PROCEDURE [exp; LONG string] returns [CARDINAL]; 

This procedure converts an expression to a cardinal. It may raise the error InvalidNumber. 
DebugUsefulDefs.Text: Format. StringProc; 

This procedure displays text in CoPilot’s window (DebugUsefulDefs.fi leSW). It may raise the 
error UserAborted. 
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OebugUsefulDefs.Valid: PROCEDURE [OebugUsefulDefs.GFHandle] RETURNS [BOOLEAN]; 

This procedure returns true if the GFHandle describes a valid global frame and false 
otherwise. 

56.5 Sample Printer 

Once StackPrinter is loaded in CoPilot, PrintStack is called whenever the debugger wants 
to display a StackObject. Since PrintStack understands the format of StackObjects, it can 
show the complete contents of a stack, which CoPilot is unable to do because of the zero- 
length array. Note the type passed into AddPrinter: 

LOOPHOLE [200000B. StackFormatSStack] | 


The constant 200000B is simply a location that is always mapped; AddPrinter's evaluation of this type does not 
actually read or write that location. 

-• StackFormat.mesa - Last edit: Keith, October 21,198010:30 PM 
StackFormat: OEFiNtTiONS > { 

Stack: type b long pointer to StackObject; 

StackObject: type s record [ 
top: CARDINAL <- 0, 
max: CARDINAL <-0, 
overflowed: boolean <- false, 
stack: array [0..0) of cardinal]}. 

-- StackPrinter.mesa - Last Edited: 

-- Keith, October 21,198010:38 PM 
- Bruce, February 26,1982 4:05 PM 

DIRECTORY 

Ascii USING [CR, SP], 

OebugUsefulDefs using [AddPrinter, GetAddress, Handle, LongREAD, ReadValue, Text], 
Format using [Char, Octal, StringProc], 

StackFormat using [Stack]; 

StackPrinter: program imports OebugUsefulDefs, Format s 

BEGIN 

PrintRecord: PROC [here, there: stadcFormat-Stack] b { 
out: Format.StringProc s DebugUsefulDefs.Text; 

IpStack: long pointer to cardinal <- LOOPHOLE[@there.stack]; 

IF here.top s 0 then out["empty "L] 

ELSE 

FOR i: CARDINAL DECREASING IN [0..here.tOp) DO 

Forin3t.Octal[out, OebugUsefulDefs.LongREA0[lpStack + i]]; 

Forinat.Char[OUt, Ascii.SP]; 

ENDLOOP; 

IF here.overflowed then out["(overflow!) "L]; 
iFhere.max s here.top then out["(full!)"L]; 

Forniat.Char[out, Ascii.CR]}; 

PrintStack: PROC[h: DebugUsefuiDef5.Handle] returns[boolean] b { 
address: stackFormat.Stack s DebugUsefuiDefs.GetAddress[h].base; 


56-7 




DebugUsefuIDefs 


56 


DebugUsefulDefs.ReadValue[h]; 

PrintRecord[oebugusefuiDefs.GetAddress[h].base, address]; 
return[true]}; 

OebugusefuiDefs.AddPrinter[ 

type: "loophole[200000B, StackFormatSStack] f ", 
proc: PrintStack]; 

END. 
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The TajoMisc chapter describes various facilities, including those to determine whether 
the ToolDriver is currently running and to wait a specified number of milliseconds. The 
Version interface supports determining the running boot file's version number. These 
interfaces are straightforward to use. 

VIIL2 Interface abstracts 

TajoMisc is a catch-all for public and semi-public Tajo utilities that did not fit logically 
into other interfaces. 

Version provides the single procedure Append, used by various tools to construct heralds. 
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The TajoMisc interface is a catch-all for public and semi-public Tajo utilities that did not 
fit logically into any of the other interfaces. 


57.1 Types 


None. 

57.2 Constants and data objects 

TajoMisc.toolDriverRunning: readonly boolean; 

toolDriverRunning can be polled to determine if the Tool Driver is currently running. 
Tools that can cause destructive changes to a large data base may wish to use this to 
restrict their operations when run by the Tool Driver instead of interactively by a user. 

57.3 Signals and errors 

None. 

57.4 Procedures 

TajoMisc.FindClippingWindow: procedure [ 
window.Handle] returns [window.Handle]; 

The Findclipping Window procedure returns the clipping window of the tool window 
associated with some window. This is the only safe way to get at the clipping, because the 
clipping window will not be a child of the tool window if the tool is tiny. The argument may 
be a tool window, a clipping window, a subwindow, or the root window. If the argument is 
the root window, the root is returned. 

TajoMisc.GetWindowManagerMenu: procedure returns [Menu.Handle]; 

The GetWindowManagerMenu procedure returns the handle for the Window Manager 
menu. 
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TajoMisc.Quit: PROCEDURE [powerOff: boolean false]; 

The Quit procedure lets a client stop Tajo and all other tools safely. Since access to this 
procedure is through the HeraldWindow*s menu, it is expected that calls on this procedure 
will be rare. Consult your support personnel before using it. 

TajoMisc.SetState: procedure [ 

new: UserTerminal. State] RETURNS [old: UserTerminal. State]; 

The SetState procedure must be used rather than UserTerminal. SetState to change the state 
of the display bitmap because UserTerminal. SetState bypasses Tajo with disastrous 
consequences. 

TajoMisc.SetToolDriverRunningrPROCEDURE [boolean]; 

The SetToolDriverRunning procedure allows you to change the value of 
toolDriverRunning. This procedure is provided for use by the Tool Driver. Other clients 
should not call this procedure. 

TajoMisc.StartClient: procedure; 

The StartClient procedure is an outward call that Tajo makes before starting the Notifier. 
Tajo checks to make sure that the procedure is bound before making the call. Clients may 
build their own boot files containing a procedure that will satisfy the IMPORT and have 
their modules started by Tajo as part of the normal startup sequence. 

TajoMisc.WaitMilliSecs: procedure [msec: cardinal]; 

The WaitMilliSecs procedure allows a process to do a wait for a period of milliseconds 
without having to be in a convenient MONITOR. It returns within 1 second if 

Userlnput.UserAbort[NiL] is true. 

TdjoMisc.WaitSecs: procedure [secs: cardinal]; 

The WaitSecs procedure allows a process to do a wait for a period of seconds without 
having to be in a convenient MONITOR. It returns within 1 second if 

Userlnput.UserAbort[NiL] is true. 
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The Version interface, which provides the single procedure Append, is used by various 
tools to construct heralds. 


58-1 Types 

None. 

58*2 Constants and data objects 

None. 

58.3 Signals and errors 

None. 

58.4 Procedures 

Version.Append: PROCEDURE [LONG STRING]; 

The Append procedure appends a version number (five characters long, with no leading or 
trailing blanks) to the string passed in. Tools that wish to provide more precise 
information about when they were built should use Runtime. GetBcdTime as well. If the 
string argument is nil, no actions will be performed. If the length of the string passed in is 
not at least 5 less than the maxLength (that is, if there is not enough storage allocated for 
appending 5 more characters) the signal String.StringBoundsFault is raised. It will not be 
caught in Version.Append. 


58-1 




58 


Version 


58-2 



A 


ExampleTool 


ExampleTool is a tool that illustrates the features and techniques used in writing tools 
that run in the Xerox Development Environment. This appendix presents a description of 
the important features in ExampleTool as well as a code listing of the ExampleTool 
program. 

A.l Creation and start-up of ExampleTool 

The user interacts with ExampleTool either via the Executive’s command line or the 
standard tool window interface. To be able to type input to the Executive’s command line, 
the tool must register a command with the Executive. The call to Exec.AddCommand is 
invoked in ExampleTool’s initialization procedure (Init). The proc parameter, 
ExampieToolCommand, is responsible for eventually creating the tool window itself. 
Although no Executive command line processing is done in ExampieToolCommand, this 
would be the logical place to handle it. Some applications look first for command line 
input; if there is any, they do not create the tool window. Such applications are operating 
under the assumption that the user simply wants to type to the Executive and has no need 
for the tool interface. 

The unload parameter sent to Exec-AddCommand must destroy the tool window before the 
program is unloaded; thus the tool writer cannot use the Executive’s defaultUnloadProc. 

To create the tool window interface, the procedure Tool.Create is called. Two important 
parameters in this call are ClientTransition and MakeSWs. ClientTransition is a procedure 
(of type Toolwindow.TransitionProcType) that is called whenever the tool changes state. 
MakeSWs is the procedure (of type Tool.MakeSWsProc) responsible for creating the 
sub windows and menus provided by the tool. 

Since users may wish to use the tool with the ToolDriver, the necessary ToolDriver 
registration is performed in the MakeSWs procedure. All tool writers should incorporate 
this feature. 
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Figure 13.1: Example Tool 


A.2 Tool states and storage management 

A tool is always in one of three states: inactive, tiny, or active. 

inactive the user is no longer interested in any of the tool's functions. When a tool 
enters the inactive state, all the resources it utilized should be released. 
Deactivating a tool causes a menu entry for that tool to be placed on the 
Inactive menu. 

tiny the user is not interested in what the tool displays. When the tiny state is 

entered, the resources associated with the display state should be freed. 

active the user wants access to the functions provided by the tool. Typically, all the 
storage for tool data is allocated when the active state is entered. 

Whenever ExampleTool enters a new state, ClientTransition is called; the old state and the 
new state are passed to ClientTransition. If the old state is inactive, ClientTransition must 
perform the necessary reallocation of storage. Since ExampleTool uses its own heap, 
resource allocation involves re-creating ExampleTooTs heap and re-allocating its data. 
When going to the inactive state, all items allocated from the heap are deallocated in 
ClientTransition. Those items include storage allocated for ExampleTool's form 
subwindow, its menu, and other global tool data. Once these items are deallocated, the 
heap itself is destroyed. 


A.3 Data 


The data needed by ExampleTool is contained within a single record structure. This 
enables the necessary storage to be allocated with a single call to heap.NEW, When the tool 
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is deactivated, the storage is freed by a call to heap.FREE, where heap is ExampleToors 
private heap. This technique minimizes the memory used by the tool when it is inactive. 

The fields within the record structure storing the tool data must be aligned at word 
boundaries. Therefore, this data must be stored in a machine dependent RECORD. Addresses 
must be generated for the locations used to store values of enumerated and boolean items 
that are displayed in form subwindows (see "value” in the Enumerated items section and 
"switch” in the Boolean items section). Normally, the compiler allocates the minimum 
amount of space necessary for these items, and they are not word aligned. This machine 
DEPENDENT RECORD allocates an entire word for each boolean and enumerated item. 

A.4 Subwindows 

ExampleTool uses three types of subwindows: file, message, and form. There are three 
other types of subwindows: text, string, and TTY. 

text sub windows provide a way to view text from a wide variety of sources. The 

Textsw interface contains a comprehensive set of facilities for viewing and 
manipulating text independent of its source. File and string subwindows are 
specific types of text subwindows. 

file subwindows are text subwindows whose backing store is a disk file. When 

creating a file subwindow, the client must specify the name of the file to be 
used as the backing store. (Backing store refers to the data object used to hold 
the information, typically text, that is displayed.) 

string subwindows are text subwindows whose backing store is a LONG STRING. When 
creating a string subwindow, the client specifies the address of the LONG 
STRING used as the backing store. 

message subwindows provide a simple way of posting feedback messages to the user. 

form subwindows allow the user to indicate parameters, options, and commands 

for the tool to process. When creating a form subwindow, the client must 
specify a procedure (of type FormSW.ClientlternsProcType) that sets up the 
items within the form subwindow (see the next section on Form sub windows). 

TTY subwindows provide traditional teletype interaction with the user. 

When a tool is created, the specified MakeSWsProc is called. Within ExampleTool’s 
MakeSwProc, subwindows are created by calls to the following Tool interface procedures: 
MakeFileSW, MakeMsgSW and MakeFormSW. 

A.5 Form subwindows 

The call to Tool. MakeFormSW must supply the procedure parameter (of type 
ForiiiSW.ClientltemsProcType) specifying the items to be included in the form. In 
ExampleTool this procedure is called MakeForm. A procedure of this type must return an 
array descriptor; each element within this array is a record describing one of the items in 
the form subwindow. In ExampleTool, the variable formitems is declared as a long 
POINTER TO ARRAY, which eventually is LOOPHOLEd into the base of the descriptor returned by 
MakeForm. Although at first glance this seems like a confusing way to build an array 
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descriptor, ExampleTool was written this way to allow for indexing with an enumerated 
type (Formlndex), which is not only more readable but also simplifies the addition or 
deletion of items. 

Items within a form subwindow have a "tag" and a "place" (in addition to other fields 
within the variant record describing that item). A tag is a client-supplied LONG STRING used 
as a label for an item, place is a record that specifies where in the form subwindow an item 
is located, place contains two integer fields: x and y. x specifies the number of bits from 
the left side of the subwindow that an item is shifted to the right; y specifies the number of 
lines from the top of the subwindow that an item is shifted down. [0, 0] places an item in 
the upper-left corner of the form subwindow. Each item in a form subwindow must be 
located below or to the right of the previous item. 

Initial values for items in the form subwindow may be set by reading from the tool’s 
section of the User.cm. The procedure ProcessUserDotCM in ExampleTool looks for initial 
values for enumOne and enumAII and is called from Clientlransition each time the tool is 
activated. 

ExampleTool illustrates the use and construction of five principal types of items: 
command, string, enumerated, number, and boolean. 


A,5*l Command items 

Command items enable the tool user to invoke a desired operation by selecting an item 
with the mouse. A command item can be created by a call to ForrnSW.Commandltem. An 
important parameter of ForrnSW.Commandltem is proc. proc is the procedure to be invoked 
when the user selects the comand item. 

The first element in formitems is a command. When the user selects this command, the 
procedure FormSWCommandRoutine is executed. FormSWCommandRoutine forks a 
process for CommandRoutine, which is the procedure that does the actual work associated 
with the command. In general, command procedures that take a fair amount of time to 
execute should be forked. However, for short procedures it is not always worth the extra 
synchronization overhead. 

Part of the synchronization is accomplished by using facilities in the Supervisor, Event and 
EventTypes interfaces. If the command process has been forked, there are two dangers to 
guard against while the process is running: a request to deactivate the tool and a request 
to swap to or from a debugger volume. ExampleTool registers an agent procedure on the 
supervisor event Event.toolWindow. This notifies ExampleTool whenever any active or 
tiny tool window is about to deactivate. CheckDeactive, which is the agent procedure that 
gets called when this event happens, first checks to see if the window that is about to 
deactivate is ExampleTool’s. If so, a check on the boolean toolData.commandlsRunning 
(maintained in CommandRoutine) is made to determine whether the command process is 
currently running. If the command process is running, the request to deactivate is 
aborted; otherwise it is allowed to proceed. Since ExampleTool is interested only in being 
notified about deactivation when it is active, the dependency on Event.toolWindow is 
added and removed when ExampleTool changes states in Clientlransition. 

Protecting the command process from an untimely swap to or from a debugger volume is 
accomplished by making a call to Event.StartingProcess upon entry to the process and by 
calling Event. DoneWithProcess when the command process has finished doing its work. 
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This will ensure that any request to swap will abort and display the string passed as a 
parameter to Event.StartingProcess if the swap request comes during execution of the 
command. 

A.5.2 String items 

String items allow a user to provide textual input. A string item can be created by a call 
to FormSW.StringItem. Five important parameters of FormSW.StringItem are string, 
readonly, feedback, z , and inHeap, 

string is a long pointer to the long string to be used as the backing store for this 

item. 

readonly is a boolean. If readonly is true, the user cannot alter this item. If 
readonly is false, the user can edit this string item. 

feedback describes the displayed appearance of characters within the string, either 
normal or password, normal means that the characters themselves are 
displayed, password means that a is displayed in place of each 
character. 

z signifies the heap from which the storage for the string must be allocated. 

The value of z should match the zone initially passed to Tool.MakeFormSW. 

inHeap is a boolean used to indicate whether the FormSW interface should 

automatically grow the backing string when necessary. If inHeap is true, 
FormSW takes care of allocating storage dynamically for the string. 
ExampleTool’s strings are grown by FormSW. 

A.5.3 Enumerated items 

Enumerated items allow a user to select from a list of values. An enumerated item can be 
created by a call to ForrnSW.Enumeratedltem. Four important parameters of 
ForrnSw.Enumeratedltem are feedback, value, proc , and choices. 

feedback describes how the item is to be displayed; the options are one and all. 

all displays all the enumerated item’s options (e.g., "tag: {a, b, c}”). 
Selecting an item within the curly brackets video-inverts that item. 

one diplays only the selected item (e.g., "tag: {c}”). Depressing a mouse 
chord over the tag displays a menu containing all the allowable options; 
selecting an entry from this menu displays that selection. 

value is the long pointer indicating where the current value of the enumerated 

item is to be placed (see choices below). 

choices specifies the options available for an enumerated item. The records 

decribing the enumerated options (of type FormSW.Enurnerated) contain 
two fields: a long string and a value (of unspecified type). The long string 
is used to describe the option; when the option is selected, the value is 
stored in the location pointed to by the value parameter described above. 
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In ExampleTooI, a SEQUENCE of FormSW. Enumerated is created. Sequences 
are used so that backing storage for the enumerated items can be allocated 
from ExampleToofs private heap. Note also that the string associated with 
a particular choice is allocated locally, thus minimizing storage 
management overhead. To avoid passing the entire array of records, the 
choices parameter is actually a DESCRIPTOR of the array of 
F ormSW. Enumerated; therefore the sequence is made into a descriptor to 
satisify the type constraints of the FormSW. Enumerateditem procedure. 

The item with the tag ''Boolean(TRUE false)*’ in ExampleTooI is an 
enumerated item, but a choices array descriptor is not constructed. 
Instead, a call to FormSWoBooleanChoicesH is used. BooleanChoices is a 
procedure that returns "choices” appropriate for creating an enumerated 
item whose options are TRUE and FALSE. 

proc permits the client to specify a procedure that will be called when the user 

selects a value for an enumerated item. ExampleTooI does not illustrate 
this feature. 

A.5.4 Number items 

Number items provide a way for clients to solicit arithmetic input. The item whose tag is 

"Cardinal” illustrates this feature. 


A.S.5 Boolean items 

Boolean items are form subwindow items with two possible states: true and falsEo The 
state is toggled when the user selects the item. When a boolean item is true, it is displayed 
in inverse video. A boolean item can be created by a call to FormSW.BooleanItem. Two 
important parameters of Booleanitem are switch and proc. 

switch is the LONG pointer indicating where the current value of the boolean item 

is to be placed. 

proc permits the client to specify a procedure that will be called when the user 

toggles the value of a boolean item. The item in ExampleTooI whose tag is 
"boolean(video)” illustrates a boolean item that has a proc parameter. 

A<.6 Menus 


Menus that appear when the user holds both mouse buttons down can be created by a call 
to Menu. Make. Menus are normally created in the client procedure that is resposible for 
creating subwindows (in ExampleTooI this is procedure MakeSWs). 

Three important parameters of Menu.Make are name, strings, and mcrProc. 

name is the name to be placed at the top of the menu. 

strings is a LONG DESCRIPTOR FOR array of long strings. The array contains the 
strings used as menu options. Procedure MakeSWs in ExampleTooI 
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illustrates a simple way of creating the array of LONG strings and passing 
its descriptor. 

mcrProc is the procedure that will be called when the user selects a menu item. 

After a menu is created, the client must indicate the window(s) in which it should be 
present. This is accomplished by procedure Menu. Instantiate Menus may be attached to 
the tool window or any of its subwindows. KxampleTool attaches its menu to the form 
subwindow. 

When a window containing a menu is deactivated, the menu should be removed from that 
window and its storage freed. These operations generally occur in the transition procedure 
for a tool window before deallocating the tool data record structure. Menu. Uninstantiate 
removes a menu from a window, and Menu.Free deallocates the storage associated with it. 

A.7 The ExampleTooI program 

DIRECTORY 

CmFite USING [ 

Close, Error, FindSection, Handle, NextValue, 

TableError, UserDotCmOpen], 

Event USING [OoneWithProcess, Handle, Start!ngProcess, toolWindow], 

EventTypes USING [deactivate]. 

Exec USING [AddCommand, ExecProc, OutputProc, RemoveCommand], 

Format USING [StrlngProc], 

FormSW USING [ 

AllocateltemDescriptor, BooleanChoices, Booleanitem, ClientItemsProcType, 
Commanditem, Destroy, Enumerated, Enumerateditem, ItemHandle, lineO, linel, 
Iine2, lines, Iine4, LongNumberitem, NotifyProcType, ProcType, Stringitem], 

Heap USING [Create, Delete], 

Menu USING [Free, Handle, Instantiate, Make, MCRType, Uninstantiate], 

Process USING [Detach, Pause, SecondsToTicks], 

Put USING [Line], 

Runtime USING [GetBcdTime], 

Supervisor USING [ 

AddDependency, AgentProcedure, CreateSubsystem, EnumerationAborted, 
RemoveDependency, SubsystemHandle], 
string USING [AppendString, CopyToNewString], 
stringLookup USING [InTable, noMatch, TableDesc], 

Time USING [Append, Unpack], 

Token USING [FreeTokenString, Item], 

Tool USING] 

Create, Destroy, MakeFileSW, MakeFormSW, MakeMsgSW, 

MakeSWsProc, UnusedLogName], 

Tooioriver USING [Address, NoteSWs, RemoveSWs], 

ToolWindow USING [Activate, TransitionProcType], 

Version USING [Append], 

Window USING [Handle]; 
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ExampleTool: monitor 

IMPORTS 

CmFile. Event, Exec. FormSW, Heap. Menu, Process, Put, Runtime, 

Supervisor, String, StringLookUp, Time, Tool, Token, ToolDriver, ToolWindow, 
Version = 

BEGIN 

-TYPES 

Formlndex: type = { 

command, vanilla, password, readonly, number, boolTF, boolVideo, enumOne, 
enumAll}; 

StringNames: TYPE * {vanilla, password, readonly}; 

Menuindex: TYPE * (postMessage, aCommand, bCommand}; 

DataHandle: TYPE s long pointer TO Data; 

Data: type = machine dependent record [ 
msgSW(O): window.Handle <-nil, 
fileSW(2): Window.Handle <-nil, 
formSW(4): window.Handle f- nil, 

< < Note: enumerateds and booleans must be word-boundary 

aligned as addresses for them must be generated> > 

commandlsRunning(6): booleanfalse, 

switch1(7): boolean <-true, 

switch2(8): boolean «-true, 

enum1(9): Enum1[a..c] «-a, 

enum1Seq(10): long pointer to EnumSeq <-nil, 

enum2(12): Enum2[x..z] «-y, 

enum2Seq(13): long pointer to EnumSeq f-NiL, 

number(15): long cardinal <-0, 

menu(17): Menu.Handle <-nil, 

strings(19): array StringNames of long string <-all[nil]]; 

Enum1: type a machine dependent 

{a(0), b, c, noMatch(stringLookUp.noMatch)}; 

Enum1 Options: TYPE a Enum1[a..c]; 

Enum2: type a machine dependent 

{x(0), y, z, noMatch(stringLookup.noMatch)}; 

Enum20ptions: TYPE a Enum2[x..z]; 

EnumSeq: type a record [seq: sequenced: cardinal of Formsw.Enurnerated]; 
-Variable declarations 

—This data is for minimizing memory use when this tool is inactive 

toolOata: DataHandle <-nil; 

wh: Window.Handle «-nil; 

heap: uncounted zone <-nil; 

heraldName: long string «-nil; 

inactive: boolean true; 

agent: Supervisor.SubsystemHandle a Supervisor.CreateSubsystem[CheckDeactivate]; 
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CheckDeactivate: Supervisor. AgentProcedure * 

BEGIN 

IF event s EventTypes.deactivate and 
wh#NiLANDwh = eventData 
ANOtoolData.commandlsRunning then { 

Put.LineftoolData.msgSW, "The tool is still processsing a command: aborting 
deactivation"L]; 

ERROR Supervisor.EnumerationAborted}; 
end; 

-Example Tool Menu support routines 
MenuCommandRoutine: Menu.MCRType a 

BEGIN 

-- Do the tasks necessary to execute a menu command. 
mx: Menuindex a VAL[index]; 

SELECT mx FROM 

postMessage a > Put.LineftoolData.msgSW, "Message posted."L]; 
aCommand a > Put.LineftoolOata.fileSW, "A Menu command called."L]; 
ENOCASE a > Put.LineftoolOata.fileSW. "B Menu command called."L] 
end; 

-Example Tool FormSW support routines 
CommandRoutine; entry procedure a 

BEGIN 

handle: Event.Handle <-Ewent.StartingProcess[ 

"CommandRoutine in SampleTool is running"L]; 
toolData.commandlsRunning <-true: 

< < The following statement represents 10 seconds of work done 
outside the monitor > > 

Process.PausefProcess.SecondsToTicksflO]]; 

Put.LineftoolOata.fileSW. "The Command Procedure has been called."L]; 
toolData.commandlsRunning 4~false; 

Event.OoneWithProcessfhandle]; 

end; 

FormSWCommandRoutine: FormSW.ProcType = 

BEGIN 

-Do the tasks necessary to execute a form subwindow command. 

Process.Detach f fork CommandRouti ne] ; 
end; 

NotifyClientOfBooleanAction: FormSW. NotifyProcType * 

BEGIN 

< < This procedure is called whenever a state change 

(user action) occurs to the boolean item of the Form subwindow. > > 
Put.LineftoolOata.fileSW, "The Boolean Notify Procedure has been called."L] 
end; 

ProcessUserDotCM: procedure a 

BEGIN 

CMOption: TYPE a machine dependent { 
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EnumOne(O), EnumAil, noMatch(StringLookUp.noMatch)}; 

DefinedOption; type = CMOption[EnumOne..EnumAll]; 
cmOptionTable: array DefinedOption of long string *- [ 

EnumOne: ’'EnumOne"L, EnumAil: "EnumAir'L]; 
cmindex: CMOption; 

CheckType: PROCEDURE[h: CmFiie.Handle, table: stringLookup.TableDesc] 
RETURNS(index: cardinal] = CmFiie.NextValue; 

MyNextValue: procedure] 
h: CmFiie. Handle, 

table: long descriptor for array DefinedOption of long string] 

RETURNS [index: CMOption] a LOOPHOLE[CheckType]; 

TranslateValueToEnumI: procedure] 

key: long string, table: long descriptor for array 
EnumlOptions of long string, caseFold: boolean e-TRUE, 
noAbbreviation: boolean*-false] 

RETURNS [index: cardinal] a LOOPHOLE]StringLookUp.lnTable]; 

TranslateValueToEnum2: procedure] 

key: long string, table: long descriptor for array 
EnumZOptions of long string. caseFold: boolean *- true, 
noAbbreviation: boolean false] 

RETURNS [index: cardinal] a LOOPHOLE]StringLookUp.lnTable]; 

cmFile: CmFile.Handle *-cmFile.UserDotCmOpen] 

ICmFile.Error a > if code a fileNotFound then goto return]; 

IF CmFiie.FindSection]cmFile," ExampleTool "L] then 
DO 

select 

(cmindex *- MyNextValue]h: cmFile, table: DESCRiPTOR]cmOptionTable] 
! CmFile.TableError a > resume]) from 
noMatch a > exit; 

EnumOne a > begin 

enumITable: array EnumlOptions of long string *- [ 
a:"a"L,b:"b"L. c: VL]; 
elindex: EnumlOptions; 
value: long string a Token.ltem[cmFile]; 
select elindex *-VAL[TranslateValueToEnum1] 
value, DESCRiPTOR[enum1Table], false, true]] from 
noMatch a > null; 

ENOCASE a > toolData.enumI <-elindex; 

]] *- Token. Free! okenStri ng[val ue]; 
end; 

EnumAil a > begin 

enumZTable: array EnumZOptions of long string <- ] 
x: "x"L,y: "y"L,z: " 2 '*L]; 
eZIndex: EnumZOptions; 
value: long string a Token.ltem]cmFile]; 
select eZIndex «-VAL]TranslateValueToEnumZ] 
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value. DESCRiPTOR[enum2Table], false, true]] from 
noMatch s > null; 

ENOCASE = > toolData.enumZ «-e2lndex; 

(]«— Token. FreeTokenString(value]; 
end; 

endcase; 

endloop; 

[] «-CmFiie.Close[cmFile]; 

EXITS return = > null; 
end; 

ClientTransition: Toolwindow.TransitionProcType » 

< < This procedure is calted whenever the tool's state is undergoing a 
user-invoked transition. 

This procedure demonstrates a technique that minimizes the memory 
requirements for an inactive tool. > > 

BEGIN 

SELECT TRUE FROM 

old z inactive a > 

BEGIN 

IF heap a NIL THEN InitHeapH; 

iFtoolOata a NiLTHENtoolData«-heap.NEw[Data <-[]]; 

ProcessUserDotCMf]; 
inactive <-false; 
end; 

new a inactive a > 
begin 

Supervisor.RemoveOependency[client: agent, implementor: Event.toolWindow]; 
IF tool Data # nil then begin 

Formsw. Destroy [tool Data.f ormSW]; 

Menu.Uninstantiate[menu: toolData.menu, window; toolData.formSW]; 

Menu.Free[toolData.menu]; 

heap.FREE[@toolData]; 

heap.FREE[@heraldName]; 

end; 

IF heap # NIL THEN KillHeapd; 

ToolDriver.RemoveSWs[tool: "ExampleTool"L]; 

inactive <-true; 

end; 

ENOCASE 

end; 

Help: Exec.ExecProc a 
begin 

OutputProc: Format.StringProc Exec.OutputProc[h]; 

OutputProcI 

"This command activates the ExampleTool window. The ExampleTool is an 
example of a 'Tool' that runs in Tajo. It demonstrates the use of a comprehensive set of 
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commonly used Tajo facilities. Specifically we present examples of the definition, 
creation, use. and destruction of the following: 

Windows and subwindows. Menus. Msg subwindows. Form subwindows and File 
subwindows''L]; 
end; 

Unload: Exec.ExecProc = 

BEGIN 

IF wh # NIL THEN Tool. Destroy [wh); 
wh «-nil; 

n ♦-Exec.RemoveCommand[h. "ExampieTool.~"L]; 
end; 

InitHeap: procedure » inline 

BEGIN 

heap<-Heap.Create[initial: 1]; 
end; 

KillHeap: procedure a inline 

BEGIN 

H«ap.Oelete[heap]; 
heap <-nil; 
end; 

Init: procedure a 

BEGIN 

Exec.AddCommand["ExampleTool.~"L, ExampleToolCommand. Help, Unload]; 
end; 

MakeHeraldName: procedure a 

BEGIN 

tempName: long string «- heap.NEw[StringBody [60]]; 
string.AppendString [tempName, "ExampieTool "L]; 
ver$ion.Append[tempName]; 

String. AppendString[tempName," of "L]; 

Time.Append[tempName, Time.Unpack[Runtime.GetBcdTtme []]]; 
tempName.length *- tempName.length - 3; - gun the seconds 
heraldName «-string.CopyToNewString[tempName, heap]; 
heap.FREE[@tempName]; 
end; 

MakeTool: procedure RETURNS[wh;window.Handle] a 
BEGIN 

RETURN[Tooi.Create[ 

makeSWsProc: MakeSWs, initialState: default, 

clientTransition: ClientTransition, name: heraldName, 

cmSection: "ExampleToor'L,tinyName1: "Example"L, tinyName2: "Toor'L]] 

end; 
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ExampleToolCommand: Exec.ExecProc « 

BEGIN 

IF heap = NIL THEN InitHeapH; 
iFheraldName s nil then MakeHeraldNameH; 

IF (wh # nil) and inactive then Tooiwindow.Acti vate{wh] 

ELSE IF wh = NIL THEN wh<-MakeTooin; 
end; 

MakeFornrj; FormSW.ClientItemsProcType = 

BEGIN 

OPEN Formsw; 

-This procedure creates a sample FormSW. 

formitems: long pointer TO array Formindex of FormSw.lternHandle «-nil; 

toolData.enumISeq *- heap.NEw[EnumSeq[3]]; 

toolData.enum2Seq <— heap.NEw[EnumSeq[3]]; 

toolData.enum1Seq[0] «-["A"L, Enuml.a]; 

toolOata.enum1Seq{1] Enuml.b]; 

toolOata.enum1Seq[2] «-["C"L, Enuml.c]; 

toolData.enum2Seq[0] Enum2.x]; 

toolData.enum2Seq[1] Enum2.y]; 

toolOata.enum2Seq[2] ^ ["Z“L, Enum2.z]; 

toolOata.strings[vanilla] <->toolOata.strings[password] <-nil; 

toolData.strings[readOnly] <--string.CopyToNewString[ 

"Read Only String"L, heap]; 

items «-AllocateltemOescriptor[nitenis: Formlndex.LAST.ORD + 1,z: heap]; 
formitems«- LOOPHOLE[BASE[items]]; 
formitems*«—( 

command: Commanditem] 

tag: "Command"L, place: (0, lineO], z: heap, proc: FormSWCommandRoutine], 
vanilla: Stringltem] 

tag: "Vanilla"L, place: [200, lineO], z: heap, string: @toolData.strings[vanilla], 
inHeap: true], 
password: Stringitem] 

tag: ”Password"L, place: [0, Iine1], z: heap, 
string: @toolOata.strings[password], 
feedback: password, inHeap: true], 
readonly: Stringitem[ 

tag: ”ReadOnly”L, place: [0, Iine2], z: heap, 
stri ng: @tool Data.stri ngs[readOnly], 
readonly: true, inHeap: true], 
number: LongNumberttem[ 

tag: "Cardinai"L, place: [200, Iine2], z: heap, value: @tooiData.number, 
notNegative: true, signed: false], 
boolTF: Enumeratedltem[ 

tag: "boolean(trueFalse)"L, place: [0, Iine3], z: heap,feedback: all, 
value: ©toolData.switchl,copyChoices: false, choices: BooleanChoices[]], 
boolVideo: Booleanltem[ 

tag: "boolean(video)"L, place: [250, Iine3], z: heap, 
switch: @toolData.switch2, 
proc: NotifyClientOfBooleanAction], 
enumOne: Enumeratedltem[ 

tag: "enumerated(one)"L, place: [0, iine4], z: heap, feedback: one. 
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value: @toolData.enum1, copyChoices: true, 
choices: DESCRiPTOR[tool Data.enumi Seq 
enumAII: Enumeratedltem[ 

tag: ''enumerated(all)"L, place: [175, iine4], z: heap, feedback: all, 
value: @toolData.enum2, copyChoices: true, 
choices: DESCRiPTOR(toolData.enum2Seq']]]; 

heap.FREE[@toolData.enum1Seq]; 

heap.FREE[@toolData.enum2Seq]; 

RETURNfitems: items, freeDesc: true] 
end; 

MakeSWs: Tool.MakeSWsProc * 

BEGIN 

logName: strings- [40]; 

addresses: ARrAY [0..3) OF TooiOriver.Address; 

menuStrings: array Menuindex of long string <— [ 

postMessage: "Post message"L,aCommand: "ACommand"L, 

bCommand: "B Command"L]; 

toolOata.menu <-Menu.Make[ 

name: "Tests"L. strings: DESCRiPT0R[menuStrings.8ASE, menuStrings.LENGTH], 
mcrProc: MenuCommandRoutine]; 

Tooi.UnusedLogName[unused: logName, root: "Example.log"L]; 
toolData.msgSW <—Tooi.MakelVlsgSW[window; window]; 
toolData.formSW <-Tooi.MakeFormSW[window: window, formProc: MakeForm, 
zone: heap]; 

toolData.fileSW <-Tool.MakeFileSW[window; window, name: logName]; 
Menu.lnstantiate[toolData.menu. toolData.formSW]; 
Supervisor.AddDependency[client: agent, implementor: Event.toolWindow]; 

-do the Tool Driver stuff 
addresses «-[ 

[name: "msgSWL, sw: toolData.msgSW], 

[name: “formSW'L, sw: toolData.formSW], 

[name: "fileSW"L,sw: toolData.fileSW]]; 

TooiDriver.NoteSWs[tool; "ExampleTool"L, subwindows: DESCRiPTOR[addresses]] 
end; 

-Mainline code 
lnit[]; 

END. 


A-14 




B 


References 


The following documents should be studied before or in conjunction with this manual: 
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-- PUBLIC SYMBOLS FOR 

-- AddressTranslation Answer Ascii AsciiSink Atom Authenticator Backstop 
BackstopNub BandBLT BitBIt BlockSource BodyDefs BTree ByteBIt Caret CH Checksum 
CHLookup CHPIDs CmFile CommOnlineDiagnostics CommonSoftwareFileTypes Context 
Courier Cursor Date DebuggerHacks DebugUsefulDefs Device DeviceTypes Dialup 
DiskSource Display Environment Event EventTypes Exec Expand ExpeditedCourier 
ExtendedString File FileExtras FileName FileSW FileTransfer FileTypes FileWindow 
Floppy FloppyChannel Fonts Format FormatPilotDisk FormatPilotDiskExtras FormSW 
GSort Heap HeraldWindow Inline JLevelIVKeys Keys Keystations LevellllKeys 
LevelIVKeys LexiconDefs LibrarianUtility Log LogFile LsepFace MailParse MDSStorage 
MemoryStream Menu MFile MFileProperty MLoader MoreCH MSegment MsgSW 
MStream MVolume NetworkStream NSAddr NSAssignedTypes NSConstants 
NSDataStream NSFile NSName NSPrint NSSegment NSSessionControl NSString 
NSTimeServer NSVolumeControl ObjAlloc OnlineDiagnostics OthelloOps 
PacketExchange PageScavenger PerformancePrograms PerformanceToolFileTypes 
PhysicalVolume PieceSource PilotClient PilotSwitches PilotSwitchesExtraExtraExtras 
PilotSwitchesExtraExtras PilotSwitchesExtras PrincOps Process Profile 
ProtocolCertification Put RavenFace Real RealFns RemoteCommDiags RetrieveDefs 
Router RS232C RS232CControl RS232CCorrespondents RS232CEnvironment Runtime 
Scavenger ScavengerExtras ScratchSource ScratchSW Scrollbar Selection SendDefs 
Space SpaceUsage SpaceUsageExtras SpyClient Storage Stream String StringLookUp 
StringSource StringSW Supervisor SupervisorEventlndex SupervisorEventlndexExtras 
System TajoMisc TemporaryBooting TextBIt TextData TextSink TextSource TextSW 
Time TimeServerLog TIP Token Tool ToolDriver ToolFont ToolWindow TTY TTYPort 
TTYPortEnvironment TTYSW Userinput UserTerminal UserTerminalExtras Version 
Volume VolumeConversion Window WindowFont Zone 

A10: -Keysta tiohs— 8 i t = 108; 

A11: -Keystations— Bit =110; 

A12; -Keystations— Bit = 111; 

A1: -Keystations—B\t = 50; 

A2: -Keystations- Bit = 31; 

A3: -Keystations- Bit = 72; 

A4: -Keystations- Bit = 60; 

A5: -Keystations- Bit = 57; 

A6: -Keystations-- Bit = 76; 

A7:-Keystations--Bit = 73; 

A8: -Keystations- Bit = 88, 

A9: -Keystations - Bit = 86, 
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Abort: -Exec- procedure returns [error; error!; 

Abort: --A/SDataStream-- PROCEDURE [stream; Handle); 

Abort: -Process- procedure [process; unspecified); 

AbortCail; -Dialup- procedure [dialerlMumber: cardinal); 

Aborted: -NSDataStream- error; 

abortedSearchPathChange: - fventfypes-- Supervisor. Event; 

AbortPending: -Process- procedure returns [abortPending: boolean); 
AbortProcType:-Expand- type = procedure returns [boolean); 
abortSession: -EventTypes- Supervisor Event; 
aboutToAbortSession; -EventTypes- Supervisor.Event; 
aboutToBoot; —EventTypes— Supervisor. Event; 
aboutToBootPhysicaiVolume. -EventTypes- Supervisor.Event; 
aboutToChangeSearchPath: -EventTypes- Supervisor.Event; 
aboutToCloseVolume; -EventTypes- Supervisor.Event; 
aboutToOpenVolume; -EventTypes— Supervisor.Event; 
aboutToResume: -EventTypes- Supervisor.Event; 
aboutToSwap: -Event- readonly Supervisor.SubsystemHandle; 

Access: -FileSW- type = TextSource.Access; 

Access; -MFile- type = machine dependent{ 

anchor, readonly, readWrite, writeOnly, log, delete, rename, null}; 

Access: -A/SFf7e- type = packed array AccessType of BooleanFalseDefault; 

Access: -TextSource- type = {read, append, edit}; 

Access: -TextSW- type = TextSource.Access; 

AccessEntries: -A/SF//e- type = long descriptor for array cardinal of 
AccessEntry; 

AccessEntry:-WSF/7e- TYPE = machine dependent record [ 
key(0:0..63); String, 
type(4:0..15): AccessEntryType, 
access(5:0..15); Access); 

AccessEntryType: -NSFile- jyPE = (individual, alias, group, other}; 
accessList:-A/SAss/gnedTypes-AttributeType = 19; 

AccessList: -NSFile- type = machine dependent record [ 

entries(0:0..47): AccessEntries «- nil, defaulted(3:0..15): boolean <- false); 
accessOffset: -PnncOps- cardinal = 2; 

AccessProblem:-A/SF/7e-TYPE = machine dependent{ 

accessRightsInsufficient, accessRightsIndeterminate, fileChanged, fileDamaged, 
filelnUse, fileNotFound, fileOpen, fileNotLocal, volumeNotFound}; 

AccessProcs; -RetrieveDefs- type = record [ 
nextMessage: procedure [handle: Handle) 

returns [msgExists: boolean, archived: boolean, deleted: boolean), 
nextitem: procedure [handle: Handle) returns [BodyDefs.ltemHeader), 
nextBlock; procedure [handle; Handle, buffer; Environment.Block) 
returns [bytes: cardinal), 
accept: procedure [handle: Handle), 
extra; select type: ServerType from 
MTP = > NULL, 

GV = > [ 

readTOC: procedure [handle; Handle, text: long string), 
startMessage; procedure [ 

handle: Handle, postmark: long pointer to BodyDefs.Timestamp<-NiL, 
sender; BodyOefs.RName «—nil, returnTo: BodyOefs.RName «-nil), 
writeTOC; procedure [handle: Handle, text; long string), 
deleteMessage procedure [handle: Handle)), 
endcase); 

AccessType; -NSFile - type ■= machine dependent{ 
read, write, owner, add, remove}; 
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ACLFIavor; -MoreCH- type = machine dependent{ 

readers, value, administrators, self Controllers, (177777B)}; 

Acquire: -Context ■ procedure (type: Type, window: Window. Handle] 

RETURNS (Data); 

Acquire: -MFile— procedure [ 

name: long string, access: Access, release: ReleaseData, 
mightWrite: boolean <— false, initialLength: InitialLength dontCare, 
type: Type *- unknown] returns [Handle]; 

AcquireBcd: -DebuggerHacks- procedure [ 

info: LoadStateFormat.BcdInfo, space: LONG POINTER TO Space. Interval]" 
returns [success: boolean]; 

AcquireTemp: -MFile- procedure [ 

type: Type, initialLength: InitialLength «-dontCare, 
volume: Volume.lD «—Volume.nulllD] returns [Handle]; 

Action: -Caret- type = machine dependent{ 

clear, mark, invert, start, stop, reset, firstFree, last(255)}; 

Action:-PageScavenger-- TYPE = { 

fixDataCRCError, fixHardware, boot, IvScavenge, pvScavenge}; 

Action:--TextS/nk-- TYPE = {destroy, sleep, wakeup}; 

Action: -TextSource-- TYPE = (destroy, mark, sleep, truncate, wakeup}; 

ActionResult:--fextS/nk-- TYPE = (ok, bad}; 

actionToWindow: —TIP— packed array Keys.KeyName of boolean; 

activate: -EventTypes- Supervisor. Event; 

Activate: -MSegment- procedure [segment: Handle]; 

Activate: -roo/W/rjdow- procedure [window: Handle]; 

ActOn: --Caret-- procedure [Action]; 

ActOn: -TextS/nk--ActOnProc; 

ActOn: -TextSource- ActOnProc; 

ActOnProc: -TextSink-rypi - procedure [sink: Handle, action: Action] 

RETURNS [ActionResult]; 

ActOnProc: -TextSource— type = procedure [source: Handle, action: Action]; 

Add: -NSSegment- procedure [ 

file: NSFiie.Handle, segment: ID, size: PageCount, 
session: Session <- nullSession]; 

AddAlias: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Name, 
newAliasName: Name, distingName: Name] returns [rc: ReturnCode]; 

AddCommand: -Exec- procedure [ 

name: long string, proc: ExecProc, help: ExecProc <- nil, 

unload: ExecProc «- DefaultUnloadProc, clientData: long pointer <- nil]; 

AddDistinguishedName: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Name, 
distingName: Name] returns [rc: ReturnCode]; 

AddDomainAccessMember: -MoreCH- procedure [ 

cred; Authenticator.Credentials, ver: Authenticator.Verifier, 
element: ch. Element, domain: CH.Name, acl: ACLFIavor] 
returns [rc: ch. ReturnCode], 

AddGroupMember: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, 

element: Element, name: Name, pn: PropertylD, distingName: Name] 

RETURNS [rc: ReturnCode]; 

AddGroupProperty: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Name, 
pn: PropertylD, elementEnumerator: EnumerateNewGroupElements e- nil, 
distingName: Name] returns [rc: ReturnCode]; 

AddInfinityNaN: -Real - long cardinal = 3; 
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AddNotifyProc: - MfHe - procedure [ 

proc: NotifyProc, filter: Filter, clientInstanceData: long pointer]; 

AddOrgAccessMember: -MoreCH- procedure ( 

cred: Authenticator. Credentials, ver: Authenticator.Verifier, 
element: ch. Element, org: CH.Name, acl: ACLFIavor] 

RETURNS [rc: CH.ReturnCodej; 

AddPrinter: -DebugUsefulDefs- procedure [type: long string, proc: Printer]; 

AddProperty: -MFile- procedure [ 

file: Handle, property: Property, maxLength: cardinal]; 

AddPropertyAccessMember: -MoreCH- procedure [ 

cred: Authenticator. Credentials, ver: Authenticator.Verifier, 

element: ch. Element, name: CH.Name, pn: CH.PropertylD, acl: ACLFIavor, 

distingName: CH.Name] returns [rc: CH.ReturnCode]; 

Address: -MSegment- procedure [segment: Handle] returns [long pointer]; 

Address: -NSAddr- type = long descriptor for array cardinal of 
System. NetworkAddress; 

Address: -ToolDriver— type = record [name: long string, sw: Window. Handle]; 

AddressDescriptor: -ToolDriver- type = long descriptor for array cardinal of 
Address; 

AddressToRhs: -NSAddr- procedure [address: Address] returns [rhs: ch. Buffer]; 

AddresstoSegment: -MSegment - procedure [pointer: long pointer] 

RETURNS [Handle]; 

AddrList: -ExpeditedCourier- type = long pointer to AddrObject; 

AddrObject: -ExpeditedCourier- type = record [ 
next: AddrList, address: System. NetworkAddress]; 

AddSegment: -Zone- procedure [ 

zH: Handle, storage: long pointer, length: BlockSize] 

RETURNS [sH: SegmentHandle, $: Status]; 

AddSelf: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Name, 
pn: PropertylD, distingName: Name] returns [rc: ReturnCode]; 

AddString: -LexiconDefs- procedure [long string]; 

AddThisSW: -Tool- procedure [ 

window: Window.Handle, sw: Window.Handle, swType: SWType <- predefined, 
nextSW: Window.Handle «- nil, h: integer <- 0]; 

AddToListOfIDs: -LibrarianUtiUty- procedure [ 

id: Librarian. LibjectID, ids; IDArrayHandle] returns [boolean]; 

AddValueProperty; -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Name, 
pn: PropertylD, rhs; Buffer, distingName; Name] returns [rc; ReturnCode]; 

Adjust: -FormSW- Tooiwindow.AdjustProcIype; 

Adjust: -TextSW- Tooiwindow.AdjustProcIype; 

AdjustProcType:--roo/W/ndow--TYPE = procedure] 
window: Handle, box: Box, when: When]; 

AdobeReportSortTime: -MFileProperty— MFiie.Property; 

AdvanceBand: -RavenFace- procedure [currentBand: Index] 
returns [nextBand: Index, nextBandAddress: BandPointer]; 

alias:--CHP/Ds--CH.PropertylD = 1; 

AliasCommand: -Exec- procedure [old: long string, new: long string] 

RETURNS [ok: boolean], 

aliases: -CHP/Ds- CH.PropertylD = 2; 

AlignedBandBLTTable: -BandBLT- procedure [ip: pointer to BBTableSpace] 
RETURNS [b: BandBLTTablePtr]; 

AlignedBBTable: -BitBIt- procedure [ip: pointer to BBTableSpace] 

RETURNS [b: BBptr]; 
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AlignedTextBItArg; --rextS/t- procedure [ip: pointer to TextBItArgSpace] 

RETURNS [p: pointer TO TextBItArg]; 

Alignment; -Zone- type = {a1, a2, a4, a8, a16}; 

AList: -Atom- type = long pointer to DPCell <- nil; 
all:--CHP/Ds--CH.PropertylD = 0; 
allControlSelections; -NSFile- ControlSelections; 

AllExceptions: -Real- ExceptionFlags; 

allExtendedSelections; -NSFile- readonly ExtendedSelections; 
allExtendedSelectionsRepresentation: -NSFile- array [0..01 of 
Extended Attri bu teTy pe; 

allInterpretedSelections: -NSFile- InterpretedSelections; 

Allocate: -ObjAlloc- procedure [ 

pool: AllocPoolDesc, count: ItemCount, willTakeSmaller: boolean <- false] 
RETURNS [interval: Interval]; 

AllocateBands; -RavenFace- procedure [ 

bandVirtualPageNumber: Environment.PageNurnber, nBands; BandBufferCount, 
sizeEachBand: Environment.PageCount, slop: Environment.PageCount]; 
AllocateltemDescriptor; -FormSW- procedure [ 

nitems: cardinal, z: uncounted zone <- nil] returns [ItemDescriptor] ; 
AllocateListOfiDs: -LibrarianUtility- procedure [maxIDs: cardinal] 
returns [IDArrayHandle]; 

AllocationPool: -ObjAlloc- type = packed array [0..0) of AllocFree; 
AllocationVector: -PrincOps- type = array FSlndex of AVItem; 

AllocFree:-Ob/A//oc-- TYPE = machine OEPENDENT{free, alloc}; 

AllocPoolDesc:--Ofa/AZ/oc-- TYPE = record [ 

allocPool: long pointer to AllocationPool, poolSize: ItemCount]; 

AllocTag; -PrincOps- type = {frame, empty, indirect, unused}; 

AllocVFN: -FileName- procedure [long string] returns [VFN]; 
allSelections: -NSFile- readonly Selections; 

AlmostEqual: -RealFns- procedure [y: real, x: real, distance: [-126..0]] 

RETURNS [boolean]; 

AlmostZero; -Pea/Fns --procedure [x: real, distance: [-126.127]] 

RETURNS [boolean]; 

Alphabetic: -Token— FilterProcType; 

AlphaNumeric: -Token- FilterProcType; 

Already Formatted: -F/oppy- signal [labelstring: long string]; 

AlreadyFreed: — ObyA//oc-ERROR(item: Itemindex]; 
altLO: -ProtocolCertification- Stage; 
altLI: -ProtocolCertification- Stage; 

AlwaysConfirm; —HeraldWindow— ConfirmProcType; 

AnnounceStream: -NSDataStream- procedure [cH; Courier.Handle]; 
AnonymousBackingFileSize: -PilotSwitches- type = PilotDomainC [173C..175C]; 
anyEthernet: -DeviceTypes- Device.Type; 
anyPilotDisk: -DeviceTypes- Device.Type; 

Append: -Time- procedure [ 

s: LONG string, unpacked: Unpacked, zone: boolean «- false, 
zoneStandard; TimeZoneStandard <-ANSI]; 

Append: -Version- procedure [long string]; 

AppendBrokenMessage - HeraldWindow- procedure [ 

msgl: long string <- nil, msg2: long string *- nil, msg3: long string <- nil, 
newline; boolean *— true, clearOld: boolean <— true]; 

AppendChar; -MDSStorage- procedure [p: pointer to string, c: character]; 
AppendChar: -TTYSW-- procedure [sw; Window. Handle, char: character]; 
AppendCharacter: -NSString- procedure [to: String, from: Character] 

RETURNS [String]; 

AppendCommands: -Fxec- procedure [h: Handle, command: long string]; 
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AppendCurrent: -Time- procedure [ 

s: LONG STRING, zone: boolean FALSE, Itp: LTP ^ useSystem, 
zoneStandard: TimeZoneStandard <—ANSI]; 

AppendDecimal: -ExtendedString- procedure [ 

field; long pointer, size: cardinal, string: long string]; 

AppendDecimal: -NSString- procedure (s: String, n; integer] returns [String]; 

AppendErrorMessage: -MFile- procedure [ 

msg: long string, code: ErrorCode, file: Handle]; 

AppendExtensionlfNeeded: -MDSStorage-- procedure [ 

to: pointer TO string, extension; long string] returns [boolean]; 

AppendLogicalVolumeName: -HeraldWindow- procedure [ 
s: LONG STRING, id: Volume. ID <— Volume.systemID]; 

AppendLongDecimal: -NSString- procedure [s: String, n: long integer] 
returns [String]; 

AppendLongNumber: -NSString- procedure [ 

s: String, n: long unspecified, radix: cardinal «- 10] returns [String]; 

AppendMessage: -HeraldWindow- procedure [ 

msg; long string «-nil, newLine: boolean <-true, clearOld; boolean «-true]; 

AppendNameToString: -NSName- procedure [ 

s: String, name; Name, resetLengthFirst: boolean «- false] 

RETURNS [newS; String]; 

AppendNumber: -ExtendedString- procedure [ 

field; LONG POINTER, size; cardinal, base; cardinal, string; long string]; 

AppendNumber; -NSString- procedure [ 

s: String, n: unspecified, radix: cardinals- 10] returns [String]; 

AppendOctal: -ExtendedString- procedure [ 

field: long pointer, size; cardinal, string: long string]; 

AppendOctal: -NSString- procedure [s: String, n: unspecified] 

RETURNS [String]; 

AppendPhysicalVolumeName: -HeraldWindow- procedure [s: long string]; 

AppendReal: -Real- procedure [ 

s: LONG string, r: real, precision: cardinal DefaultSinglePrecision, 
forceE: boolean <- false]; 

Appendstring; -MDSStorage— procedure [ 

to: pointer to string, from: long string, extra: cardinal «- 0]; 

Appendstring: -MsgSW- Userinput.StringProcType; 

Appendstring: -NSString- procedure [to: String, from: String] 

RETURNS [String]; 

Appendstring; -TTYSW- Userinput.StringProcType; 

AppendSubString; -A/SStr/ng-- procedure [to; String, from; Substring] 

RETURNS [String]; 

AppendSwitches: -HeraldWindow— procedure [s: long string]; 

AppendToMesaString: -NSString- procedure [to: MesaString, from: String]; 

Block: -Environment- type = record [ 

blockPointer: long pointer to packed array [0..0) of Byte, 
startindex: cardinal, 
stopIndexPlusOne; cardinal]; 

Block: -Format- procedure [ 

proc: StringProc, block: Environment.Block, clientData: long pointer «-nil]; 

Block; -Put- PROCEDURE [h: Window. Handle <- nil, block: Environment.Block]; 

BlockSize; -Zone- type = cardinal; 

Boolean; -Token- procedure [h: Handle, signalOnError: boolean <-true] 

RETURNS [true; boolean]; 

BooleanChoices: -FormSW- procedure returns [EnumeratedDescriptor]; 

BooleanDefaultFalse- -Volume- type = boolean ^ false; 

BooleanFalseDefault;-A/SP//e- TYPE = boolean <-false; 
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BooleanFalseDefault;-A/SSess/onContro/-- TYPE = boolean «- false; 
BooleanHandle: -FormSW - type = long pointer to boolean ItemObject; 
Booleanitem: -FormSW- procedure [ 

tag; long string *- nil, readonly: boolean «- false, invisible: boolean <- false, 
drawBox; boolean «- false, hasContext: boolean <- false, 
place: window.Place <— nextPlace, proc: NotifyProcType <- NopNotifyProc, 
switch; LONG POINTER TO BOOLEAN, Z: UNCOUNTED ZONE <- NIL] 

RETURNS [BooleanHandle]; 

BootFilePointer: -P/oppy-TYPE = record [file: FilelD, page; PageNumber]; 
BootFileType: -Othe//oOps-- type = {hardMicrocode, softMicrocode, germ, pilot}; 
BootFromFile; -HeraldWindow- procedure [ 

name: long string, bootSwitches; System.Switches<-switches, 
postProc: Format.StringProc DefaultPost, 
confirmProc: ConfirmProcType «— DefaultConfirm]; 

BootFromVolumelD: --Hera/dW/nc/ow-- procedure [ 

id: volume.lD, bootSwitches: System.Switches «-switches, 
postProc: Format.StringProc <- DefaultPost, 
confirmProc: ConfirmProcType ^ DefaultConfirm]; 

BootFromVolumeName: -HeraldWindow- procedure [ 

name: long string, bootSwitches: System.Switches <- switches, 
postProc: Format.StringProc <- DefaultPost, 
confirmProc: ConfirmProcType <— DefaultConfirm]; 
bootPhysicalVolume: -EventTypes- Supervisor. Event; 
bootPhysicalVolumeCancelled; -EventTypes- Supervisor. Event; 
bootServerSocket: -NSConstants- System. SocketNumber; 

Bounds: --TextSW-- type = record [ 

from; Position, to: Position, delta: long integer]; 

Box: -Too/W/ndow - TYPE = Window Box; 

Box: -Window— TYPE = record [place; Place, dims; Dims]; 

BoxesAreOisjoint: -Window- procedure [a: Box, b: Box] returns [boolean]; 
boxFIags; -Display- BitBItFlags; 

BoxHandle: -Window- type = long pointer to Box; 

BoxProcType: -ToolWindow- type = procedure returns [box: Box]; 

Brackets: -Token- QuoteProcType; 

BracketType:--Ma/VParse-- TYPE = record] 

group; boolean «- false, routeAddr: boolean e -false ]; 
breakO:--P/7otSw/tches--PilotDomainA = 60C; 
break 1:--P//otSw/tches--Pi I otDomainA = 61C; 
break2:--P/7otSw/tc/ies--PilotDomainA = 62C; 
breakFileMgr:-Pi7otSw/tc/)es-PilotDomainA = 72C; 

BreakReason:-D/sp/ay-TYPE = {normal, margin, stop); 

BreakReason:-rextS/nfc--TYPE = (eol, consumed, margin}; 
breakVMMgr:-Pf/otSw/tches-PilotDomainA = 73C; 

Brick; -Display- type = long descriptor for array cardinal of cardinal; 

BS:--Asc/7- CHARACTER = IOC; 

Buffer: -CH-type = long pointer to BufferArea; 

BufferArea: -CH-type = machine dependent record [ 
maxlength(0:0..15); cardinal [0..7777B], 
length(1:0.. 15); cardinal [0..7777B], 
data(2): sequence computed cardinal of word]; 

BufferTooSmall; -CH- signal [offender: Buffer, lengthNeeded; cardinal] 

RETURNS [newBuffer: Buffer]; 

BuildPropertyArray: -LibrarianUtility- procedure [fileName: long string] 

RETURNS [PropertyArray]; 

bypassDebuggerSubstitute; -PilotSwitchesExtras— PiiotSwitches.PilotDomainC = 
370C; 
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Byte; -Environment - type = [0..255]; 

BYTE;-Pr/ncOps- TYPE = [0..255]; 

ByteBit; -ByteBIt- procedure [ 

to: Environment.Block, from: Environment.Block, 

overlap; OverLapOption <- ripple] returns [nBytes: cardinal]; 

ByteCount; --MF/7e-- type = long cardinal; 

ByteCount; -NSSegment- type = long cardinal; 

BytePair:-/n/me- TYPE = machine dependent record [ 
high(0;0..7); [0 .255], low(0:8..15); [0..255]]; 

BytePC: -PrincOps- type = record [cardinal]; 
bytesPerPage: -Environment- cardinal =512; 
bytesPerWord:--Env/ronmer)t-- CARDINAL = 2; 

CADFileType:--F//erypes-- TYPE = cardinal [22400B..22777B]; 
CalculateincrementalEthernetStats: -RemoteCommDiags- procedure [ 
host: System. NetworkAddress, 
baseEthernetStatistics: long pointer to 

CommOnlineDiagnostics.EtherStatsResult, 

currentEthernetStatistics; long pointer to 
CommOnlineDlagnostics.EtherStatsResult] 

RETURNS [CommOnlineDiagnostics.EtherStatsResult]; 

Call: -Courier- procedure [ 

cH: Handle, procedureNumber: cardinal, arguments: Parameters <- 
null Parameters, 

results: Parameters«- nullParameters, 
timeoutInSeconds: long cardinal <— 37777777777B, 
requestDataStream: boolean «— false, 

streamCheckoutProc: procedure [cH: Handle] <- nil] returns [sH: stream. Handle]; 
Call: -Exped/tecfCour/er- PROCEDURE [ 

programNumber: long cardinal, versionNumber; cardinal, 
procedureNumber: cardinal, 

arguments: Couner.Parameters <-Courier.nullParameters, 
address; System. NetworkAddress, response; ResponseProc]; 

CallToAddresses: --Expecf/fedCour/er-- procedure [ 

programNumber: long cardinal, versionNumber: cardinal, 
procedureNumber; cardinal, 

arguments: Couner.Parameters <- Courier.nullParameters, 

socket; System. SocketNumber, addresses: AddrList, response; ResponseProc, 

responseBufferCount: cardinal «- 5]; 

CallToInternetRing: -ExpeditedCourier- procedure [ 

programNumber; long cardinal, versionNumber: cardinal, 
procedureNumber: cardinal, 

arguments: courier.Parameters<—Courier.nullParameters, ring; RingBound, 
socket: System. SocketNumber, action: ExpandingRingAction, 
eachResponse: ResponseProc, newRadiusNotify: NewRadiusNotifyProc <- nil, 
responseBufferCount: cardinal ^ 5]; 

CancelAbort: -Process- procedure [process: unspecified]; 

CancelPeriodicNotify; -Userlnput- procedure [PeriodicNotifyHandle] 

RETURNS [nil; PeriodicNotifyHandle]; 

CancelTicket: -NSDataStream- procedure [ticket: Ticket, cH: Courier.Handle]; 
cannotExpand: -fextSource- cardinal = 177777B; 

CantInstallUCodeOnThisDevice: -FormatPilotDisk- error; 

CaretProcType: -Userlnput-type = procedure [ 
window: window, Handle, startStop: StartStop]; 
caretRate: -Userlnput- Process. Ticks; 

Cause:-Authent/cator - TYPE = machine dependent{ 

userKeyNotFound, serverKeyNotFound, authServerDown, 
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remoteAuthServerDown, 

communicationError, protocolViolation, weakAndStrongNotImplemented, 
(177777B)}; 

cdc9730: -DeviceTypes - Device. Type; 

CedarFileType: -F/VeTypes-- type = cardinal [23000B..23377B]; 

ch3chs:--CHP/Os-CH.PropertylD = 25; 

chSciu: --CHP/Os--CH.PropertylD = 22; 

ch3ecs; --CHP/Ds-- ch. Property ID = 20; 

ch3fileserver:-CHP/Ds-CH.PropertylD = 10; 

ch3gws: --CHP/Ds-CH.PropertylD = 24; 

ch3its:--CWP/DS'- ch.P roperty!D = 23; 

ch3mailserver:--CHP/OS--CH.PropertylD = 15; 

ch3printserver:-CHP/Ds--CH.PropertylD =11; 

chSremote: -CHP/Ds-CH.PropertylD = 16; 

chSrouter:-CHP/Ds-CH.PropertylD = 12; 

ch3rs232cport: -CHP/Ds-CH.PropertylD = 21; 

chSuser:-CHP/Ds-CH.PropertylD = 14; 

ch3workstation:-CHP/Ds—CH.PropertylD = 17; 

ch4ciu: -CHP/Ds-CH.PropertylD = 28; 

ch4rs232cPort:-CHP/Ds-CH.PropertylD = 27; 

ch5ecs: -CHP/Ds-CH.PropertylD = 46; 

ch5fileserver; -CHP/Ds-CH.PropertylD = 49; 

ch5gws: -CHP/Ds-CH.PropertylD = 48; 

ch5ibm3270host;-CHP/Ds-CH.PropertylD = 54; 

ch5irs; -CHP/Ds-CH.PropertylD = 45; 

ch5its; -CHP/Ds-CH.PropertylD = 47; 

ch5printserver: -CHP/Ds-CH.PropertylD = 50; 

ch5server: -CHP/Ds-CH.PropertylD = 42; 

ch5starUser: -CHP/Ds-CH.PropertylD = 44; 

ch5starWorkstation: -CHP/Ds—CH.PropertylD = 41; 

ch5user:-CHP/Ds-CH.PropertylD = 43; 

ch5workstation: -CHP/Ds-CH.PropertylD = 40; 

ChangeAttributes: -NSFile- procedure [ 

file; Handle, attributes: Attribute List, session; Session nullSession]; 

ChangeAttributesByName: -NSFile- procedure [ 

directory: Handle, path: String, attributes: AttributeList, 
session: Session nullSession]; 

ChangeAttributesChild: -NSFile- procedure [ 

directory; Handle, id: ID, attributes: AttributeList, 
session; Session «-nullSession); 

ChangeControls: -NSFile- procedure [ 

file: Handle, controlSelections; ControlSelections, controls: Controls, 
session: Session «- nullSession); 

ChangeLabelString: -Volume- procedure [volume; ID, newLabel; long string); 
ChangeName: —P/?ys/ca/V'o/ume— procedure [pvID: ID, newName: long string); 
ChangeSessionRestrictions: -NSSessionControl- procedure [ 

selections: SessionRestrictionSelections, restrictions; SessionRestrictions, 
terminateRestrictedSessions: boolean <- false); 

ChangeValueProperty: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Name, 
pn: PropertylD, newRhs: Buffer, distingName: Name] returns [rc: ReturnCode); 
ChannelAlreadyExists: -TTYPort- error; 

ChannelHandle: -RS232C- type [2]; 

ChannelHandle: -TTYPort- type = long pointer; 

ChannellnUse: -RS232C- error; 

ChannelQuiesced: -TTYPort- error; 
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ChannelSuspended: -RS232C- error; 

Char: -Format- procedure [ 

proc: StringProc, char: character, clientData: long pointer <- nil]; 

Char: -Put-- procedure [h: window.Handle<-NiL, char: character]; 

Character: -Display- procedure ( 

window: Handle, char; character, place: window. PI ace, 
font: windowFont. Handle <— NIL, flags: BitBltFlags<—textFlags, 
bounds: wmdow.BoxHandle <- nil] returns [window. Place]; 

Character: -NSString- type = machine dependent record { 

chset(0:0..7): Environment.Byte, COde(0:8..15): Environment.Byte]; 

CharacterLength: -TTYPort- type = TTYPortEnvironment.CharacterLength; 

CharacterLength: -TTYPoftfnwronment- type = { 

lengthlsSbits, lengthlsSbits, Iengthls7bits, lengthlsBbits}; 

Characters: -NSString- type = long descriptor for array cardinal of Character; 

characterSetChangeOverhead:-A/SA/ame- cardinal = 2; 

charCmd: -BandBir- cardinal = 0; 

CharEntry: -Fonts- type = machine dependent record [ 
leftKern(0:0..0): boolean, 
rightKernfO: 1..1): boolean, 
offset(0:2..15): cardinal [0..37777B], 
mica(1:0..15): cardinal]; 

CharlsOefined: -WindowFont- procedure [ 

char: character, font: Handle «-defaultFont] returns [boolean]; 

CharLength:-PS232C- type = RS232CEnvironment.CharLength; 

CharLength:-PS232Cfnwfonment-TYPE = [5..8]; 

CharsAvailable: -TTY- procedure [h: Handle] returns [number: cardinal]; 

CharsAvailabie: -TTYPort- procedure [channel: ChannelHandle] 

RETURNS [number: cardinal]; 

CharsAvailable: -TTYSW- procedure [sw: window. Handle] returns [cardinal]; 

charsPerPage: -Env/ronment- cardinal = 512; 

charsPerWord: -Environment- cardwal = 2; 

CharStatus: -TTY-type = {ok, stop, ignore}; 

CharWidth: -WindowFont- procedure [ 

char; character, font; Handle ^defaultFont] returns [natural]; 

CheckAbortProc: -Exec- type = procedure [h; Handle] returns [abort; boolean]; 

CheckAbortProc: -FileTransfer— rypi = procedure [clientData: long pointer] 
RETURNS [abort: boolean]; 

CheckChanges: -Petr/eveDefs- procedure [handle: Handle]; 

CheckCredentialsProc: -NSSessionControl- type = procedure [ 
credentials: NSFiie.Credentials, verifier; NSFiie. Verifier, 
privileged: boolean] 

RETURNS [status: AuthenticationStatus, fullName; NSString. String]; 

CheckForAbort; -Exec- CheckAbortProc; 

CheckOwner: -Heap- procedure [p: long pointer, z; uncounted zone]; 

CheckOwnerMDS: -Heap- procedure [p; pointer, z: MDSZone]; 

Checksum: -MFileProperty- mfiic. Property; 

checksum: -NSAssignedTypes- AttributeType = 0; 

CheckVerifier: -NSSessionControl- procedure [ 
verifier: NSFiie.Verifier, session: NSFiie.Session] 

RETURNS [AuthenticationStatus]; 

childrenUniquelyNamed;-A/SAss/gnedrypes~ AttributeType = 1; 

CHLookupProblem: -AddressTranslation- error [rc: cn.ReturnCode]; 

Circle: -Display- procedure [ 

window; Handle, place: Window. Place, radius: integer, 
bounds: window. BoxHandle <— nil]; 
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CIU: -CHLookup- type = machine dependent record [ 
location(0:0..63): NSString. String, 
owningECS{4:0..63); NSString. String, 
moclel(8:0..15): CIUModel, 

timeStamp(9:0..31): System.GreenwichMeanTime, 
address(11:0..31): NSAddr.NSAddr); 

CIUDescribe: -CHLookup- Couner.Description; 

CIUModel;-CHLoofcup-- TYPE = machine dependent{ 
oneBoard, twoBoards, threeBoards, fourBoards}; 

C\UPt: -CHLookup- TYPB = long pointer to CIU; 

Clarity:--W/ndow-- type = {isClear, isDirty}; 

Class: -TextSource— type = {none, eol, alpha, space, other}; 

ClassOfService:-A/etwor<tStream--TYPE = (bulk, transactional}; 

Clear: -MsgSW- procedure [sw: window.Handlel; 

ClearAttributeList: -NSFile- procedure (attributeList: AttributeList]; 
ClearAttributes; -NSFile- procedure (attributes: Attributes]; 
clearingHouseSocket; -NSConstants- System SocketNumber; 
ClearinputFocusOnMatch: -Userinput- procedure [w; Window. Handle); 
CtearName: --A/SA/ame-- procedure (z; uncounted zone, name: Name); 
clickTimeout; -TIP- System. Pulses; 

ClientData:--Caret- TYPE = long pointer; 

ClientDest:-DebugC/setu/Oe^J- TYPE = pointer; 
clientDirectoryWords;-A/SAss/gnec/Types-AttributeType = 10373B; 
clientFileWords;-A/SAss/grtedrypes-AttributeType = 10372B; 
ClientItemsProcType: -PormSW- type = procedure [sw: window.Handle] 
returns [items: Item Descriptor, freeDesc: boolean); 

ClientProc: -FileTransfer- typb = procedure [ciientData: long pointer); 
clientSize:-A/SAss/gnedrypes-AttributeType = 10375B; 

ClientSource; -OefaugC/sefu/Deft- type = pointer to readonly unspecified; 
clientStatus:-A/SAss/gnedrypes-AttributeType = 10374B; 

Close: -CmFile- procedure [h; Handle) returns [nil: Handle); 

Close: -FileTransfer- procedure [conn: Connection); 

Close: -Floppy- procedure [volume; VolumeHandle); 

Close: -Log- procedure; 

Close: -NetworkStream- procedure [sH: stream. Handle] returns [CloseStatus); 
Close: -NSFile- procedure [file; Handle, session: Session <— nullSession); 

Close: -A/SVo/umeContro/— procedure [volume; volume. ID); 

Close: -Volume— procedure [volume; ID); 

CloseAborted; -MVolume- error; 

CloseReply; -NetworkStream- procedure [sH: stream.Handle) 

RETURNS [CloseStatus); 

closeReplySST: -A/etworkStream- stream. SubSequenceType = 255; 
closeSST:-A/etworkStream-stream.SubSequenceType = 254; 

CloseStatus: -NetworkStream- type = (good, noReply, incomplete}; 
cmcll: -RS232CCorrespondents- RS232CEnvironment. Correspondent; 

Code:-CH- TYPE = machine dependent{ 

done, notAllowed, rejectedTooBusy, allDown, (4), badProtocol, 
illegalPropertylD(IO), illegalOrgName, illegalDomainName, illegalLocalName, 
noSuchOrg, noSuchDomain, noSuchLocal, propertylDNotFound(20), 
wrongPropertyType, noChange(30), outOfDate, overflowOfName, 
overflowOfDataBase, (50), (60), wasUpNowDown(70), (177777B)}; 
codebaseHighOffset: -Pr/ncOps- cardinal = 1; 
codebaseLowOffset: -PnncOps- cardinal = 2; 

CodeSegment: -Pr/ncOps- type = machine dependent record [ 
header(0;0..63); PrefixHeader); 

CodeToString; -FileTransfer- procedure [ErrorCode, long string); 
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Command:--SandStr- TYPE = cardinal [0.. 15]; 

CommandHandle:-FormSW- TYPE = long pointer to command ItemObject; 

Commanditem: --formSW- procedure [ 

tag: long string «- nil, readonly: boolean <- false, invisible: boolean <- faIse, 
drawBox: boolean <— false, hasContext: boolean «- false, 
place: window. Place *- nextPlace, proc: ProcType, z: uncounted zone <- nil] 
RETURNS [CommandHandle]; 

CommError: -CommOnlineDiagnostics- brror [reason: CommErrorCode]; 

CommErrorCode: -CommOnlineDiagnostics- typb = machine depend£Nt{ 

transmissionMediumProblem, noAnswerOrBusy, noRouteToSystemElement, 
remoteSystemElementNotResponding, tooManyConnections, noSuchDiagnostic, 
com m u ni cati on Error}; 

ApproveConnection: -NetworkStream- procedure [ 

listenerH: ListenerHandle, streamTimeout: WaitTime <— infiniteWaitTime, 
classOfService: ClassOfService <-bulk] returns [sH: stream. Handle]; 

Arc: -Display- procedure [ 

window: Handle, place: window.Place, radius: integer, startSector: cardinal, 
stopSector: cardinal, start: window.Place, stop: window.Place, 
bounds: window.BoxHandle nil]; 

ArcTan: -RealFns- procedure [y: real, x: real] returns [radians: real]; 

ArcTanDeg: -RealFns- procedure [y: real, x: real] returns [degrees: real]; 

ArgumentProblem: -A/SF//e-- type = machine dependent{ 

illegal, disallowed, unreasonable, unimplemented, duplicated, missing}; 

Arguments: -Courier- type = procedure [ 

argumentsRecord: Parameters *r- nullParameters]; 

ascendingPositionOrdering: -NSFile- key Ordering; 

AsciiAppend: -TextSource- procedure [ 

source: Handle, string: long string, start: Position, n: cardinal]; 

AsciiDeleteSubString: -TextSource- procedure [ 

ss: string.SubString, keepTrash: boolean] returns [trash: long string]; 

AsciiDoEditAction: -TextSource- DoEditActionProc; 

AsciilnsertBlock: -TextSource- procedure [ 

string: long pointer to long string, position: cardinal, 
toAdd: Environment.Block, extra: cardinal]; 

AsciiScanText: -TextSource- ScanTextProc; 

AsciiTestClass: -TextSource- procedure [char: character, class: Class] 
returns [equal: boolean]; 

AsciiTextSearch: -TextSource— procedure [ 

source: Handle, string: long string, start: Position «—0, 
stop: Position <- ^7777777177^, ignoreCase: boolean «- false] 

RETURNS [lineStart: Position, left: Position]; 

AssertLocal: --/VSOataStream-- procedure [stream: Handle]; 

AssertNotAPilotVolume: -PhysicalVolume- procedure [instance: Handle]; 

AssertPilotVolume: -PhysicalVolume- procedure [instance: Handle] returns [ID]; 

AssignAddress: -Router- procedure returns [System. NetworkAddress); 

AssignDestinationRelativeAddress: -Router- procedure [system. NetworkNumber] 
RETURNS [System. NetworkAddress]; 

AssignedType: -NSAssignedTypes- type = long cardinal; 

AssignNetworkAddress: -NetworkStream- procedure 
RETURNS [System. NetworkAddress]; 

AssignServicelD: -NSSessionControl— procedure returns [ServicelDj; 

atom: -Atom- type = long string <- nil; 

AttentionProcType: -Userlnput- type - procedure [window: window.Handle]; 

Attribute: -NSFile- type = machine dependent record [ 
var(0:0..111): select type(0:0..15): AttributeType from 
filelD = > [valued :0..79): ID], 
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parentID = > [value(1 ;0..79): ID], 

checksum = > [value(1:0.. 15): cardinal], 

type = > [value(1:0..31); Type], 

position = > [value(1:0..47); Position], 

systemElement = > [value(1:0..95): SystemElement], 

volumelD = > [value(1:0..79): Volume], 

ordering = > [value(1:0..79); Ordering], 

accessList = > [value(1:0..63): AccessList], 

defaultAccessList = > [value(1 ;0..63): AccessList], 

backedUpOn = > [value(1:0..31): Time], 

createdOn = > [value(1:0..31): Time], 

filedOn = > [value(1:0..31): Time], 

modifiedOn = > [value(1:0..31): Time], 

readOn = > [value(1:0..31): Time], 

createdBy = > [value(1:0..63): String], 

filedBy = > [value(1:0..63): String], 

modifiedBy = > [value(1:0..63): String], 

name = > [value(l :0..63): String], 

pathname = > [value(1:0..63): String], 

readBy = > [value(1:0..63): String], 

childrenUniquelyNamed = > [value(1:0..15): boolean], 

isDirectory = > [value(1:0..15): boolean], 

isTemporary = > [value(1:0..15): boolean], 

version = > [value(1:0..15): cardinal], 

numberOfChildren = > [value(1:0..15): cardinal], 

sizeInBytes = > [vaiue(1:0..31): long cardinal], 

sizeInPages = > [value(1:0..31): long cardinal], 

subtreeSize = > [value(1:0..31): long cardinal], 

subtreeSizeLimit = > [value(1:0..31): long cardinal], 

extended = > [type(1:0..31): ExtendedAttributeType, value(3:0..47): Words], 
endcase]; 

AttributeList: -NSFile- type = long descriptor for array cardinal of 
A ttribute; 

Attributes: -F/oppyChanne /--type = record] 
deviceType: {SA800, SA850}, 
numberOfCylinders: [0..255], 
numberOfHeads: [0..255], 
trackLength: cardinal]; 

Attributes: -Heap -type = record] 

SELECT tag: Type from 
normal = > ] 

largeNodePages: Environment. PageCount, 
threshold: NWords, 
largeNodeThreshold: NWords], 
uniform = > ]objectSize: NWords], 
endcase]; 

Attributes:-A/SF//e-TYPE = long pointer to AttributesRecord; 

AttributesProc: -A/SF/7e —type = procedure ]attributes: Attributes] 

RETURNS ]continue: boolean true]; 

AttributesRecord:-A/SF/7e-TYPE = record] 
filelD: ID, 

systemElement: SystemElement, 
volumelD: Volume, 
name: String, 
pathname: String, 
version: cardinal. 
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checksum: CARDINAL, 
type:Type, 
isOirectory: boolean, 
isTemporary: boolean, 
parentID: ID, 
position: Position, 
backedUpOn: Time, 
createdOn: Time, 
filedOn: Time, 
modifiedOn: Time, 
readOn: Time, 
created By: String, 
filedBy: String, 
modifiedBy: String, 
readBy: String, 
sizeInBytes: long cardinal, 
sizeInPages: long cardinal, 
accessList: AccessList, 
defaultAccessList: AccessList, 
ordering: Ordering, 
childrenUniquelyNamed: boolean, 
subtreeSizeLimit: long cardinal, 
subtreeSize: long cardinal, 
numberOfChildren: cardinal, 
extended: ExtendedAttributeList); 

AttributeType: -NSAssignedTypes- typs. = NSFiie. ExtendedAttributeType; 

AttributeType:-A/SF/7e-- TYPE = machine dependent{ 

checksum, childrenUniquelyNamed, createdBy, createdOn, filelD, isDirectory, 
isTemporary, modifiedBy, modifiedOn, name, numberOfChildren, ordering, 
parentID, position, readBy, readOn, sizeInBytes, type, version, accessList, 
defaultAccessList, pathname, volumelD, backedUpOn, filedBy, filedOn, 
sizeInPages, subtreeSize, subtreeSizeLimit, systemElement, extended}; 

Authenticate: -Authenticator- procedure [ 

serverKey: Key, credentials: Credentials, verifier: Verifier, userName: Name] 
RETURNS [flavor: Flavor, status: Status]; 

AuthenticationProblem:--A/SA/ame--TYPE = machine dependent{ 
credentialsinvalid, verifierinvalid}; 

AuthenticationStatus:-A/SSess/onContro/--TYPE = { 

valid, noSuchUser, incorrectPassword, cannotAuthenticate, invalidCredentials, 
invalidVerifier); 

AutoRecognitionOutcome: --RS232C-- type = 
RS232CEnvironment.AutoRecognitionOutcome; 

AutoRecognitionWait: ~RS232C- procedure [channel: ChannelHandle] 

RETURNS [outcome: AutoRecognitionOutcome); 

AV: -PrincOps- AV H a nd I e; 

AVHandle:--Pr/ncOps-- TYPE = pointer to AllocationVector; 

AVHeap: -PrincOps- type = array [0..31] of AVItem; 

AVHeapSize:--Pr/ncOps-- cardinal = 32; 

AVItem: -Pr/ncOps- type = machine dependent record [ 

SELECT OVERLAID * FROM 

data = > [fsi(0:0..13): [0..37777B], tag(0:14..15): AllocTag], 
link = > [link(0:0..15): pointer to AVItem], 
frame = > [frame(0:0..15): LocalFrameHandle], 
endcase]; 
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AwaitStateChange: -PhysicalVolume— procedure [ 

changeCount: cardinal, index: cardinal «—nullDevicelndex] 

RETURNS [currentChangeCount: cardinal]; 

backed U pOn:--WSAss/gnetyrypeS'-AttributeType = 23; 

Background:--OnZ/neO/agnost/cs--TYPE = {white, black}; 

Background:--t/sefferm/na/--TYPE = {white, black); 

BackingStream: -TTY- procedure [h: Handle] returns [stream; stream. Handle]; 

BackingStream: -TTYSW- procedure [sw; window. Handle] returns [stream. Handle]; 

BackupLog: --/VfStream-- procedure [stream: Handle, count: MFiie.ByteCount] 

RETURNS [backedUp; MFiie.ByteCount]; 

BadFormatSnapShot: -LibrahanUtility- signal [badLine: long string]; 

BadPage: -FormatPilotDisk- signal [p; DiskPageNumber]; 

BadSwitches: -OthelloOps- error; 

BadSyntax: -AddressTranslation- error [field: Field]; 

balanceBeamChoice: -Profile- readonly BalanceBeamChoice; 

BalanceBeamChoice: -Profile- type = {never, notForCharacter, always); 

Band;-tsepface-- TYPE = long pointer; 

BandBLT: -BandBLT- procedure [BandBLTTablePtr] returns [long pointer]; 

BandBLTTable;--SandStr-- TYPE = machine dependent record [ 
readLO(0;0..15): PageNumber, 
bandlist(1:0..31): long pointer, 
writeLO(3:0.. 15): PageNumber, 
bandbuf(4:0..31): long pointer, 
fontPtrTbl (6; 0.. 15): PageN u m ber, 
fontRasters(7:0..15): PageNumber, 
inkwells(8;0..15): PageNumber]; 

BandBLTTableAlignment: “SandSir-- CARDINAL = 16; 

BandBLTTablePtr: ~Sanc/8i.r—TYPE = pointer to BandBLTTable; 

BandBufferCount:--/?avenface--TYPE = cardinal [1..8]; 

bandBufferSize:--Sanc/8Z.r--Environment.PageCount = 16; 

BandFull: -Ravenface-- procedure [band: Index] returns [bandBusy: boolean]; 

BandListItemLongPointer: -BandBLT-TVPS = machine dependent record [ 
select overlaid * FROM 
ptr = > [ptr(0;0..31): long pointer], 
char = > [char(0;0..31): long pointer to char BIItem], 

leftOverChar = > [leftOverChar(0;0..31); long pointer to leftOverChar Blltem], 

rectangle = > [rectangle(0:0..31): long pointer to rectangle Blltem], 

setLevel = > [setLevel(0:0..31): long pointer to setLevel Blltem], 

setink = > [setlnk(0:0..31): long pointer to setink Blltem], 

endOfBand = > [endOfBand(0;0..31): long pointer to endOfBand Blltem], 

endOfPage = > [endOfPage(0;0..31); long pointer to endOfPage Blltem], 

rulette = > [rulette(0:0..31); long pointer to rulette Blltem], 

nopi = > [nop1(0:0..31): long pointer to nopi Blltem], 

nop2 = > [nop2(0:0..31): long pointer to nop2 Blltem], 

endcase]; 

BandOverrun: -RavenFace- procedure returns [boolean]; 

BandPointer: --RavenFace-- type = long pointer; 

Base: -Environment- type = long base pointer; 

Base: -/WSegment- procedure [segment: Handle] returns [Environment.PageNurnber]; 

Base: -Zone- type = Environment.Base; 

BaseDirectoryProc: -NSVolumeControl- type = procedure [ 
baseString: NSStnng.String, baseReference: NSFile.Reference] 

RETURNS [status: BaseDirectoryStatus<—valid]; 

BaseDirectoryStatus: -NSVolumeControl— type = { 
cannotDetermine, invalid, invalidSyntax, valid); 
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BasetoSegment: -MSegment- procedure [page; Environment.PageNumber] 
RETURNS [Handle]; 

BBptr: -BitBIt- type = pointer to BBTable; 

BBTable:-S/tS/t-TYPE = machine dependent record [ 
dst(0:0..47): BitAddress, 
dstBpl(3:0. 15): integer, 
src(4:0..47); BitAddress, 
srcDesc(7;0..15): SrcDesc, 
width(8:0..15): cardinal, 
height(9:0..15): cardinal, 
flags(10;0 .15); BitBItFlags, 
reserved! 11:0..15); unspecified «-0]; 

BBTableAlignment; --S/tS/t— cardinal = 16; 

BBTableSpace: -BandBLT—jypi. = array [1..24] of word; 

BBTableSpace: --S/tS/t-- type = array [1..27] of unspecified; 

Beep: -UserTerminal— procedure [ 

frequency; cardinal «- 1000, duration: cardinal «- 500]; 

BEL;-Asc//- CHARACTER = 7C; 

Bit: -JLevelIVKeys— type = KeyStations.Bit; 

Bit: -Keys- type = KeyStations.Bit; 

Bit: -Keystations- type = Keystation; 

Bit:-LevellllKeys- TYPE = KeyStations.Bit; 

Bit:--Leve//V'KeyS— TYPE = KeyStations.Bit; 

BitAddress: -BitBIt- type = Environment.BitAddress; 

BitAddress; -Display- type = Sitsit.BitAddress; 

BitAddress; -Environment- type = machine dependent record [ 
word(0:0..31): long pointer, 
reserved(2:0..11): [0..7776B] «-0, 
bit(2:12..15): [0..15]]; 

BitAddressFromPlace: -Display- procedure [ 

base; BitAddress, x: natural, y: natural, raster: cardinal] 

RETURNS [BitAddress]; 

BITAND: -/n//ne-BitOp; 

BITBLT; -BitBIt- PROCEDURE [ptr: BBptr]; 

BitBItFlags: --8/tS/t--TYPE = machine dependent record [ 
direction(0:0..0): Direction «-forward, 
disjoint(0:1..1); boolean <- false, 
disjointltems(0;2..2): boolean «- false, 
gray(0:3..3): boolean «- false, 
srcFunc(0:4..4): SrcFunc null, 
dstFunc(0:5..6); DstFunc «-null, 
reserved(0;7..15): [0..511] <-0]; 

BitBItFlags:-D/sp/ay-- TYPE = BitBIt.BitBItFlags; 

BitBItTable: --S/tfi/t-TYPE = BBTable; 

BitBItTablePtr: --S/tS/t--TYPE = BBptr; 

bitFlags; -Display- BitBItFlags; 

Bitmap: -Display- procedure [ 

window: Handle, box; window.Box, address: BitAddress, 
bitmapBitWidth: cardinal, flags: BitBItFlags paintFlags]; 

BitmapIsDisconnected: -UserTerminal- error; 

BitmapPlace: -Window- procedure [window: Handle, place; Place <— [0,0]] 
RETURNS [Place]; 

BitmapPlaceToWindowAndPlace; -Window— procedure [bitmapPlace; Place] 
RETURNS [window: Handle, place: Place]; 

BITNOT: -Inline- procedure [unspecified] returns [unspecified]; 
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BitOp: --/n//ne--TYPE = procedure [unspecified, unspecified] 

RETURNS [unspecified]; 

BITOR: -Inline- BitOp; 

BITROTATE: -Inline- procedure [value: unspecified, count: integer] 
returns [unspecified]; 

Bits:--DebugL/sefu/Defs-- TYPE = [0..15]; 

BITSHIFT: -Inline- procedure [value: unspecified, count: integer] 
returns [unspecified]; 

bitsPerByte: -fnv/ronment - cardinal = 8; 

bitsPerCharacter: -Environment- cardinal = 8; 

bitsPerWord: --Environment-- cardinal = 16; 

BITXOR: -Inline- BitOp; 

Black: -Display- procedure [window: Handle, box: window. Box]; 

Blank: -Format- procedure [ 

proc: StringProc, n: cardinal 1, clientData: long pointer «- nil]; 

Blank: -Put- procedure [h: window.Handle «- nil, n: cardinal <- 1 ]; 

Blanks: -Format- procedure [ 

proc: StringProc, n: cardinals— 1, clientData: long pointer «— nil]; 

Blanks: -Put- procedure [h: window.Handle nil, n: cardinal <— 1]; 

BlinkOisplay: -TTY- procedure [h: Handle]; 

BlinkOispiay: -UserTerminal- procedure; 

BlinkingCaret: -TextSW- procedure [sw: window. Handle, state: OnOff]; 

Bl Item:-SancTSiLr- TYPE = machine dependent record [ 
tag(0:0..47): select overlaid * from 
char = > [ 

type(0:0..0): [0..1] «-charCmd, 
font(0:1 ..7): Font, 
cc(0:8..15): [0..255], 
xloc(1:0..3): [0..15], 
yloc(1:4..15): [0..7777B]], 
leftOverChar = > [ 

type(0:0..0): [0 .1] <-charCmd, 
font(0:1 ..7): Font, 
cc(0:8..15): [0..255], 
mustBeZero(1:0..3): [0..15]<-0, 
yloc(1:4..15): [0..7777B], 
alsoMust8eZero(2:0..3): [0..15] «-0, 
scansToSkip(2:4.. 15): [0..7777B]], 
rectangle = > [ 

type(0:0..3): Command <—rectangleCmd, 
yloc(0:4..15): [0..7777B], 
mustBeZero(1:0..3): [0..15]«-0, 
bitsPerScan( 1:4.. 15): [0..7777B], 
nScans(2:0..11): [0..7777B], 
xloc(2:12..15): [0..15]], 
setLevel = > [ 

type(0:0..3): Command <-setLevelCmd, 
mustBeZero(0:4..4): [0..1] «-0, 
pad(0:5..7): [0..7]<-0, 
levelnum(0:8..15): [0..255]], 
setink = > [ 

type(0:0..3): Command «-setlnkCmd, 
srcFunc(0:4..4): BitBit.SrcFunc null, 
dstFunc(0:5..6): BitBit.DstFunc <- null, 
unused(0:7..7): boolean «-null, 
inknum(0:8..15): [0..255]], 
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endOfBand = > [ 

type(0:0..3): Command «-endOfBandCmd, pad(0:4..15); [0..7777B] «-0], 
endOfPage = > [ 

type(0:0..3): Command <-endOfPageCmd, pad(0:4..15): [0..77778] «-0], 
rulette = > [ 

type(0:0 .3): Command ruletteCmd, 
yloc(0;4. 15): [0 .77778], 
length(1;0..11): [0..7777B], 
xloc(1:12..15): [0..15]], 

nopi = > [type{0:0..3): Command «—nopCmd1, pad(0:4.. 15): [0..7777B]<- 

0 ], 

nop2 = > [type{0:0..3): Command <-nopCmd2, pad(0:4..15): [0..7777B] «~ 

0 ], 

endcase]; 

Block;—8/oc/cSource—TYPE = Environment.BIOCk; 

Block: -Display- procedure [ 

window: Handle, block: Environment. Block, lineLength: integer «- infinity, 

place: window.Place, font: windowFont.Handle nil, 

flags: BitBItFlags <-textFlags, bounds: window.BoxHandle <- nil] 

RETURNS [newPlace: Window.Place, positions: cardinal, why: BreakReason]; 
CommonSoftwareFileType: -CommonSoftwareFileTypes- typs = 
FileTypes.CommonSoftwareFileType; 

CommonSoftwareFileType: -FileTypes—TYPB = cardinal [4000B..5777B]; 
CommParamHandle: --RS232C-- type = RS232CEnvironment.CommParamHandle; 
CommParamHandle: -RS232CEnvironment- type = pointer to CommParamObject; 
CommParamObject: -RS232C- type = RS232CEnvironment.CommParamObject; 
CommParamObject: -RS232CEnvironment~ typb = machine dependent record [ 
duplex(0:0..15): Duplexity, 
lineType(1:0..15): LineType, 
lineSpeed(2:0..15): LineSpeed, 

accessDetail(3:0..63); select netAccess(3:0..15); NetAccess from 
directConn = > null, 
dialConn = > [ 

dialMode(4:0..15); DialMode, 
dialerNumber(5;0..15): cardinal, 
retryCount(6:0.. 15): RetryCount], 
endcase]; 

Compact: -Floppy- procedure (volume; VolumeHandle]; 

CompareAddresses: -NSAddr- procedure [ 

a; Address, b: Address, ignoreSockets: boolean, ignoreNets: boolean] 

RETURNS [similar; boolean]; 

CompareNames: -NSName— procedure [ 

n1: Name, n2: Name, ignoreOrg: boolean «- false, ignoreDomain: boolean <- 

FALSE, 

ignoreLocal: boolean «- false] returns [Nsstring. Relation]; 

CompareNSAddrs: -NSAddr- procedure [ 

a: NSAddr, b: NSAddr, ignoreSockets: boolean, ignoreNets: boolean] 
returns [similar: boolean]; 

CompareProcType: --GSort— type = procedure [pi: long pointer, p2: LONG pointer] 

RETURNS [integer]; 

CompareStrings: -NSString- procedure [ 

si: String, s2: String, ignoreCase: boolean «- true] returns [Relation]; 
CompareStringsAndStems: -NSString- procedure [ 
si; String, s2: String, ignoreCase: boolean <- true] 

RETURNS [relation: Relation, equalStems: boolean]; 
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CompareStringsTruncated: -WSStr/ng- procedure [ 

si: String, s2: String, trunci: boolean «— false, trunc2; boolean <- false, 
ignoreCase: boolean «- true] returns [Relation]; 

CompareSubStrings; -NSString- procedure [ 

si: Substring, s2: Substring, ignoreCase: boolean «— true] returns [Relation]; 

compatibility:--A/SAss/gnedrype$--AttributeType = 10376B; 

CompleteFilename: -MFile- procedure [ 

name: long string, addedPart: long string] 
returns [exactMatch: boolean, matches: cardinal]; 

CompletionHandle: -RS232C-type = RS232CEnvironnnent.CompletionHandle; 

CompletionHandle: -RS232CEnvironment- type [2]; 

ComputeChecksum: --Checksum- procedure [ 

cs: CARDINAL *-0, nWords: cardinal, p: long pointer] 
returns [checksum: cardinal); 

ComputeFileType: ~/WF//e- procedure [file: Handle] returns [type: Type]; 

ConfigForFrame: -DebugilsefulDefs- procedure [ 
gf: GFHandle, config: long string]; 

Confirm; -fxec- procedure [h: Handle] returns [yes; boolean]; 

Confirmation;-F/Vefrans/er- type = machine dependent{ 
do, skip, abort, firstPrivate(8), null(255)}; 

ConfirmProcType:-Hera/dW/ndow- TYPE = procedure [ 

post: Format.StringProc, cleanup: boolean «- true] returns [okay; boolean]; 

Conic: -Display- procedure [ 

window: Handle, a; long integer, b: long integer, c: long integer, 
d: LONG integer, e: long integer, errorTerm: long integer, 
start: wmdow.Place, stop: window.Place, errorRef: window.Place, 
sharpCornered; boolean, unboundedStart: boolean, unboundedStop: boolean, 
bounds: Window.BoxHandle nil]; 

Connect:-SodyDe/s- TYPE = long string; 

Connection; -Fi/erransfer- type = long pointer to ConnectionObject; 

ConnectionFailed: -WetworkStream- signal [why: FailureReason]; 

ConnectionID; -NetworkStream- type [1]; 

ConnectionObject; -FileTransfer- type; 

ConnectionProblem: -A/SF/7e- type = machine dependent{ 

noRoute, noResponse, transmissionHardware, transportTimeout, 
tooManyLocalConnections, tooManyRemoteConnections, missingCourier, 
missingProgram, missingProcedure, protocolMismatch, parameterinconsistency, 
invalidMessage, returnTimedOut, otherCallProblem(177777B)}; 

ConnectionProblem;-A/SPr/nt-TYPE = machine dependent{ 

noRoute, noResponse, transmissionHardware, transportTimeout, 
tooManyLocalConnections, tooManyRemoteConnections, missingCourier, 
missingProgram, missingProcedure, protocolMismatch, parameterinconsistency, 
invalidMessage, returnTimedOut}; 

ConnectionSuspended; -NetworkStream- error [why: Suspend Reason]; 

ConsoleCharacter:-PavenFace- TYPE = machine dependent{ 

(0), F(47), zero, one, two, three, four, five, six, seven, eight, nine. A, L, 

C, D, E, blank); 

Context: -FloppyChar)nel- type = record [ 
protect; boolean, 
format; {IBM, Troy), 
density: (single, double), 
sectorLength: cardinal [0..1023]]; 

ContextFromItem; -FormSW— procedure [ItemHandle] returns [long pointer]; 

ContinueStop:-F/7eW/ndow~ TYPE = (continue, stop); 

Control: -ProtocolCertification- typb = long pointer to Control Packet; 

ControlA; -Asc//- character = 1C; 
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Controls: --Asc/7-- character = 2C; 

ControlC: --Asc/7- character = 3C; 

ControlD: -Asc/7- character = 4C; 

Control E: -Asc/7~ character = 5C; 

Control Error; -NSSessionControl- error [type; Control ErrorType]; 

Control ErrorType; -NSSessionControl-jyPB = { 

alreadySet, InvalidRestrictions, notEntered, notLocal, notRemote, notSet}; 

Control F;-Asc/7— CHARACTER = 6C; 

ControlG: -Asc//- character = 7C; 

ControlH:-Asc/7— CHARACTER = 10C; 

Control I;-Asc/7— CHARACTER = 11C; 

Control!;-Asc/7- CHARACTER = 12C; 

Control K:-Asc/7- CHARACTER = 13C; 

ControlL: -Asc/7- character = 14C; 

Control IerLinkType; -CHLookup- type = machine DEPENDENT{sdlc, bsc, (177777B)}; 

ControlLink;-Pf/ncOps-TYPE = machine dependent record [ 

SELECT OVERLAID Control Li nkTag from 

frame = > [frame(0;0..15); LocalFrameHandle, fill(1;0..15); word<- 0], 
procedure = > [gf(0;0..15); GlobalFrameHandle, pc(1:0..15): BytePC], 
indirect = > [ 

SELECT OVERLAID * FROM 

port = > [port(0:0..15); PortHandle,fill(1;0..15); word<- 0], 
link = > [link(0:0..15); pointer to ControlLink,fill(1;0..15); word«—0], 
endcase], 
rep = > [ 

fill0(0;0..13): [0..37777B1, 
indirect(0:14..14); boolean, 
proc(0; 15.15); boolean, 
fill{1;0..15); word], 
endcase); 

Control Li nk;-Runt/me- TYPE = long unspecified; 

Control Li nkTag: -Pr/ncOps- type = {frame, procedure, indirect, rep}; 

ControlM:-Asc/7- character = 15C; 

Control N: -Asc/7- character = 16C; 

ControlO: -Asc/7- character = 17C; 

ControlP: -Asc/7- character = 20C; 

Control Packet: -Protoco/Ce/t/f/cat/on- type = machine dependent record [ 
checksum(0:0..15): cardinal, 
pktLength(1:0..15): cardinal, 
transportControl (2:0.. 7): NSTypes. Tra nsportControl, 
packetType(2:8.. 15); NSTypes. PacketType, 
destination(3:0..95): System. NetworkAddress, 
source(9:0..95): System .NetworkAddress, 
operation(15:0.. 15): OperationType, 
stage(16:0..31): Stage, 
results(18:0..15): cardinal]; 

ControlQ: -Asc/7- character = 21C; 

Control R:-Asc/7- character = 22C; 

Controls: -Asc/7- character = 23C; 

Controls; -NSFile- type = record ( 
lock: Lock <—none, 
timeout; Timeout <-defaultTimeout, 
access: Access *r- fullAccess]; 

ControlSelections: -NSFile- type = packed array ControlType of 
BooleanFalseDefault; 

ControlT; -Ascii- character = 24C; 
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ControlType: --WSF//e-- type = machine DEPENDENT{iock, timeout, access}; 

ControlU: -->Asc/7-- character = 25C; 

ControlV:--i4sc/i-- CHARACTER = 26C; 

ControlW: --Asc//-- character = 27C; 

ControIX: --Asc//-- character = 30C; 

ControlY: -Asc//-- character = 31C; 

ControlZ: -Asc/7- character = 32C; 

ConversionLog: -VolumeConversion—jyPE = machine dependent record [ 
seal(0:0..15); cardinals- Seal, 
version(1 ;0..15): cardinal «-currentVersion, 
date(2;0..31) : System .GreenwichMeanTime, 
numberOfFiles(4:0..31): long cardinal, 
logState(6:0..15); LogState, 
reserved(7:0..3983): Reserved, 
files(256); array [0..0) of LogEntry]; 

Coordinate: -OnlineDiagnostics- type = machine dependent record [ 
x(0;0..15); integer, y(1:0..15): integer]; 

Coordinate: -UserTerminal- type = machine dependent record [ 
x(0:0..15): INTEGER, y(1:0..15): integer); 

Copied: -DebugUsefulDefs- procedure [GFHandle] returns [boolean]; 

Copy: -FUeTransfer- procedure [ 

sourceFile: FileName.VFN, destFile: FileName.VFN, 
sourceConn: Connection nil, destConn: Connection <— nil, 
veto: VetoProc «- nil, showDates: boolean e- false]; 

COPY: -//t//ne-PROCEDURE [from: pointer, nwords: cardinal, to: pointer]; 

Copy: -MF/7e— procedure [file: Handle, newName: long string]; 

Copy: -MStream- PROCEDURE [from: Handle, to: Handle, bytes: MFiie.ByteCount] 
returns [bytesCopied: MFiie.ByteCount]; 

Copy: -NSFile- procedure [ 

file: Handle, destination: Handle, 

attributes: AttributeList <- nullAttributeList, controls: Controls <- [], 
session: Session <-nullSession] returns [newFile: Handle]; 

CopyAccessList: -NSFile- procedure [list: AccessList] returns [AccessList]; 

CopyAttributes: -NSFile- procedure [attributes: Attributes] 

RETURNS [Attributes]; 

CopyByName: -NSFile- procedure [ 

directory: Handle, path: String, destination: Handle, 

attributes: AttributeList <- nullAttributeList, session: Session <— nullSession] 

RETURNS [ID]; 

CopyChild: -NSFile- procedure [ 

directory: Handle, id: ID, destination: Handle, 

attributes: AttributeList <— nullAttributeList, session: Session <— nullSession] 
RETURNS [ID]; 

CopyExtendedAttributes: -A/SF/7e~ procedure [ 

extendedAttributes: ExtendedAttributeList] returns [ExtendedAttributeList]; 

CopyFileHandle: -MFile- procedure [ 

file: Handle, release: ReleaseData, access: Access <-null] returns [Handle]; 

CopyFromPilotFile: -Floppy— procedure [ 

piiotFile: File. File, floppyFile: FileHandle, firstPilotPage: Fiie.PageNumber, 
firstFloppyPage: PageNumber, count: PageCount <-defaultPageCount]; 

Copyin: -MSegment- procedure [ 

segment: Handle, file: MFiie.Handle, fileBase: Fiie.PageNumber, 
count: Environment. PageCount]; 

Copyin: -NSSegment- procedure [ 

pointer: long pointer, origin: Origin, session: Session nullSession] 
returns [countRead: PageCount]; 
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CopyName: -NSName- procedure [z; uncounted zone, name: Name] returns [Name]; 

CopyNameFields: -NSName- procedure [ 

z: uncounted ZONE, source: Name, destination: Name]; 

CopyOut: -MSegment- procedure [ 

segment: Handle, file: MFiie.Handle, fileBase: Fiie.PageNumber, 
count: Environment.PageCount]; 

CopyOut: -NSSegment- procedure [ 

pointer: long pointer, origin: Origin, session: Session <- nullSession] 
returns [countWritten: PageCount]; 

CopyProperties: -MF//e-- procedure [from: Handle, to: Handle]; 

CopySegment: -MSegment- procedure [segment: Handle] 

RETURNS [newSegment: Handle]; 

Copystring: -MDSStorage- procedure [s: long string, longer: cardinal <- 0] 

RETURNS [newS: string]; 

Copystring: -NSString- procedure [z: uncounted zone, s: String] 

RETURNS [String]; 

CopyToPilotFile: --F/oppy-- procedure [ 

floppyFile: FileHandle, pilotFile: Fiie.Fiie, firstFloppyPage: PageNumber, 
firstPilotPage: Fiie.PageNumber, count: PageCount <-defaultPageCount]; 

CopyWords: -NSFile- procedure [words: Words] returns [Words]; 

Correspondent: -RS232C- type = RSZszcEnvironment.Correspondent; 

Correspondent: -RS232CEnvironment- jvpe = record [[0..255]]; 

Cos: -RealFns- procedure [radians: real] returns [cos: real]; 

CosOeg: -RealFns- procedure [degrees: real] returns [cos: real]; 

CountType: -CommOnlineOiagnostics- type. = machine dependent record [ 
sendOk(0:0..31): long cardinal, 
bytesSent(2:0..31): long cardinal, 
recOk(4:0..31): long cardinal, 
bytesRec(6:0..31): long cardinal, 
deviceError(8:0..31): long cardinal, 
dataLost(10:0..31): long cardinal, 
checkSum(12:0..31): long cardinal, 
parity(14:0..31); long cardinal, 
invalidChar(16:0..31): long cardinal, 
invalidFrame(18;0..31): long cardinal, 
asynchFrame(20:0..31): long cardinal, 
breakDetected(22:0..31): long cardinal, 
frameTimeout(24:0..31): long cardinal, 
badSeq(26:0..31): long cardinal, 
missing(28:0..31): long cardinal, 
sendErrors(30:0..31): long cardinal]; 

Couple: -NSDataStream—TYPE = record [sink: SinkStream, source: SourceStream]; 

CourierError: -RemoteCommDiags- error [reason: Courier. ErrorCode]; 

courierSocket: -NSConstants- System. SocketlMumber; 

CR: -Ascii- character = 1 5C; 

CR: -Format- procedure [proc: StringProc, clientData: long pointer <- nil]; 

CR: -Put- PROCEDURE [h: window.Handle «- nil]; 

Create: -AsciiSink- procedure [font: windowFont.Handle] 

RETURNS [TextSink.Handle]; 

Create: --S/oc/cSoorce-- procedure [block: Block] returns [source: Handle]; 

Create: -Context- procedure [ 

type: Type, data: Data, proc: DestroyProcType, window: Window.Handle]; 

Create: -Courier- procedure [ 

remote: SystemElement, programNumber: long cardinal, versionNumber: 
cardinal. 
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zone: uncounted zone, classOfService: NetworkStream.ClassOfService] 

RETURNS [cH: Handle]; 

Create: -DiskSource- procedure ( 

name: long string, access: Textsource.Access, s: stream. Handle «- nil] 
returns [source: TextSource. Handle]; 

Create: -File- procedure [ 

volume: System. VolumelD, initialSize: PageCount, type: Type] 

RETURNS [file: File]; 

Create: -FileSW- procedure [ 

sw: window.Handle, name: long string, options: Options «-defaultOptions, 

S: stream. Handler— NIL, position: TextSource. Position <-0, 
allowTypeIn: boolean <-true, resetLengthOnNewSession: boolean e- false]; 
Create: -FileTransfer- procedure returns [Connection]; 

Create: -FileWindow- procedure [ 

box: window.Box, options: Textsw.Options«-defaultOptions, 
initialState: Tooiwindow. State active] returns [sw: window.Handle]; 

Create: -FormSW- procedure [ 

sw: Window.Handle, clientItemsProc: ClientItemsProcType, 
readOnlyNotifyProc: ReadOnlyProcType «- IgnoreReadOnlyProc, 
options: Options <— [], initialState: Tooiwindow.State <—active, 
zone; uncounted zone <- nil]; 

Create: -Heap- procedure [ 

initial: Environment.PageCount, 

maxSize; Environment.PageCount <— unlimitedSize, 

increment: Environment.PageCount4, swapUnitSize; Space. SwapUnitSize <— 0, 
threshold: NWords<—minimumNodeSize, largeNodeThreshold; NWords«— 128, 
ownerchecking: boolean e- false, checking: boolean e- false] 

RETURNS [uncounted ZONE]; 

Create: -MemoryStream- procedure [b: Environment.Block] 

RETURNS [sH: Stream. Handle]; 

Create: -Menu- procedure [ 

items: Items, name: long string, permanent; boolean <—false] returns [Handle]; 
Create: -MSegment- procedure [ 

file: MFiie.Handle «—NIL, release; ReleaseData, fileBase: Fiie.PageNumber<—0, 
pages; Environment.PageCount <—defaultPages, 

swapinfo: SwapUnitOption «-defaultSwapUnitOption, usage; Space. Usage <-0] 
RETURNS [segment; Handle]; 

Create: -MsgSW- procedure [ 

sw: Window.Handle, lines: cardinals 1, 
options: Textsw.Options «-defaultOptions]; 

Create: -MStream- procedure [ 

file: MFiie. Handle, release; ReleaseData, 

options: stream. lnputOptions<-Stream.defaultInputOptions, 

streamBase: Fiie.PageNumber <-0] returns [stream: Handle]; 

Create; -NetworkStream- procedure [ 
remote; System. NetworkAddress, 

connectData; Environment.Block «- Environment.nullBlock, 

timeout: WaitTime <-defaultWaitTime, classOfService: ClassOfService <-bulk] 

RETURNS [stream. Handle]; 

Create: -NSFile- procedure [ 

directory; Handle, attributes: AttributeList <— nullAttributeList, 
controls: Controls e- [], session: Session <- nullSession] 

RETURNS [file; Handle]; 

Create: -PieceSource- procedure [ 

original: TextSource. Handle, scratch; TextSource. Handle] 

RETURNS [source; TextSource. Handle]; 


C-23 



c 


Listing of Public Symbols 


Create; -RetrieveDefs— procedure [ 
pollinginterval: cardinal <-300, 

reportChanges: procedure [MBXState, long pointer] «- nil, 
clientData: long pointer <- nil] returns [Handle]; 

Create: -RS232C- procedure [ 

lineNumber: cardinal, commParams; CommParamHandle, preemptOthers: 
ReserveType, 

preemptMe; ReserveType] returns [channel: ChannelHandle]; 

Create; -TextSW- procedure [ 

sw: Window.Handle, source; TextSource.Handle, sink: Textsink.Handle <- nil, 
options: Options «-defaultOptions, position: Position «-0, 
allowTypeIn: boolean <- true, resetLengthOnNewSession: boolean «- false]; 
Create: -Tool- procedure [ 

name; long string, makeSWsProc; MakeSWsProc, initialState: State <-default, 
clientTransition: Tooiwindow.TransitionProcType e-NiL, 
movableBoundaries; boolean <— true, 

initialBox: window.Box«—ToolWindow.nullBox, cmSection: long string nil, 
tinyNamel; long string <- nil, tinyName2: long string «- nil, 
named: boolean <- true] returns [window: window.Handle]; 

Create: -ToolFont- procedure [MFile.Handle] returns [wmdowFont.Handle]; 

Create; -ToolWindow— procedure [ 

name: long string, adjust: AdjustProcType, transition; TransitionProcType, 
box; Box «-nullBox, limit: LimitProcType <—StandardLimitProc, 
initialState; State <-active, named: boolean «-true, 
gravity; window.Gravity «-nw] returns [Handle]; 

Create: -TTY- procedure [ 

name: long string <- nil, backingStream: stream. Handle <- nil, 
ttyimpi: stream.Handle<-NiL] returns [h: Handle]; 

Create: -TTYPort- procedure [lineNumber: cardinal] returns [ChannelHandle]; 
Create: -TTYSW- procedure [ 

sw: Window.Handle, backupFile; long string, s: stream. Handle <-nil, 
newFile: boolean true, options: Textsw.Options^-defaultOptions, 
resetLengthOnNewSession: boolean «-false]; 

Create: -Volume- procedure [ 

pvID; System.PhysicalVolumelD, size: PageCount, name: long string, type; Type, 
minPVPageNumber: Physicaivolume.PageNumber <— 1] returns [volume; ID]; 
Create; -Zone- procedure [ 

storage; long pointer, length: BlockSize, zoneBase: Base, 
threshold: BlockSize «-minimumNodeSize, checking; boolean false] 

RETURNS [zH: Handle, s: Status]; 

CreateBackstopLog: -Backstop- procedure [ 

size: cardinal, file: Fiie.File, firstPageNumber: Fiie.PageNumber«-0]; 
CreateClient: -TIP- procedure [ 

window: window.Handle, table: Table <- nil, notify: NotifyProc <- nil]; 
CreateCouple; -NSDataStream- procedure returns [Couple]; 
createdBy:--WSAss/grtedrypes-AttributeType = 2; 

CreateOirectory: -MFile- procedure [dir: long string]; 
createdOn:-WSAss/gnedrypes-AttributeType = 3; 

CreateFile: -Floppy- procedure [ 

volume: VolumeHandle, size; PageCount, type; Fiie.Type] 

RETURNS [file: FileHandle]; 

CreateFloppyFromImage; -Floppy- procedure [ 
floppyDrive: cardinal <—0, imageFile: Fiie.File, 
firstlmagePage: Fiie.PageNumber, reformatFloppy: boolean, 
floppy Density: Density «—default, floppySides: Sides <—default, 
numberOfFiles; cardinal <-0, newLabelString: long string <— nil]; 
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CreateIndirectStringIn: -Userinput- procedure [ 
from: Window.Handle, to: window.Handle]; 

CreateIndirectStringtnOut: -Userinput- procedure [ 
from: Wmdow.Handle, to: window.Handle]; 

CreateIndirectStringOut: -Userinput- procedure [ 
from: window.Handle, to: window.Handle]; 

CreatelnitialMicrocodeFile: -Floppy— procedure [ 

volume: VolumeHandle, size: PageCount, type: File. Type, 
startingPageNumber: PageNumber<— 1] returns [file: FileHandle]; 

CreateListener: -NetworkStream- procedure [addr: System. NetworkAddress] 
RETURNS [ListenerHandle]; 

CreateMCR: -FileWindow- Menu.MCRType; 

CreateMDS: -Heap- procedure [ 
initial: Environment.PageCount, 
maxSize: Environment.PageCount e- unlimitedSize, 

increment: Environment.PageCount«— 4, swapUnitSize: Space.SwapUnitSize <— 0, 
threshold: NWords<—minimumNodeSize, largeNodeThreshold: NWords«- 128, 
ownerchecking: boolean «- false, checking: boolean e- false] returns 
[MDSZone]; 

CreatePeriodicNotify: -Userinput- procedure [ 

proc: PeriodicProcType, window: window.Handle, rate: Process.Ticks] 
returns [PeriodicNotifyHandle]; 

CreatePhysicalVolume: -PhysicalVolume- procedure [ 
instance: Handle, name: long string] returns [ID]; 

CreateProcType: --Context-- type = procedure returns [Data, DestroyProcType]; 

CreateReplier: -PacketExchange- procedure [ 

local: System. NetworkAddress, requestCount: cardinals- 1, 
waitTime: WaitTime e-defaultWaitTime, 

retransmissioninterval: WaitTime <-defaultRetransmissionlnterval] 

RETURNS [ExchangeHandle]; 

CreateRequestor: -PacketExchange- procedure [ 
waitTime: WaitTime «-defaultWaitTime, 

retransmissioninterval: WaitTime ^defaultRetransmissionlnterval] 

RETURNS [ExchangeHandle]; 

CreateScrollWindow: -UserTerminalExtras- procedure [ 

locn: userTerminai. Coordinate, width: cardinal, height: cardinal]; 

CreateServer: -NSTimeServer- procedure; 

CreateStringInOut: -Userinput— procedure [ 

window: Window.Handle, in: StringProcType, out: StringProcType, 
caretProc: CaretProcType «- NopCaretProc]; 

CreateSubwindow: -ToolWindow- procedure [ 

parent: Handle, display: DisplayProcType e- nil, box: Box <— nullBox, 
gravity: window. Gravity <—nw] returns [Handle]; 

CreateTable: -TIP- procedure [ 

file: LONG STRING <- NIL, opaque: boolean *- false, z: uncounted zone «- nil, 
contents: long string <- nil] returns [table: Table]; 

createTool: -EventTypes- Supervisor. Event; 

CreateTransducer: -NetworkStream— procedure [ 

local: System. NetworkAddress, remote: System. NetworkAddress, 
connectData: Environment.Block e- Environment.nullBlock, 
localConnID: ConnectionID, remoteConnID: ConnectionID, 
activelyEstablish: boolean, timeout: WaitTime «—defaultWaitTime, 
ciassOfService: ClassOfService <— bulk] returns [stream. Handle]; 

CreateTTYInstance: -TTY- procedure [ 

name: long string, backingStream: stream. Handle, tty: Handle] 

RETURNS [ttyimpi: stream. Handle, backing: stream. Handle]; 
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CreateUniform; -Heap- procedure [ 
initial: Environment.PageCount, 
maxSize: Environment.PageCount«- unlimitedSize, 

increment: Environment.PageCount <— 4, swapUnitSize: Space.SwapUnitSize <— 0, 
objectSize: NWords, ownerChecking: boolean <- false, checking: boolean <- 
false] 

returns [uncounted zone); 
createWindow: -EventTypes- Supervisor. Event; 

CredentialEvents:--fventrypes--TYPE = [400. 499]; 

Credentials: --/Vutbent/catof--TYPE = NSName.Credentials; 

Credentials: --A/SF/7e--TYPE = NSName.Credentials; 

Credentials: -NSName- type = record [ 

type: CredentialsType, value: CredentialsContent]; 

CredentialsContent: -NSName- type [3]; 

CredentialsType: -NSName-Type. = machine dependent{ 
superWeak, weak, strong, (177777B)}; 

Current: -Time- procedure returns [time: System. GreenwichMeanTimej; 
CurrentSelection: -Put- procedure [h: window.Handle <- nil); 
currentVersion: -VolumeConversion— cardwal = 0; 
cursor: -UserTerminal- readonly long pointer to readonly Coordinate; 
CursorArray: -OnlineDiagnostics-Type = array [0.. 15] of word; 

CursorArray:--Userferm/na/-- type = array [0.. 15] of word; 

CursorState: --Wera/dW/ndow-- type = {invert, negative, positive}; 

D1: --/CeyStadons--Bit = 96; 

D2: --/CeyStat/ons--Bit = 95; 

DamageStatus: -PhysicalVolume- type = (okay, damaged, lost); 

Data:-Context- TYPE = long pointer; 

DataError: -Floppy- error [ 

file: FileHandle, page: PageNumber, vm: long pointer]; 

Date: -Format- procedure [ 

proc: StringProc, pt: Time. Packed, format: DateFormate-noSeconds, 
zone: Time.TimeZoneStandard <-ANSI, clientData: long pointer «- nil]; 

Date: -Put- procedure [ 

h: Window.Handle <- nil, pt: Time.Packed, 
format: Format.DateForrnat <- noSeconds]; 

DateFormat: -Format- type = {dateOnly, noSeconds, dateTime, full, mailDate}; 
DateFormat: ~77Y-type = Format.DateForrnat; 

DBITAIMD: -Inline- DBitOp; 

DBITNOT: -Inline- procedure [long unspecified] returns [long unspecified]; 

DBitOp: -Inline- type = procedure [long unspecified, long unspecified] 

RETURNS [long UNSPECIFIED]; 

DBITOR: -Inline— DBitOp; 

DBITSHIFT: -Inline- procedure [value: long unspecified, count: integer] 

RETURNS [long UNSPECIFIED]; 

DBITXOR: -Inline- DBitOp; 

DCSFileType:-F;7erypes-TYPE = cardinal [512..767]; 
deactivate: -EventTypes- Supervisor.Event; 

Deactivate: -/WSegment- procedure [segment: Handle]; 

Deactivate: -Too/W/ndow- procedure [window: Handle] 

RETURNS [aborted: boolean]; 

DeallocateBands: -RavenFace- procedure; 

DeallocateListOfIDs: -L/braf/an(7t/7/ty- procedure [array: IDArrayHandle] 
returns [IDArrayHandle]; 

DebugEvents:-fventrypes- TYPE = [0..99]; 
debuggerVolumelD: -Vo/ume- readonly ID; 
debugging: -EventTypes- Supervisor. Event; 
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debugging: -Profile-- readonly boolean; 

debuggingOnUtilityPilot:--P/7ofSw/fches--PilotDomainA = 77C; 

Decimal: -Format- procedure [ 

proc: StringProc, n: integer, clientData: long pointer <- nil]; 

Decimal: -Put- procedure [h: wmdow. Handle <- nil, n: integer); 

Decimal: -Token- procedure [h: Handle, signalOnError: boolean <- true] 
RETURNS [i: integer]; 

Decimal Format: -Format- NumberFormat; 

DecodeBoolean: -NSFile- procedure [Words] returns [b: boolean]; 
DecodeCardinal: -NSFile- procedure [Words] returns [c: cardinal]; 
DecodeInteger: -NSFile- procedure [Words] returns [i: integer]; 
DecodeLongCardinal: -NSFile- procedure [Words] returns [k: long cardinal]; 
DecodeLongInteger: -NSFile- procedure [Words] returns [li: long integer]; 
DecodeParameters: -NSName- procedure [ 

z: UNCOUNTED ZONE, 

encoding: long descriptor for array cardinal of unspecified, 
parameters: Courier.Parameters]; 

DecodeSimpleCredentials: --A/SA/ame-- procedure [credentials: Credentials] 
RETURNS [SimpleCredentials]; 

DecodeSimpleVerifier: -NSName- procedure [verifier: Verifier] 

RETURNS [SimpleVerifier]; 

DecodeString: -NSFile- procedure [Words] returns [s: String]; 
DecodeSwitches: --Othe/ZoOps-- procedure [switchstring: long string] 

RETURNS [switches: System.Switches]; 
defaultAccessList:--A/SAss/gnecZrypes--AttributeType = 20; 
defaultBaseDirectoryProc: -NSVolumeControl- readonly BaseDirectoryProc; 
defaultBoxWidth: -FormSW-- cardinal = 0; 

DefaultCheckCredentialsProc: -NSSessionControl- CheckCredentialsProc; 
DefaultConfirm: -HeraldWindow- ConfirmProcType; 
defaultExpirationTime: -Authenticator-Seconds = 250600B; 
defaultFileServerProtocol: -Profile— readonly FileServerProtocol; 
defaultFont: -WindowFont- readonly Handle; 

DefauItGetCredentialsProc: -NSSessionControl- GetCredentialsProc; 
DefaultHeight; -Tool- integer = 0; 
defaultID: -NSSegment- ID = 0; 
defaultMask: --Expand-Mask; 

DefaultMembershipProc: -NSSessionControl- MembershipProc; 

defaultName: -NSVolumeControl- readonly NSString.String; 

defaultOptions: -FileSW- Options; 

defaultOptions: -FileWindow- Textsw. Options; 

defaultOptions: -MLoader- Options; 

defaultOptions: -MsgSW- Textsw.Options; 

defaultOptions: -TextSW- Options; 

defaultOptions: -TTYSW- Textsw.Options; 

defaultOrdering: -NSFile— key Ordering; 

defaultPageCount:-f/oppy-PageNumber = 37777777777B; 

defaultPages:-MSegment- Environment.PageCount = 37777777777B; 

DefaultPost: -HeraldWindow- Format.StringProc; 

DefaultPutback: -Real- procedure [character]; 

defaultRetransmissionInterval: -Pac/cetExchange-WaitTime = 72460B; 
DefaultSinglePrecision: -Pea/- cardinal = 7; 
defaultSwapUnitOption: -MSegment- SwapUnitOption; 
defaultSwapUnitSize:-A/ZSegment-SwapUnitSize = 0; 
defauItTime: -Time- System. GreenwichMeanTime; 
defauItTimeout:-A/SF/Ze-Timeout = 177777B; 
defauItTimeout: -NSVolumeControl- readonly NSFiie. Timeout; 
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DefaultUnloadProc: -Exec- ExecProc; 

defauItValueSize: --Sfree—ValueSize = 3; 

defauItVolume: -NSVolumeControl- readonly voiume.lD; 

defaultWaitTime: --Wetwor/cStream-WaitTime = 165140B; 

defaultWaitTime:-Pac/cetfxcbange-WaitTime = 165140B; 

Defined: --Cursor- type = Type [activate .groundedText]; 

DEL: -Asc//- CHARACTER = 177C; 

Delete: -BTree- procedure [tree: Tree); 

Delete: -Courier- procedure [cH: Handle]; 

Delete: -File- procedure [file: File]; 

Delete: -FileTransfer- procedure [ 

conn: Connection, file: PiieName.VFN, veto: VetoProc <-nil]; 

Delete: -Heap- procedure [z: uncounted zone, checkEmpty: boolean *- false]; 

Delete: -MFile- procedure [file; Handle); 

Delete; -/WSegment- procedure [segment: Handle); 

Delete: -NSFile— procedure [file; Handle, session: Session «- nullSession); 

Delete: -NSSegment- procedure [ 

file; NSFiie.Handle, segment; ID, session; Session <— nullSession]; 

Delete; -PacketExchange- procedure [h; ExchangeHandle]; 

Delete; -PS232C- procedure [channel; ChannelHandle]; 

Delete; -TTYPort- procedure [channel; ChannelHandle]; 

DeleteAlias; -CH- procedure [ 

cred; Authenticator.Credentials, ver; Authenticator.Verifier, aliasName: Name, 
distingName; Name] returns [rc; ReturnCode]; 

DeleteByName; -NSFile- procedure [ 

directory: Handle, path: String, session: Session «-nullSession]; 

DeleteChild: -NSFile- procedure [ 

directory: Handle, id: ID, session: Session «-nullSession]; 

DeleteDistinguishedName: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name; Name, 
distingName: Name] returns [rc: ReturnCode]; 

DeleteDomainAccessMember: -MoreCH- procedure [ 
cred: Authenticator.Credentials, ver: Authenticator.Verifier, 
element; ch. Element, domain: CH.Name, acl: ACLFIavor] 

RETURNS [rc: CH. ReturnCode]; 

DeleteFile; -Floppy- procedure [file; FileHandle]; 

DeleteGroupMember; -CH— procedure [ 

cred: Authenticator.Credentials, ver; Authenticator.Verifier, 

element; Element, name; Name, pn; PropertylD, distingName; Name] 

RETURNS [rc: ReturnCode]; 

DeleteListener: -WetworkStream- procedure [listenerH: ListenerHandle]; 

DeleteLog; -Vo/umeConvers/on- procedure [volume: voiume.lD]; 

DeleteMDS: -Heap- procedure [z: MDSZone, checkEmpty: boolean <- false]; 

DeleteOrgAccessMember: -MoreCH— procedure [ 

cred: Authenticator.Credentials, ver; Authenticator.Verifier, 
element: ch.E lement, org: CH.Name, acl: ACLFIavor] 

RETURNS [rc: ch. ReturnCode]; 

DeleteProperty; -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name; Name, 
pn: PropertylD, distingName: Name] returns [rc: ReturnCode]; 

DeletePropertyAccessMember; -MoreCH- procedure [ 
cred; Authenticator.Credentials, ver; Authenticator.Verifier, 
element; ch. Element, name; CH.Name, pn: ch. PropertylD, acl: ACLFIavor, 
distingName; CH.Name] returns [rc: ch. ReturnCode]; 

DeleteScrollWindow: -UserTerminalExtras- procedure; 
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DeleteSelf: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Name, 
pn: PropertylD, distingName: Name] returns [rc: ReturnCode]; 

DeleteServer: -NSTimeServer- procedure; 

DeleteSubString: -NSString- procedure [s; Substring] returns [String]; 

DeleteTempFiles; -OthelloOps- procedure [volume.ID]; 

DeleteText: -TextSW- procedure [ 

sw: window.Handle, pos; Position, count: long cardinal, 
keepTrash: boolean ^-true]; 

DeleteThisSW: -Tool- procedure [sw; Window.Handle]; 

DeleteWhenReleased: -MFile- procedure [file; Handle]; 

Delimited; -Token- FilterProcType; 

DelinkSubwindow; -- Too/W/ndow -procedure [child: Handle]; 

Density; -Floppy- type = {single, double, default}; 

descendingPositionOrdering: -NSFile- key Ordering; 

Describe; -CHLookup- procedure [ 

sH; stream.Handle, op: Operation, type; CHPiDs.PropertylD, 
buffer: long pointer]; 

DescribeAddress: -NSAddr- Courier.Description; 

DescribeCredentials: -NSName- Courier.Description; 

DescribeHeader: -ExpeditedCourier- Courier.Description; 

DescribeNameRecord; -NSName- Courier.Description; 

DescribeNSAddr: -NSAddr- Courier.Description; 

Describestring: -NSString- Courier.Description; 

DescribeTicket: -NSDataStream- Courier.Description; 

DescribeVerifier: -NSName- Courier.Description;END. 

Description: -Courier- type = procedure [notes: Notes]; 

Deserialize: -NSFile- procedure [ 
directory: Handle, source: Source, 

attributes: AttributeList <-nullAttributeList, controls: Controls«- [], 
session: Session nullSession] returns [file; Handle]; 

DeserializeFromBlock; -CH- procedure [ 

parms: Courier.Parameters, heap: uncounted zone, bik: Environment.Block] 
RETURNS [succeeded: boolean]; 

DeserializeFromBlock: -ExpeditedCourier- procedure [ 

parms: Courier.Parameters, heap: Heap.Handle, bIk; Environment.Block] 
RETURNS [succeeded: boolean]; 

DeserializeFromRhs; -CH- procedure [ 

parms; Courier.Parameters, heap: uncounted zone, rhs: Buffer] 
returns [succeeded: boolean]; 

DeserializeParameters; -Courier- procedure [ 

parameters; Parameters, sH: stream. Handle, zone: uncountedzone]; 

Desired Properties; -FileTransfer- type. = packed array ValidProperties of 
boolean <- all[false]; 

Destroy: -Context- procedure [type: Type, window: Window.Handle]; 

destroy: -EventTypes- Supervisor. Event; 

Destroy: -FileSW- procedure [sw; window.Handle]; 

Destroy: -FileTransfer- procedure [Connection]; 

Destroy; -FileWindow- procedure [sw: Window.Handle]; 

Destroy; -FormSW- procedure [window.Handle]; 

Destroy: -MemoryStream- procedure [sH: stream.Handle]; 

Destroy: -Menu- procedure [Handle]; 

Destroy: -MsgSW- procedure [sw: window.Handle]; 

Destroy: -RetrieveDefs- procedure [Handle]; 

Destroy: -TextSW— procedure [sw: window.Handle]; 

Destroy: -Tool- procedure [window: window.Handle]; 
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Destroy: -ToolFont- procedure [windowPont Handle]; 

Destroy: -ToolWindow- procedure [window: Handle]; 

Destroy: -77Y-- procedure [h: Handle, deleteBackingFile: boolean <- false]; 

Destroy: -TTYSW- procedure [sw: window. Handle]; 

DestroyAII: -Context- procedure [window: window.Handle]; 

DestroyClient: -TIP- procedure [window: window.Handle]; 

DestroyFromBackgroundProcess: -TTYSW- procedure [sw: window.Handle]; 

DestroyIndirectStringIn: -Userinput- procedure [window.Handle]; 

DestroyIndirectStringInOut: -Userinput- procedure [window.Handle]; 

DestroyIndirectStringOut: -Userinput- procedure [window.Handle]; 

DestroyMCR: -FileWindow- Menu.MCRType; 

DestroyProcType: --Context- type = procedure [Data, window.Handle]; 

DestroyStringInOut: -Userinput- procedure [window.Handle]; 

DestroySW: -Tool— procedure [window: window.Handle]; 

Detach: -Process- procedure [process: process]; 

Detail: -CommOnlineOiagnostics-iyPE = machine dependent record [ 
msec(0:0..15): cardinal, count(1 :0..15): cardinal]; 

DevelopmentEnvironmentDomain: -P//otSw/tcbes- type = SwitchName 
[101C.132C]; 

DeviceIndex: -PageScavenger- type = cardinal; 

DeviceStatus: -RS2J2C-type = record] 
statusAborted: boolean, 
dataLost: boolean, 
breakDetected: boolean, 
clearToSend: boolean, 
dataSetReady: boolean, 
carrierDetect: boolean, 
ringHeard: boolean, 
ringindicator: boolean, 
deviceError: boolean]; 

DeviceStatus: -TTYPort- type = record [ 
aborted: boolean, 
breakDetected: boolean, 
dataTerminalReady: boolean, 
readyToGet: boolean, 
readyToPut: boolean, 
requestToSend: boolean]; 

DiagnosticsFileType: -FileTypes-jypB = cardinal [22300B..223778]; 

diagnosticsServerSocket: -A/SConstants-System.SocketNurnber; 

Dial:-D/a/up- procedure [ 

dialerNumber: cardinal, number: long pointer to Number, retries: RetryCount] 
returns [Outcome]; 

DialMode: -RS232C-TYPE = RS232CEnvlronment.DialMode; 

Dial Mode:-/?S232CEnv/ronment- TYPE = {manual, auto}; 

DialupOutcome:-CommOn/ineO/agnost/cs-TYPE = machine dependent{ , 
success, failure, aborted, formatError, transmissionError, dataLineOccupied, 
dialerNotPresent, dialingTimeout, transferTimeout, otherError, noHardware, 
noSuchLlne, channellnUse, unimplementedFeature, invalidParamater}; 

DialupTest: -CommOnlineOiagnostics- procedure [ 

rs232ClineNumber: cardinal, phoneNumber: long pointer to Diaiup.Number, 
host: System. NetworkAddress«-System.nullNetworkAddress] 
returns [outcome: DialupOutcome]; 

DialupTest: -RemoteCommDiags- procedure [ 

host: System. NetworkAddress, rs232ClineNumber: cardinal, 
phoneNumber: long pointer to Diaiup.Number] 

RETURNS [outcome: CommOnlineDiagnostics.DialupOutCOrne]; 
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DifferentType: -LogFile- error; 

Dims: -Window-rypE = record (w: integer, h: integer]; 

OirectedBroadcastCail: -ExpeditedCourier- procedure [ 

programNumber; long cardinal, versionNumber: cardinal, 
procedureNumber: cardinal, arguments: Courier.Parameters, 
address: System. NetworkAddress, action: ExpandingRingAction, 
eachResponse: ResponseProc, responseBufferCount: cardinal 5); 

Direction:--S/tS/t-- TYPE = {forward, backward}; 

Direction: -A/SP/7e-- TYPE = MACHiNEDEPENDENT{forward,backward}; 
directory Created; -EventTypes- Supervisor. Event; 
directoryDeleted: -EventTypes- Supervisor. Event; 

Disable: -Log- procedure returns [State]; 

OisableAborts; -Process- procedure [condition; long pointer to condition]; 
disableMapLog: --P/7otSwitches--PilotDomainA = 67C; 

DisableTimeout: --Process-- procedure [condition; long pointer to condition]; 
DiskAddress; “P/oppyChanne/-TYPE = machine dependent record [ 
cylinder(0:0..15): cardinal, 
head(1:0..7): [0..255], 
sector(1:8..15): [0..255]]; 

DiskPageNumber; -FormatPilotDisk— type = Physicaivoiume.PageNumber; 

DiskStatus: -PageScavenger- type = { 

goodCompletion, noSuchPage, labelDoesNotMatch, seekFailed, checkError, 
dataError, hardwareError, notReady, labelError}; 

Dispatcher; -Cour/er- type = procedure [ 

cH; Handle, procedureNumber; cardinal, arguments: Arguments, 
results: Results]; 

DispatcherProc: -ExpeditedCourier- type = procedure [ 

programNumber: long cardinal, version: cardinal, procedureNumber: cardinal, 
serializedRequest: Environment.Block, replyMemoryStream: stream. Handle, 
callWasABroadcast: boolean] returns [sendReply; boolean]; 

Display; -FormSW- procedure [sw: window.Handle, yOffset: cardinal «—0]; 

Display; -RavenPace- procedure [char: ConsoleCharacter]; 
displayedPages: -HeraldWindow- readonly long cardinal; 

DisplayEvents:--Eventfypes- TYPE = [800..999]; 

DisplayFieldsProc: -OnlineDiagnostics- type = procedure [ 

fields: descriptor for array cardinal of Field, title: FloppyMessage «-tFirst, 
fieldType; FieldDataType, numberOfColumns: cardinal ^3]; 

Displayltem: -FormSW— procedure [sw; window.Handle, index; cardinal]; 
DisplayLibjectlD; -LibrarianUtUity- procedure [ 
sw: Window.Handle, id: Librarian.LibjectID]; 

DisplayNumberedTableProc; -OnlineDiagnostics- type = procedure [ 
values: long descriptor for array cardinal of unspecified, 
rowNameHeader; FloppyMessage <-tFirst, title: FloppyMessage «-tFirst, 
numOfColumns: cardinal, startNum: integer, fieldType: FieldDataType]; 
displayOff: -EventTypes- Supervisor. Event; 
displayOn; -EventTypes- Supervisor. Event; 

DisplayProcType:-Too/kV/nc/ow— type = procedure [window: Handle]; 
DisplayPropertyList: -LibrarianUtUity- procedure [ 

sw: Window.Handle, plist; Librarian. PropertyList, properties: PropertyArray, 
leader: long string, outputTags: boolean]; 

DisplayPropertyPair; -LibrarianUtUity- procedure [ 

sw: Window.Handle, pp; Librarian. PropertyPair, properties: PropertyArray, 
leader; long string, outputTags: boolean]; 
displayState; -Event- readonly Supervisor.SubsystemHandle; 

DisplayTableProc: -OnlineDiagnostics— type = procedure [ 
headers: descriptor for array cardinal of FloppyMessage, 
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rowNames: descriptor for array cardinal of FloppyMessage, 
values: descriptor for array cardinal of descriptor for array cardinal of 
UNSPECIFIED, title: FloppyMessage «-tFirst, fieldType: FieldDataType]; 
DisplayVersion: -LibrarianUtiUty- procedure [ 

sw: window.Handle, version: ubrarian.LibjectVersion]; 
DistinguishSegmentedFileType: -NSVolumeControl- procedure [type: NSFiie.Type]; 
DivideCheck: --/?unt/me-- signal; 

DivideInfinityNaN: --/?ea/-- long cardinal = 5; 

DIVMOO: -Inline- procedure [num: cardinal, den: cardinal] 

RETURNS [quotient: cardinal, remainder: cardinal); 

DocProcFileType:--F/7erypes-- TYPE = cardinal [60008..77778); 

DoEditAction: --rextSW -procedure [ 

sw: Window.Handle, action: TextSource.EditAction) 

RETURNS [delta: long integer); 

OoesNotExist: -TextSW- signal; 
domain: -EventTypes- Supervisor.Event; 

Domain:-A/SA/ame-- TYPE = String <-NSString.nullString; 

DomainName: TYPE = NSName.Dornain; 

DoneWithProcess: -Event- procedure [Handle]; 
dontCare:-/WF/7e-Initial Length = 377777777778; 
dontChangeFile: -MSegment- MFiie.Handle; 

dontChangeFile8ase:--MSegment--Fiie.PageNumber = 377777777778; 
dontChangePages: --A/ISeg/rjent--Environment.PageCount = 377777777768; 
dontChangeReleaseData: -MSegment- ReleaseData; 
dontChangeUsage: --A/JSegment-- space. Usage = 255; 
dontRelease: -MFile- ReleaseData; 

DownUp: --7Leve//\/k'eys--TYPE = KeyStations.DownUp; 

DownUp:--Keys-- TYPE = KeyStations.DownUp; 

DownUp: “KeyStat/ons-TYPE = {down, up}; 

DownUp: -/.eve////KeyS“ TYPE = KeyStations.DownUp; 

DownUp: -Leve/ZV'Keys-TYPE = KeyStations.DownUp; 

DownUp: “f/P-TYPE = Keys.DownUp; 

DozeOff: -RavenFace— procedure; 

DPCell: -Atom- TYPE = record [first: long string, rest: AList); 

DrawNameFrame: -ToolWindow- DisplayProcType; 

DrawRectangle; -ToolWindow- procedure [ 

window: Handle, box: 8ox, width: cardinal «— 1 ); 

Drive: -FloppyChannel- type = cardinal; 

DstFunc:-SitS/t- TYPE = (null, and, or, xor}; 

DstFunc:-D/sp/ay- TYPE = siteit.DstFunc; 

DumpObject: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Name, 
each8lock: procedure [long pointer, cardinal], distingName: Name) 
returns [rc: ReturnCode); 

Duplexity:-RS232C-TYPE = RS232CEnvlronment.Duplexity; 

Duplexity:-PS232Cfnv/ronment- type = {full, half}; 
eatGerm; -PilotSwitches- PilotDomainC = 376C; 
ebcdic8yteSync: -RS232CCorrespondents- 

RS232CEnvironment.AutoRecognitionOutCOme; 

EchoClass:-TTY- TYPE = {none, plain, stars}; 
echoerSocket: -NSConstants- System.SocketNumber; 

EchoEvent:-CommOn/zneO/agnost/cs- TYPE = machine dependent{ 
success, late, timeout, badDataGoodCRC, sizeChange, unexpected}; 
EchoParams: -CommOn//neD/agnost/cs- type = machine dependent record [ 
totalCount(0:0..15): cardinal «-1777778, 
safetyTOInMsecs(1:0..31): long cardinals- 1651408, 
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minPacketSizelnBytes(3:0..15); cardinals- 2, 
maxPacketSizelnBytes(4;0.. 15): cardinal <—512, 
wordContents(5:0.. 15): WordsInPacket«- incrWords, 
constant(6:0..15): cardinal «- 125252B, 
waitForResponse(7:0..15): boolean «— true, 
minMsecsBetweenPackets(8:0..15): cardinal <-0, 
checkContents(9-.0..15); boolean <- true, 
showMpCode(10:0..15): boolean «- false]; 

EchoResults: -CommOnlineDiagnostics- type = machine dependent record [ 
totalTime(0;0..31): long cardinal, 
totalAttempts(2:0..31): long cardinal, 
successes(4:0..31); long cardinal, 
timeouts(6:0..31): long cardinal, 
late(8:0..31): LONG CARDINAL, 
unexpected(10:0..31): long cardinal, 
bad{12:0..31): long cardinal, 
avgDelaylnMsecs(14:0..31): long cardinal, 
okButDribble(16:0..31): long cardinal, 
badAlignmentButOkCrc(18;0..31): long cardinal, 
packetTooLong(20:0..31): long cardinal, 
overrun(22:0..31): long cardinal, 
idlelnput(24;0..31): long cardinal, 
tooManyCollisions(26:0..31); long cardinal, 
lateCollisions(28:0..31): long cardinal, 
underrun(30:0..31): long cardinal, 
stuckOutput{32:0..31): long cardinal, 
spare(34;0..31): long cardinal]; 

echoServer; -ProtocolCertification- Stage; 

echoUser; -ProtocolCertification- Stage; 

ECS: -CHLookup- type = machine dependent record [ 

address(0:0..95): System. NetworkAddress, location(6:0..63): NSString. String]; 

ECSDescribe: -CHLookup- Courier. Description; 

ECSPt;-CHLookup- type = long pointer to ECS; 

edit: -EventTypes- Supervisor.Event; 

ElapseTime:-fxpec//tedCour/er-TYPE = NSTypes.WaitTime; 

electronicMailFirstSocket; -NSConstants- System. SocketNumber; 

electronicMailLastSocket: -NSConstants— System.SocketNumber; 

Element: -CH- type = long pointer to ThreePartName; 

Ellipse: -Display- procedure [ 

window: Handle, center: Window. PI ace, xRadius: integer, yRadius: integer, 
bounds: window.BoxHandle «-nil]; 

Empty: -BTree- procedure [tree: Tree] returns [boolean]; 

EmptyString: -MDSStorage- procedure [s: long string] returns [boolean]; 

EnableAborts: -Process- procedure [condition: long pointer to condition]; 

EncodeBoolean: -WSFr/e- procedure [b: boolean] returns [Words]; 

EncodeCardinal: -NSFile- procedure [c; cardinal] returns [Words]; 

Encodeinteger: -NSFile- procedure [i: integer] returns [Words]; 

EncodeLongCardinal: -NSFile- procedure [Ic: long cardinal] returns [Words]; 

EncodeLonginteger: -NSFile— procedure [li: long integer] returns [Words]; 

EncodeParameters: -WSA/ame- procedure [ 

z: UNCOUNTED ZONE, parameters: Courier. Parameters] 

RETURNS [long DESCRIPTOR FOR ARRAY CARDINAL OF UNSPECIFIED]; 

EncodeSimpleCredentials: -NSName- procedure [ 

z: UNCOUNTED ZONE, simpleCredentials: SimpleCredentials] 

RETURNS [Credentials]; 
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EncodeSimpleVerifier; --WSWa/ne-- procedure [simpleVerifier: SimpleVerifier] 
RETURNS [Verifier]; 

EncodeString; -NSFile- procedure [s: String] returns [Words]; 

endEnumeration: -Router- readonly System. NetworkNumber; 

EndOf: -MStream- procedure [stream: Handle] returns [boolean]; 

EndOf: -rTYSW-- procedure [sw: Window. Handle] returns [yes: boolean]; 

endOfBandCmd: --SandStr-- cardinal = 8; 

EndOfCommandLine: -Exec- procedure [h: Handle] returns [boolean]; 

endOfInput: -MailParse— character = 203C; 

endOfList: -MailParse- character = 204C; 

endOfPageCmd: --SandStr-- cardinal = 9; 

EnlinkSubwindow: -ToolWindow— procedure [ 

parent: Handle, child: Handle, youngerSibling: Handle]; 

Enter: -NSSessionControl- procedure [session: NSFiie.Session, id: ServicelD]; 

Entry: -NSVolumeControl- typb = machine dependent record [ 
file(0:0..79): NSFile.lD, 
type(5:0..31): NSFiie.Type, 
numberOfProblems(7:0..31): long cardinal]; 

EntryPointer: -NSVolumeControl- type = long pointer to Entry; 

EntryType:--Scavenger-- TYPE = machine dependent{ 
unreadable, missing, duplicate, orphan}; 

Enumerate: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Pattern, 
pn: PropertylD, eachName: NameStreamProc] returns [rc: ReturnCode]; 

Enumerate: -DebugUsefulDefs- procedure [ 

proc: PROCEDURE [GFHandle] returns [boolean]] returns [gf: GFHandle]; 

Enumerate: -f/7eSW- procedure [proc: EnumerateProcType]; 

Enumerate: -FileTransfer- procedure [ 

conn: Connection, files: FiieName.VFN, proc: ListProc]; 

Enumerate: -FileWindow- procedure [proc: EnumerateProcType]; 

Enumerate: -Menu- procedure [ 

window: window.Handle, which: EnumerateFor, proc: EnumerateProcType]; 

EnumerateAliases: -CH- procedure [ 

cred; Authentkator.Credentials, ver; Authenticator.Verifier, name: Pattern, 
eachAlias: NameStreamProc] returns [rc; ReturnCode]; 

EnumerateCommands: -Exec- procedure [ 
userProc: procedure [ 

name; long string, proc: ExecProc, help: ExecProc, unload: ExecProc, 
clientData: long pointer] returns [stop: boolean]]; 

Enumerated: -FormSW- type = record [string: long string, value: unspecified]; 

EnumeratedDescriptor: -FormSW-TYPE = long descriptor for array cardinal of 
Enumerated; 

EnumeratedFeedback;-FormSW-TYPE = {all, one}; 

EnumeratedHandle: -FormSW-TYPE = long pointer to enumerated ItemObject; 

EnumerateDirectory; -MFile— procedure [ 

name: long string, proc: EnumerateProc, which: EnumerationType]; 

Enumerateditem: -FormSW- procedure [ 

tag: long string «- nil, readonly: boolean ^ false, invisible: boolean false, 

drawBox; boolean false, hasContext; boolean false, 

place: window.Place «- nextPlace, feedback; EnumeratedFeedback <- one, 

proc; EnumeratedNotifyProcType «— NopEnumeratedNotifyProc, 

copyChoices: boolean <— true, choices; EnumeratedDescriptor, 

value: long pointer, z: uncounted zone <- nil] returns [EnumeratedHandle]; 

EnumeratedNotifyProcType: -FormSW-TYPE = procedure] 

sw: Window.Handle«-NIL, item: ltemHandle<-NiL, index: cardinal <-nulllndex, 
oldValue: unspecified «— nullEnumeratedValue]; 
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EnumerateOomains; -CH~ procedure [ 

cred: Authenticator. Credentials, ver: Authenticator.Verifier, name; Pattern, 
eachDomain: NameStreamProc] returns [rc: ReturnCode]; 

EnumerateExports: -Courier- procedure 

RETURNS [enum: long descriptor for Exports]; 

EnumerateFileType;--Z./brar/anL/t///ty-- TYPE = {id, name}; 

EnumerateFor: -Menu- type = {all, inSW, availablelnSW}; 

EnumeratelnactiveWindows: -ToolWindow- procedure [proc; EnumerateProcTypej; 

EnumerateInvalidBoxes: -Window- procedure [ 
window: Handle, proc; procedure [Handle, Box]]; 

EnumerateLibjectProc: --i./bfar/an(yt;7/ty--TYPE = procedure [ 

Librarian. Handle, Librarian.LibjeCtID, Librarian. PropertyList, CARDINAL] 
returns [continue: boolean]; 

EnumerateLibjectStructure: -LibrarianUtUity- procedure [ 

Librarian. Handle, LONG STRING, Librarian.SnapShotHandle, 

Librarian. Property Li St, BOOLEAN, EnumerateLibjectProc] 

RETURNS [Librarian.Handle]; 

EnumerateLibjectVersions: -LibrarianUtUity— PRoaouRB [ 

Librarian.Handle, Librarian.LibjeCtID, Librarian.SnapShotHandle, 

Librarian. Property List, EnumerateVersionProc]; 

EnumerateNearbyOomains; --CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, 
eachDomain: NameStreamProc] returns [rc: ReturnCode]; 

EnumerateNewGroupElements: --CH-- type = procedure [NameStreamProc]; 

EnumerateObjects: -CH-- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name; Name, 
eachName: NameStreamProc] returns [rc: ReturnCode]; 

EnumerateOrganizations: -CH- procedure [ 

cred; Authenticator.Credentials, ver: Authenticator.Verifier, 

orgPattern: Pattern, eachOrg; NameStreamProc] returns [rc: ReturnCode]; 

EnumerateProc: -MFile- type = procedure [ 

name: long string, fullName; long string, fileProc: FileAcquireProc, 
type; Type, spindex: cardinal] returns [done: boolean «- false]; 

EnumerateProcType: --F/7eSW-- type = procedure [ 

sw: window.Handle, name; long string, access: Access] returns [done; boolean]; 

EnumerateProcType: -P/7eW/nc/ow-- type = procedure [sw: Window.Handle] 

RETURNS [continue: ContinueStop]; 

EnumerateProcType: -Menu- type = procedure [ 

window; Window.Handle, menu: Handle] returns [stop: boolean]; 

EnumerateProcType: -ToolWindow- type = procedure [window; window.Handle] 
returns [done; boolean]; 

EnumerateRoutingTable: -Router- procedure [ 

previous: System. NetworkNumber, delay: cardinal] 

RETURNS [net: System. NetworkNumber]; 

EnumerateSecondarySelections: -TextSW- procedure,] 

sw; Window.Handle, proc: procedure [TextData. Selection] returns [boolean]]; 

EnumerateSessionAttributes: -NSSessionControl- procedure [ 
procedure: procedure [SessionAttributes]]; 

EnumerateSplits: -TextSW- procedure [ 

sw; Window.Handle, proc: SplitInfoProcType]; 

EnumerateState:--/WF/7e-- type = long pointer to EnumRec; 

EnumerateSWProcType:-Too/Wmc/ow- TYPE = procedure] 

window: Window.Handle, sw: Window.Handle] returns [done: boolean]; 

EnumerateSWs; --Too/W/ndow- procedure [ 

window: Window.Handle, proc: EnumerateSWProcType]; 
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EnumerateTree: -Window- procedure ( 

root: Handle, proc: procedure (window: Handle]]; 

EnumerateUsingFile: -LibrarianUtility- procedure [ 

Librarian. Handle, LONG STRING, Librarian. SnapShotHandle, 

Librarian. Property Li St, BOOLEAN, EnumerateFileType, EnumerateLibjectProc]; 

EnumerateUsingFileServer: -LibrarianUtility- procedure ( 

LONG STRING, Librarian. SnapShotHandle, Librarian. PropertyList, BOOLEAN, 

E nu merate Li bj ectProc]; 

EnumerateVersionProc:--/./braWanL/t/V/ty- TYPE = procedure [ 

Librarian. Handle, Librarian. Full Li bjectlOHandle, Librarian. Property List] 

RETURNS (continue: boolean]; 

EnumerationType: -MFile- type = { 

filesOnly, directoriesOnly, fileAndDirectories}; 

EnumRec: —MFile— type; 

envoySocket: -NSConstants- System.SocketNumber; 

EqualCharacter: -NSString- procedure ( 

c: Character, s: String, index: cardinal] returns (boolean]; 

Equalstring: -NSString- procedure (si: String, s2: String] returns [boolean]; 

EqualStrings: -NSString- procedure [si: String, s2: String] returns [boolean]; 

Equalsubstring: --/VSStr/ng- procedure (si: Substring,s2: Substring] 
returns [boolean]; 

EqualSubStrings: -NSString- procedure [s 1 : Substring, s2: Substring] 

RETURNS [boolean]; 

EqualSystemElements: -NSSessionControl- procedure [ 

systemElementI: NSFiie.SystemElement, systemElennent2: NSFiie.SystemElement] 
RETURNS [boolean]; 

EquivalentNames: --A/SWame-- procedure [n1: Name, n2: Name] returns [boolean]; 

EquivalentSegments: --/WSegment- procedure [segl: Handle, seg2: Handle] 
RETURNS [boolean]; 

Equivalentstring: -NSString- procedure [si: String, s2: String] 

RETURNS [boolean]; 

EquivalentStrings: -NSString- procedure [si: String, s2: String] 

RETURNS [boolean]; 

Equivalentsubstring: -WSStr/ng- procedure [si: Substring, s2: Substring] 

RETURNS [boolean]; 

EquivalentSubStrings: -NSString- procedure [si: Substring, s2: Substring] 

RETURNS [boolean]; 

Erase: --\/o/ume-- procedure [volume: ID]; 

errLI: -ProtocolCertification- Stage; 

Error: -Authenticator- error [reason: Cause, forWhom: Name]; 

Error: -CHLookup- error [reason: CH.ReturnCode]; 

Error: -CmF/Ve-- signal [code: ErrorCode]; 

Error: -Context- error [code: ErrorCode]; 

Error: -Courier- error [errorCode: ErrorCode]; 

Error: -File— error [type: ErrorType]; 

Error: -FileName- signal; 

Error: -F/7eSkV-- signal [code: ErrorCode]; 

Error: -FileTransfer- signal [conn: Connection, code: ErrorCode]; 

Error: -Floppy- error [error: ErrorType]; 

Error: -FloppyChannel- error [type: ErrorType]; 

Error: -FormSW- signal [code: ErrorCode]; 

Error: -Heap— error [type: ErrorType]; 

Error: -Log- error [reason; ErrorType]; 

Error: -MailParse- error [code: ErrorCode, position: cardinal]; 

Error: -Menu- error [code: ErrorCode]; 

Error: -MFile- error [file: Handle, code; ErrorCode]; 
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Error: -MLoader- error [code: ErrorCode, string: long string]; 

Error: -MSegment- error [segment: Handle, code: ErrorCode); 

Error: -MsgSW- signal [code: ErrorCode); 

Error: -MStream- error [stream: Handle, code: ErrorCode); 

Error: -NSDataStream- srror [errorCode: ErrorCode); 

Error: -NSFile- error [error: ErrorRecord); 

Error: -NSName- error [type: ErrorType); 

Error: —NSPrint— error [why: ErrorRecord); 

Error: -NSSegment- error [type: ErrorType); 

Error: -NSVolumeControl- error [type: ErrorType); 

Error: -ObjAlloc- error [error: ErrorType); 

Error: —PacketExchange— error [why: ErrorReason); 

Error: -PageScavenger- error [errorType: ErrorType); 

Error: -PhysicalVolume-- error [error: ErrorType); 

Error: --Scavenger-- error [error: ErrorType); 

Error: -Too/- signal [code: ErrorCode); 

Error; -TTVSIV- signal [code: ErrorCode); 

Error: -Userlnput- error [code: ErrorCode); 

Error; -UserTerminalExtras- error [type: ErrorType); 

Error; -Volume-- error [error: ErrorType); 

Error; -VolumeConversion— error [error; ErrorType); 

Error; -W/nc/ow- error [code: ErrorCode); 

Error: -WindowFont- error [code: ErrorCode); 

ErrorCode:-Cmf/7e- TYPE = {fileNotFound, invalidHandle, other}; 

ErrorCode; -Context- type = {duplicateType, windowlsNIL, tooManyTypes, other); 
ErrorCode:-Cour/er- TYPE = { 

transmissionMediumHardwareProblem, transmissionMediumUnavailable, 
transmissionMediumNotReady, noAnswerOrBusy, noRouteToSystemElement, 
transportTimeout, remoteSystemElementNotResponding, 
noCou ri erAtRemoteSi te, 

tooManyConnections, invalidMessage, noSuchProcedureNumber, 
returnTimedOut, 

callerAborted, unknownErrorInRemoteProcedure, streamNotYours, 
truncatedTransfer, parameterinconsistency, invalidArguments, 
noSuchProgramNumber, protocol Mismatch, duplicateProgramExport, 
noSuchProgramExport, invalidHandle, noError); 

ErrorCode; -FileSW- type = { 

notAFileSW, isAFileSW, notEditable, isEditable, accessDenied, other}; 

ErrorCode: -FileTransfer- type = machine dependent{ 

illegalParameters, invalidObject, notAStream, illegalLogin(4), illegalConnect, 
skip, cantModify, retry, directoryFull, notFound, spare 1, spare2, 
unknown(31)}; 

ErrorCode:-Forn?SW- type = {alreadyAFormSW, notAFormSW, other}; 

ErrorCode: -MailParse- type = { 

illegalCharacter, unclosedBracket, bracketNesting, implementationBug, 
phraseExpected, domainExpected, atomExpected, commaOrColonExpected, 
atExpected, spaceInLocalName, mailBoxExpected, missingSemiColon, 
nestedGroup, 

endOfInput, commaExpected, fieldsAreAtoms, colonExpected, lessThanExpected, 
greaterThanExpected, noFromField}; 

ErrorCode:-Menu- TYPE = { 

isinstantiated, alreadyinstantiated, notinstantiated, contextNotAvailable, 
isPermanent, other}; 

ErrorCode: -MFile- type = machine dependent{ 

noSuchFile, conflictingAccess, insufficientAccess, directoryFull, 
directoryNotEmpty, illegalName, noSuchDirectory, noRootDirectory, nullAccess, 
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protectionFault, directoryOnSearchPath, illegalSearchPath, volumeNotOpen, 
volumeReadOnly, noRoomOnVolume, noSuchVolume, crossingVoiumes, 
fileAireadyExists, filelsRemote, filelsDirectory, invalidHandle, courierError, 
addressTranslationError, connectionSuspended, other(255)}; 

ErrorCode: —MLoader— type = { 

invalidParameters, missingCode, badCode, exportedTypeClash, lookupFailure, 
gftFull, loadStateFull, insufficientAccess, alreadyStarted, invalidHandle, 
invalidGlobalFrame, other}; 

ErrorCode:-A/7Segment-TYPE = machine oependent{ 

zeroLength, insufficientVM, noSuchSegment, sharedSegment, baseOutOfRange, 
conflictingAccess, illegal Access, invalidFile, dataSegmentNeedsPages, 
noRoomOnV/olume, volumeReadOnly, other(177777B)}; 

ErrorCode: -MsgSW- type = {appendOnly, notAMsgSW, other); 

ErrorCode: -MStream- type = machine dependent{ 

invalidHandle, indexOutOfRange, invalidOperation, fileTooLong, 
fileNotAvailable, invalidFile, other(177777B)}; 

ErrorCode:--/VSDataStream--TYPE = { 

localEndIncorrect, tooManyLocalConnections, tooManyTickets, 
unimplemented}; 

ErrorCode: -roo/-TYPE = { 

notATool, unknownSWType, swNotFound, invalidWindow, invalidParameters, 
other}; 

ErrorCode: -TTYSW- TYPE = {notATTYSW, badTTYHandle, other}; 

ErrorCode:--C/ser/nput--TYPE = { 

windowAlreadyHasStringInOut, noStringlnOutForWindow, 
noSuchPeriodicNotifier, 
other}; 

ErrorCode: -Window- type = { 

illegalBitmap, illegalFloat, windowNotChildOfParent, whosSlidingRoot, 
noSuchSibling, noUnderVariant, windowInTree, sizingWithBitmapUnder, 
illegalStack}; 

ErrorCode:--W/ndowFont--TYPE = {illegalFormat}; 

ErrorEntry: -BackstopNub- type = machine dependent record [ 
globalFrame(0:0.. 15): GlobalFrame, 
pc(1:0..15); PC, 

time(2:0..31): System.GreenwichMeanTime, 
options(4:0..287): select error(4:0.. 15): ErrorType from 
signal = > [ 

signal(5:0..31): Signal, 
msg(7:0..15): SignalMsg, 
stk(8:0..223): array [0..13] of unspecified], 
call = > [msg(5:0..31): StringBody], 
unused = > null, 
interrupt = > null, 

addressfault = > [faultedProcess(5,:0..15): PSBIndex], 
writeprotectfault = > [faultedProcess(5:0..15): PSBIndex], 
other = > [reason(5:0..15): SwapReason], 
bug = > [bugtype(5:0..15): cardinal], 
endcase]; 

ErrorHandling:--On/ZneD/agnost/cs--TYPE = { 

noChecking, stopOnError, loopOnError, continueOnError}; 

ErrorReason: -Packetfxchange- type = { 

blockTooBig, blockTooSmall, noDestinationSocket, noRouteToDestination, 
noReceiverAtOestination, insufficientResourcesAtDestination, 
rejectedByReceiver, hardwareProblem, aborted, timeout}; 
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ErrorRecord;--A/Sff/e-- TYPE = record [ 

SELECT errorType: ErrorType from 
access = > [orobiem; AccessProblem], 
attributeType = > [ 

problem: ArgumentProblem, 
type; AttributeType, 

extendedType: ExtendedAttributeType <— 37777777777B1, 
attributeValue = > [ 

problem: ArgumentProblem, 
type: AttributeType, 

extendedType: ExtendedAttributeType «- 37777777777B], 
authentication = > (problem; NSName.AuthenticationProblern], 
connection = > [problem; ConnectionProblem], 
controlType = > (problem; ArgumentProblem, type: ControlType], 
controlValue = > [problem; ArgumentProblem, type: ControlType], 
handle = > [problem: HandleProblem], 
insertion = > [problem; InsertionProblem], 
scopeType = > [problem; ArgumentProblem, type: ScopeType], 
scopeValue = > [problem: ArgumentProblem, type: ScopeType], 
service = > [problem: ServiceProblem], 
session = > [problem: SessionProblem], 
space = > [problem; SpaceProblem], 
transfer = > [problem: TransferProblem], 
undefined = > [problem: UndefinedProblem], 
endcase]; 

ErrorRecord;--WSPr/rjt- TYPE = record [ 
select errorType: ErrorType from 

busy = > NULL, 

insufficientSpoolSpace = > null, 
invalidPrintParameters = > null, 
masterTooLarge = > null, 
mediumUnavailable = > null, 
serviceUnavailable = > null, 
spoolingDisabled = > null, 
spoolingQueueFull = > null, 
system Error = > null, 
tooManyClients = > null, 

undefinedError = > [undefined: UndefinedProblem], 
transferError = > [transfer: TransferProblem], 
connection Error = > [connection: ConnectionProblem], 
courier = > [courier: Courier. ErrorCode], 
endcase]; 

errorServer: -ProtocolCertification- Stage; 

errorSocket: -NSConstants- System. SocketNumber; 

ErrorType:--Sac/fStopA/ub-- TYPE = machine dependent{ 

addressfault, writeprotectfault, signal, call, unused, interrupt, other, bug}; 

ErrorType:-F(7e-- TYPE = {invalidParameters, reservedType); 

ErrorType: -Floppy- type = { 

badDisk, badSectors, endOfFile, fileListFull, fileNotFound, hardwareError, 
incompatibleSizes, invalidFormat, invalidPageNumber, invalidVolumeHandle, 
insufficientSpace, needsScavenging, noSuchDrive, notReady, onlyOneSide, 
onlySingleDensity, initialMicrocodeSpaceNotAvailable, stringTooShort, 
volumeNotOpen, writeinhibited, zeroSizeFile, fileListLengthTooShort, 
floppylmageinvalid, floppySpaceTooSmall}; 

ErrorType;--F/oppyChanne/-- TYPE = {invalidDrive, invalidHandle); 
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ErrorType:--Heap-TYPE = { 

insufficientSpace, invalidHeap, invalid Node, invalidZone, invalidOwner, 
otherError, invalidSize, invalidParameters, maxSizeExceeded}; 

ErrorType: -Log- type = machine dependent{ 

illegalLog, invalidFile, logNoEntry, logNotOpened, tooSmallFile}; 

ErrorType: -NSFile— type = { 

access, attributeType, attributeValue, authentication, connection, 
controlType, controlValue, handle, insertion, scopeType, scopeValue, service, 
session, space, transfer, undefined}; 

ErrorType:-WSA/ame-TYPE = { 

ambiguousSeparators, invalidCredentials, notSuperWeak, tooManySeparators}; 
ErrorType:-NSPr/nt-TYPE = machine dependent{ 

busy, insufficientSpoolSpace, invalidPrintParameters, masterTooLarge, 
mediumUnavailable, servicellnavailable, spoolingDisabled, spoolingQueueFull, 
systemError, tooManyClients, undefinedError, connectionError, transferError, 
courier); 

ErrorType: -NSSegment- type = { 

illegalForDefault, improperByteCount, invalidSegmentID, noSuchSegment, 
segmentAI ready Exists, tooManySegments); 

ErrorType: -NSVolumeControl- type = { 

alreadyinitialized, alreadyOpen, badPilotLog, cannotScavengeSystemVolume, 
cannotWriteLog, incompatibleVolume, invalidVolume, logVolumeNotOpen, 
needsScavenging, noFileSystem, notMounted, notOpen, openFiles, 
pilotScavengeFailed, pilotScavengerError, unknownPilotVolume}; 

ErrorType: -ObyAZ/oc- type = {insufficientSpace, invalidParameters); 

ErrorType:-PageScavenger-TYPE = { 

driveNotAvailable, driveNotReady, invalidPageNumber, unknownDrive); 
ErrorType:-P/jys/ca/l/o/ume-TYPE = { 

badDisk, badSpotTableFull, containsOpenVolumes, diskReadError, 
hardwareError, 

hasPilotVolume, alreadyAsserted, insufficientSpace, invalidHandle, 
nameRequired, notReady, noSuchDrive, noSuchLogicalVolume, 
physicalVolumeUnknown, writeProtected, wrongFormat, needsConversion); 
ErrorType: -Scavenger- type = { 

cannotWriteLog, noSuchPage, orphanNotFound, volumeOpen, 
d iskHardware Error, 

diskNotReady, needsRiskyRepair, needsConversion); 

ErrorType:-L/serTerm/na/Extras-TYPE = { 

multipleWindows, noScrollWindow, lineCountError, yQuantumError, 
xQuantumError); 

ErrorType:-Vo/ume-TYPE = { 

nameRequired, pageCountTooSmallForVolume, 
subvolumeHasTooManyBadPages, 
tooManySubvolumes); 

ErrorType: -VolumeConversion- type = { 

hardwareBroken, lostLog, runPreviousScavenger, volumeVersionTooNew, 
volumeVersionTooOld); 
errorUser: -ProtocolCertification- Stage; 

ESC: -Ascii- character = 33C; 

ESCTrapTable: -PrincOps- OpTrapTable; 

etherBooteeFirstSocket: -NSConstants— System. SocketNumber; 
etherBooteeLastSocket: -NSConstants- System. SocketNumber; 
etherBootGermSocket: -NSConstants- System. SocketNumber; 

EtherDiagError: -CommOnUneDiagnostics- error [reason: EtherErrorReasonl; 
EtherDiagError: -RemoteCommDiags- error [ 
reason: CommOniineOiagnostics.EtherErrorReason]; 
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EtherErrorReason: -CommOnlineDiagnostics-TyPi = machine dependent{ 
echoUserNotThere, noMoreNets, tooManyEchoUsers}; 

Ethernet: --Dewce-- type = cardinal (5.. 15]; 

ethernet: -DeviceTypes— Oevice.Type; 

ethernetOne: -DeviceTypes- Device.Type; 

EtherStatsInfo: -CommOnlineDiagnostics—i'YPP = array Statsindices of long 
cardinal; 

EventReporter: -CommOnlineDiagnostics- type = procedure [event; EchoEvent]; 

Exception: -Real- type = machine dependent{ 

fixOverflow, inexactResult, invalidOperation, divisionByZero, overflow, 
underflow}; 

ExceptionFlags:--Rea/-- TYPE = packed array Exception of Flag; 

ExchangeClientType:-F*ac/ceffxc/)ange- TYPE = machine dependent{ 
unspecified, timeService, clearinghouseService, teledebug(8), 
electronicMailFirstPEType(16), electronicMailLastPEType(23), 
remoteDebugFirstPEType, remoteDebugLastPEType(31), 
acceptanceTestRegistration, 

performanceTestData, protocolCertification(40), voyeur, dixieDataPEType(65), 
dixieAckPEType, dixieBusyPEType, dixieErrorPEType, outsideXeroxFirst(IOOOOOB), 
outsideXeroxLastd 77777B)}; 

ExchangeHandle: -PacketExchange- type [2]; 

ExchangelD;-Pac/cetfxcbange-TYPE = machine dependent record [ 
a(0:0..15): word, b(1:0..15): word); 

ExchWords: -PacketExchange- procedure [long unspecified] 
returns [long unspecified]; 

ExecProc: -Exec- type = procedure [h; Handle, clientData: long pointer <— nil] 
RETURNS [outcome: Outcomes-normal]; 

Exit; -NSSessionControl- procedure [session; NSFiie.Session, id; ServicelD]; 

Exp: -RealFns- procedure [real] returns [real]; 

Expand: -Heap- procedure [z: uncounted zone, pages: Environment.PageCount]; 

Expand: -MDSStorage- procedure [pages: cardinal]; 

ExpandAllocation: -OfayA//oc- procedure [ 

pool: AllocPoolDesc, where; Itemindex, count: ItemCount, 
willTakeSmaller: boolean <- false] returns [extendedBy; ItemCount]; 

ExpandingRingAction:-Exped/tec/Cour/er- TYPE = { 
findMostServersInShortTime, reliablyFindAIIServers}; 

ExpandMDS: -Heap— procedure [z: MDSZone, pages: Environment.PageCount]; 

ExpandQ: -Expand- type [1]; 

ExpandQueues; -Expand- procedure [ 

toQ: ExpandQ, fromQ: ExpandQ, all: boolean false, 
isAborted: AbortProcType <— nil, mask: Mask <—defaultMask]; 

ExpandString: -Expand- procedure [ 

cmdLine: long string, isAborted: AbortProcType nil, 
mask: Mask «-defaultMask] returns [long string]; 

ExpandString; -MOSStorage- .procedure [s: pointer to string, longer: cardinal]; 

ExpandString: -NSString- procedure [z: uncounted zone, s: String] 

RETURNS [Characters]; 

ExpandToTokens: -Expand- procedure [ 

cmdLine: long string, proc; procedure [long string] returns [boolean], 
isAborted: AbortProcType«— nil, mask: Mask «-defaultMask]; 

ExpeditedServiceHandle: -ExpeditedCourier— type [2]; 

ExportExpeditedPrograms: -ExpeditedCourier- procedure [ 
services: Services, socket; System. SocketNumber] 

RETURNS [h: ExpeditedServiceHandle]; 

Exportitem;-Courier- TYPE = machine dependent record [ 
programNumber(0;0..31): long cardinal. 
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versionRange(2:0..31): VersionRange, 
serviceName(4;0..31): long string, 
exportTime(6:0..31): System. GreenwichMeanTime]; 

ExportRemoteProgram: -Courier- procedure [ 

programNumber: long cardinal, versionRange: VersionRange, 

dispatcher: Dispatcher, serviceName: long string «- nil, zone: uncounted zone, 

classOfService: NetworkStream.ClassOfService]; 

Exports:--Cour/er- TYPE = array cardinal of Exportltem; 

Extended: -Real- type = record [ 

type: NumberType, sign: boolean, exp: integer, frac: long cardinal]; 

ExtendedAttributeList: --WSF/Ve-- type = long descriptor for array cardinal of 
extended Attribute; 

ExtendedAttributeType: --WSF/Ve- type = long cardinal; 

ExtendedSelections: --A/SF//e- type = long descriptor for array cardinal of 
Extended Attri buteTy pe; 

ExtractHashedPassword: -Authenticator- procedure [verifier: Verifier] 

RETURNS [hash: cardinal]; 

FAdd: -Real- procedure [a: real, b: real] returns [real]; 

Failed: -Fetr/eveDefs- error [why: FailureReason]; 

failure: -RS232CCorrespondents- RSZSZCEnvironment.AutoRecognitionOutcome; 

FailureReason: -NetworkStream- typ^. = { 

timeout, noRouteToDestination, noServiceAtDestination, remoteReject, 
tooManyConnections, noAnswerOrBusy, noTranslationForDestination, 
circuitInUse, 

circuitNotReady, noDialingHardware, dialerHardwareProblem}; 

FailureReason:-Retr/eveDefs-- TYPE = { 

communicationFailure, noSuchServer, connectionRejected, badCredentials, 
unknownFailure}; 

faUureJype:-FormatPilotDisk-TYPE = { 

emptyFile, firstPageBad, flakeyPageFound, microcodeTooBig, other}; 

FComp: -Real- procedure [a: real, b: real] returns [integer]; 

FOiv: -Real- procedure [a: real, b: real] returns [real]; 

Feed: -RavenFace- procedure [ 

paperSource: PaperSource, paperStacking: PaperStacking]; 

FeedAII: -LsepFace- procedure [paperSource: PaperSource]; 

FeedbackProc: -Exec- procedure [h: Handle] returns [proc: Format.StringProc]; 

FeedExit: --LsepFace-- procedure; 

Fetch: -Cursor- procedure [Handle]; 

FetchFromType: -Cursor- procedure [cursor: Handle, type: Defined]; 

FF: -Asc//- CHARACTER = 14C; 

Field: -AddressTranslation- type = {net, host, socket, ambiguous); 

field :-OnlineDiagnostics- TYPE = record [ 

fieldName: FloppyMessage, fieldValue: unspecified]; 

FieldDataType: -OnlineDiagnostics- type = { 

boolean, cardinal, character, hexadecimal, hexbyte, integer, octal, string); 

FieldDescriptor:-PrmcOps-TYPE = machine dependent record [ 

offset(0:0..7): BYTE, posn(0:8..11): [0..15],size(0:12..15): [1..16]]; 

fiftyPercent: -Display— Brick; 

File: -F/7e-TYPE = record [filelD: ID, volumelD: System. VolumelD]; 

FileAcquireProc: -MFile- type = procedure [ 

access: Access, release: ReleaseData] returns [Handle]; 

filedBy:-WSAss/g/ieofTypes-AttributeType = 24; 

filedOn:-A/SAss/gnedrypes-AttributeType = 25; 

FileEntry: -Scavenger- type = machine dependent record [ 
file(0:0..31): File.lD, 
sortKey(2:0..31): long cardinal. 
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numberOfProblems(4:0..15): cardinal, 
problems(5): array (0..0) Of Problem]; 

FileHandle: -Floppy- = record (volume: VolumeHandle, file: FilelDj; 

FilelD; -Floppy- type = private machine dependent record [ 
a(0:0..15): word, b(1:0..15): word); 

filelD:--A/SyAss/gnedrypes--AttributeType = 4; 

Fileinfo:-F/Verransfer-- TYPE = long pointer to FilelnfoObject; 

FileInfoObject: -FUeTransfer- type = machine dependent record [ 
host(0:0..31): long strings-nil, 
directory(2:0..31): long string «-nil, 
body(4:0..31): long strings-nil, 
version(6:0..31): long string «— nil, 
author(8:0..31): long string*-nil, 
create(10;0..31): Time.Packed <-System.gmtEpoch, 
read(12:0..31): Time.Packed <-System.gmtEpoch, 
write(14:0..31): Time.Packed «—System.gmtEpoch, 
size(16:0..31): long cardinal <-0, 
type(18:0..7): FileType *-unknown, 
oldFile(18;8..8): boolean *- true, 
readProtect( 18:9.9): boolean <- false, 
pad(18:10..15): (0..63]*-0]; 

FileinWindow: -FileWindow- procedure [sw: window.Handle] 

RETURNS [fileName: long string, s: stream. Handle]; 

FileName: -Token- FilterProcType; 

Fileserver: -CHtoo/cup-TYPE = machine dependent record [ 

address(0:0..95): System.NetworkAddress, location(6:0..63): NSString.String]; 

FileserverDescribe: -CHLookup- Courier.Description; 

fileServerProtocol: -fventrypes--Supervisor.Event; 

FileServerProtocol:-Prof//e-TYPE = {pup, ns}; 

FileserverPt: --CHLoo/cup-TYPE = long pointer to Fileserver; 

FileServiceFileType: -FileTypes-ryPE = cardinal [10000B..217778]; 

fileSW: -DebugilsefulDefs— readonly window.Handle; 

fileSystem: —Event- readonly Supervisor.SubsystemHandle; 

FileSystemEvents:--fventfypes --type = [200..299]; 

FileType:--F/7erransfer- TYPE = machine dependent{ 
unknown, text, binary, directory, null(255)}; 

FileType:--F//erypes--TYPE = Fiie.Type; 

FileType: —WSAss/gnedlypes-TYPE = NSFile.Type; 

fileWindow: -Event— readonly Supervisor.SubsystemHandle; 

FileWindowEvents:--fventfypes-- TYPE = [500..599]; 

fillMapLog: --P/VotSw/tcbes--PilotDomainC = 375C; 

FillRoutingTable: -Router-- procedure [maxDelay: cardinal*— infinity]; 

Filter: -MF/Ve-TYPE = record [ 

name: long string «- nil, type: Type *- null, access: Access]; 

Filter:-WSF//e- TYPE =..record [ 
var: select type: FilterType from 

less = > [attribute: Attribute, interpretation: Interpretation *-none], 
lessOrEqual = > [ 

attribute: Attribute, interpretation: Interpretation *—none], 
equal = > [attribute: Attribute, interpretation: Interpretation *-none], 
notEqual = > [attribute: Attribute, interpretation: Interpretation *—none], 
greaterOrEqual = > [ 

attribute: Attribute, interpretation: Interpretation *-none], 
greater = > [attribute: Attribute, interpretation: Interpretation *-none], 
matches = > [attribute: Attribute], 
and = > [list: long descriptor for array cardinal of Filter], 
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or = > [list: long descriptor for array cardinal of Filter], 
not = > [filter: long pointer to Filter], 
none = > null, 

all = > NULL, 

endcase]; 

Filtered: -Token- procedure [ 

h: Handle, data: FilterState, filter: FilterProcType, 

skip: SkipMode whiteSpace, temporary: boolean «— true] 

RETURNS [value: long string]; 

FilterProcType:-FormSW-- TYPE = procedure] 

sw: wmdow.Handle, item: ItemHandle, insert: cardinal, string: long string]; 
FilterProcType:--roken-- TYPE = procedure [c: character, data: FilterState] 

RETURNS [inClass: boolean]; 

FilterState:-Token-- TYPE = long pointer to StandardFilterState; 

FilterType:-/VSF/7e- TYPE = machine dependent{ 

less, lessOrEqual, equal, notEqual, greaterOrEqual, greater, and, or, not, 
none, all, matches}; 

Finalize: -MailParse- procedure [h: Handle]; 

Find; -BTree- procedure [tree; Tree, name: long string, value: Value] 

RETURNS [ok; boolean]; 

Find: -Context- procedure [type: Type, window: Wmdow.Handle] returns [Data]; 
Find: -NSFile- procedure [ 

directory: Handle, scope: Scope *— [], controls: Controls <- [], 
session: Session «— nullSession] returns [file: Handle]; 

FindAddresses: -NetworkStream- procedure [sH: stream. Handle] 

returns [local: System. NetworkAddress, remote: System. NetworkAddress]; 
FindData: -ToolDriver- FindDataProcType; 

FindDataProcType; -Too/OnVer- type = procedure [toollD; ToollD] 

RETURNS [long POINTER]; 

FindOestinationRelativeNetIO; -Router- procedure [System. NetworkNumber] 

RETURNS [System. NetworkNumber]; 

FindIndex; -FormSW- procedure [sw: wmdow.Handle, item: ItemHandle] 

RETURNS [cardinal]; 

FindItem: -CmFile- procedure [ 

h: Handle, title: long string, name: long string] returns [found; boolean]; 
FindItem: -FormSW- procedure [sw: Window.Handle, index; cardinal] 

RETURNS [ItemHandle]; 

FindMCR: -TextSW- Menu.MCRType; 

FindMyHostID: -Router- procedure returns [System. HostNumber]; 

FindOrCreate: -Context- procedure [ 

type; Type, window: wmdow.Handle, createProc: CreateProcType] returns [Data]; 
FindSection: -CmFile- procedure [h: Handle, title: long string] 
returns [opened: boolean]; 

Findstring: -LexiconDefs- procedure [long string] returns [boolean]; 

FindUnused: -NSSegment- procedure [ 

file: NSFile.Handle, startID: ID <— defaultID, session: Session nullSession] 

RETURNS [ID]; 

finishStage: -ProtocolCertification— Stage; 

FinishWithNonPilotVolume; -PhysicalVolume- procedure [instance: Handle]; 
first64K;-Fnv/fonment-Base; 

First: —TIP- procedure [results; Results] returns [ResultElement]; 
firstCredentialEvent: -fventTypes- cardinal = 400; 
firstDebugEvent: -fventTypes- cardinal = 0; 
firstDefaultEvent; -fventTypes- cardinal = 300; 
firstDisplayEvent: -fventTypes- cardinal = 800; 
firstFileSystem: -fventTypes- cardinal = 200; 
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firstFileWindowEvent: -fventrypes- cardinal = 500; 

FirstNearerThenSecond; -NSAddr- procedure [ 

first; System. NetworkAddress, second: System. NetworkAddress] 

RETURNS [itis: boolean]; 

firstOtherEvent; -EventTypes- cardinal = 700; 
firstPageCount:--£ni//ronment - PageCount = 0; 
firstPageCount: --f/7e--PageCount = 0; 
firstPageCount; --F/oppy-PageNumber = 0; 
firstPageCount; -Phys/ca/Vo/ume-PageCount = 0; 
firstPageCount: -Volume- PageCount = 0; 
firstPageNumber: --£r7U’/for}merJt-PageNumber = 0; 
firstPageNumber; -File- PageNumber = 0; 
firstPageNumber; -PhysicalVolume- PageNumber = 0; 
firstPageNumber: -Vo/ume--PageNumber = 0; 
firstPageOffset: -Environment- PageOffset = 0; 
firstPosition: -NSFile— readonly Position; 
firstPositionRepresentation; -NSFile— array [0..0] of unspecified; 
FirstQ2000PageForPilot: --FormatP/7otD/s/c--DiskPageNumber = 128; 
FirstSAlOOOPageForPilot; --FormatP/ZotO/s/c--DiskPageNumber = 128; 
firstServicesAType;--A/SAss/gneofrypes--AssignedType = 100008; 
firstServicesBType;--WSAss/gnedTypes--AssignedType = 11000B; 
firstSpare; -£uer)trypes-- cardinal = 1000; 
firstStandardType:--WSAss/gr7edrypes-AssignedType = 0; 
firstStarType:--A/SAss/gnedrypes--AssignedType = 10400B; 

FirsttSOOPageForPilot: --FormatP»7otD/s/c--DiskPageNumber = 570; 
FirsttBOPageForPilot: -FofmatP;7otD(Sk--DiskPageNumber = 150; 
firstToolWindowEvent; -fveritTypes-- cardinal = 600; 
firstVerifier; -Authenticator- Verifier; 
firstVetoEvent:--firerjfTypes- CARDINAL = 100; 
firstW5860Type:--A/SAss/gnedrypes--AssignedType = 12000B; 

Fix: -Real- procedure [real] returns [long integer]; 

FixC: -Real- procedure [real] returns [cardinal]; 

Fixl; -Real- procedure [real] returns [integer]; 

Flag; --FormSW-- TYPE = { 

clientOwnsItem, drawBox, hasContext, invisible, readonly, modified}; 

Flag:-Rea/-- TYPE = boolean false; 

Flags:-Fonts- TYPE = machine dependent record [ 
pad(0:0..0): boolean, stop(0:1..1): boolean]; 

Flavor;-Autbent/catof- TYPE = NSName.CredentialsType; 

Float: -Real- procedure [long integer] returns [real]; 

Float: -Window- procedure [ 

window: Handle, temp; Handle, 

proc: procedure [window; Handle] returns [place: Place, done: boolean]]; 
FloppyCleanReadWriteHeads: -OnlineDiagnostics- procedure [ 
displayFields: DisplayFieldsProc, displayTable: DisplayTableProc, 
displayNumberedTable: DisplayNumberedTableProc, putMessage; 
PutMessageProc, 

getConfirmation: GetConfirmationProc, getYesOrNo: GetYesOrNoProc, 
getFloppyChoice; GetFloppyChoiceProc] returns [floppyReturn; FloppyReturn]; 
FloppyCommandFileTest; -OnlineDiagnostics- procedure [ 

density: SingleDouble, sides; SingleDouble, sectorsPerTrack; cardinal [8..26], 
sectorLength; SectorLength, errorHandling: ErrorHandling, 
cmdFile: long string, displayFields: DisplayFieldsProc, 
displayTable: DisplayTableProc, 

displayNumberedTable; DisplayNumberedTableProc, putMessage: 
PutMessageProc, 
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getConfirmation: GetConfirmationProc, getYesOrNo; GetYesOrNoProc, 
getFloppyChoice; GetFloppyChoiceProc]; 

FloppyDisplayErrorLog: -OnlineDiagnostics- procedure [ 

displayFields: DisplayFieldsProc, displayTable: DisplayTableProc, 
displayNumberedTable: DisplayNumberedTableProc, putMessage; 
PutMessageProc, 

getConfirmation: GetConfirmationProc, getYesOrlMo: GetYesOrNoProc, 
getFloppyChoice: GetFloppyChoiceProc]; 

FloppyExerciser: -OnlineDiagnostics- procedure [ 

displayFields: DisplayFieldsProc, displayTable: DisplayTableProc, 
displayNumberedTable: DisplayNumberedTableProc, putMessage: 
PutMessageProc, 

getConfirmation: GetConfirmationProc, getYesOrNo: GetYesOrNoProc, 
getFloppyChoice: GetFloppyChoiceProc); 

FloppyFormatDiskette: -OnlineDiagnostics- procedure [ 

displayFields; DisplayFieldsProc, displayTable: DisplayTableProc, 
displayNumberedTable: DisplayNumberedTableProc, putMessage: 
PutMessageProc, 

getConfirmation: GetConfirmationProc, getYesOrNo: GetYesOrNoProc, 
getFloppyChoice: GetFloppyChoiceProc); 

FloppyMessage:--On//neD/agnost/cs--TYPE = { 

cFirst, cCallCSC, cCloseWn, cEnsureReady, cExit, cInsDiffCleanDisk, 
cInsertCleanDisk, clnsertDiagDisk, cInsertWriteable, cNBNotReady, 
cOtherDiskErr, cRemoveCleanDisk, cRemoveDiskette, cLast, hFirst, hBusy, 
hExped, hExpec2, hCRCI, hCRC2, hCRCErr, hDelSector, hDiskChng, hErrDetc, 
hGoodComp, hHead, hHeadAddr, hlllgIStat, hIncrtLngth, hObserl, hObser2, 
hReadHead, hReadSector, hReadStat, hReady, hRecal, hRecalErr, hSector, 
hSectorAddr, hSectorCntErr, hSectorLgth, hSeekErr, hTimeExc, hTrack, hTrackO, 
hTrackAddr, hTwoSide, hWriteDelSector, hWritePro, hWriteSector, hLast, iFirst, 
iBadContext, iBadLabel, iBadSector, iBadTrackO, iCheckPanel, iCIERec, 
iCIeanDone, iCIeanProgress, iErrDet, iErrNoCRCErr, iExerWarning, iFormDone, 
i Form Progress, iFormWarning, iHardErr, iHeadDataErr, ilnsertDiagDisk, 
ilnsertFormDisk, iOneSided, iRunStdTest, iSoftErr, iTnx, iTwoSided, 
iUnitNotReady, iVerDataErr, iLast, tFirst, tByteCnt, tCIERH, tCIERS, tCIEVer, 
tCIEWDS, tCIEWS, tHeadDataErr, tHeadDisp, tHeadErrDisp, tSectorDisp, 
tStatDisp, tSummErrLog, tVerDataErr, tLast, yFirst, yDispSects, 
yDispExpObsData, yOoorJustOpened, yDoorOpenNow, yDoorOpenShut, 
yIsltDiagDisk, 

yIsItWrProt, ySti 11 Continue, yStillSure, yLast}; 

FloppyReturn:-On//neO/agnost/cs-- TYPE = { 

deviceNotReady, notDiagDiskette, floppyFaiiure, noErrorFound}; 

FloppyStandardTest; -OnlineDiagnostics- procedure [ 

displayFields: DisplayFieldsProc, displayTable: DisplayTableProc, 
displayNumberedTable: DisplayNumberedTableProc, putMessage: 
PutMessageProc, 

getConfirmation: GetConfirmationProc, getYesOrNo: GetYesOrNoProc, 
getFloppyChoice: GetFloppyChoiceProc] returns [floppyReturn: FloppyReturn); 

FloppyWhatToDoNext: -OnlineDiagnostics- tvpb = { 

continueToNextError, loopOnThisError, displayStuff, exit}; 

FlowControl: --RS232C--TYPE = RS232CEnvironment.FlowControl; 

FlowControl: -RS232CEnvironment- tvpb = machine dependent record [ 
type(0:0..15): machine DEPENDENT{none, xOnXOff}, 
xOn(1:0..15): unspecified, 
xOff(2:0..15): unspecified); 

Flush: -Heap- procedure [z: uncounted zone); 

FlushMOS: -Heap- procedure [z: MDSZone); 
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flushSymbols: -EventTypes- Supervisor. Event,■ 

FlushUserInput: -TIP- procedure; 

FMul: -Real- procedure [a: real, b; real] returns [real]; 

FocusTakesInput: -Userinput- procedure returns [boolean]; 

Font:-Bands/.f-- TYPE = cardinal [0.. 127]; 

FontBitsPtr: -Fonts- type = long pointer to array [0..0) of unspecified; 

FontCharPtr: -Fonts- type = long pointer to array character of CharEntry; 

FontHeight; -WindowFont- procedure [font; Handle <—defaultFont] 

RETURNS [natural]; 

FontRecord;-Fonts- TYPE = machine dependent record [ 
fontbits(0:0..31): FontBitsPtr, 
fontwidths(2:0. .31); FontWi dthsPtr, 
fontchar(4:0..31); FontCharPtr, 
rgflags(6:0..31); RgflagsPtr, 
height(8:0..1S): cardinal]; 

FontWidthsPtr: -Fonts- type = long pointer to packed array character of 
CARDINAL [0..255]; 

ForceOut: -MSegment- procedure [segment: Handle]; 

forkAgingProcess: -PilotSwitchesExtraExtraExtras- PiiotSwitches.PilotDomainC = 
365C; 

Format: -Floppy- procedure [ 

drive: cardinal, maxNumberOfFileListEntries: cardinal, 

labelstring: long string, density: Density <-default, sides: Sides default]; 

Format: -FormatPilotDisk- procedure [ 

h: Physicaivolume.Handle, firstPage: DiskPageNumber, count: long cardinal, 
passes: cardinal 10, retries: RetryLimite-noRetries]; 

FormatBootMicrocodeArea: -FormatPilotDisk- procedure [ 
h: PhysicaiVolume.Handle, passes: cardinal, retries: RetryLimit]; 

Formatter: -WSPr/nt- type = machine DEPENDENT{available, busy, disabled}; 

FormattingMustBeTrackAligned: -FormatPilotDisk- error; 

FormatTracks: -F/oppyChanne/- procedure [ 

handle: Handle, start: DiskAddress, trackCount: cardinal] 

RETURNS [status: Status, countDone: cardinal]; 

Frame: -Backstop- type [1]; 

Frame: -DebugUsefulDefs- procedure [name: long string] returns [GFHandle]; 

FrameDesc: -DebugUsefulDefs- = long descriptor for readonly array 
CARDINAL OF GFHandle; 

framelink: -Pr/ncOps- cardinal = 0; 

FrameSizeIndex: -Pr/ncOps-TYPE = [0..30]; 

frameSizeMap: -PrincOps- array FrameSizeIndex of [0..77748]; 

FrameVec: —PrincOps— array FrameSizeIndex of [0..7774B]; 

Free: -Courier- procedure [parameters: Parameters, zone; uncounted zone]; 

Free; -MDSStorage- procedure [p: pointer]; 

Free: -Menu- procedure [menu: Handle, freeStrings: boolean <— true]; 

Free: -ObjAlloc- procedure [ 

pool: AllocPoolDesc, interval; Interval, validate: boolean <— true]; 

FreeAccessList: -NSFile- procedure [list; AccessList]; 

FreeAddress: -NSAddr- procedure [address: Address] 

RETURNS [nullAddress: Address]; 

FreeAlHtems: -FormSW- procedure [sw: window.Handle]; 

FreeAttributeList: -NSFile- procedure [list: AttributeList]; 

FreeAttributes; -NSFile- procedure [attributes: Attributes]; 

FreeBadPhosphorList; -Window- procedure [window; Handle]; 

FreeCharacters: -NSString- procedure [z: uncounted zone, c: Characters]; 

FreeCredentials; -Authenticator- procedure [ 

z: uncounted zone, credentials: long pointer to Credentials]; 
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FreeCredentials: -NSName- procedure [ 

z; UNCOUNTED ZONE, Credentials: Credentials]; 

FreeCursorSlot: -HeraldWindow- procedure [slot: Slot] returns [nil: Slot]; 
FreeEncodedParameters: -NSName- procedure [ 
z: uncounted zone, 

encoding: long descriptor for array cardinal of unspecified]; 
FreeEnumeration: -Courier- procedure [enum: long descriptor for Exports]; 
FreeExtendedAttributes: -NSFile- procedure [ 
extendedAttributes: ExtendedAttributeList]; 

FreeFiiename: -FileName- procedure [long string]; 

FreeHintsProcType: -FormSW- type = procedure [hints: Hints]; 

FreeHistogram: -CommOnlineDiagnostics- procedure [hist: Histogram]; 
Freeltem: -FormSW- procedure [item: ItemHandle, z: uncounted zone <- nil] 
RETURNS [ItemHandle]; 

Freeltem: -Menu- procedure [ItemObject]; 

FreeMOSNode: -Heap- procedure [z: MDSZone «— systemMDSZone, p: pointer]; 
FreeMedia: -NSPrint- procedure [media: long pointer to Media]; 

FreeName: -NSName- procedure [z: uncounted zone, name: Name]; 
FreeNameFields: -WSWame- procedure [z: uncounted zone, name: Name]; 
FreeNode: -Heap- procedure [z: uncounted zone *— systemZone, p: long pointer]; 
FreeNode: -Zone- procedure [zH: Handle, p: long pointer] returns [s: Status]; 
FreeNodeNil: -MDSStorage- procedure [p: pointer] returns [nil: pointer]; 
FreeNSAddrStorage: -WSAcydr- procedure [nsAddr: NSAddr]; 

FreePages: -MDSStorage- procedure [base: pointer]; 

FreePages: -MSegment- procedure [base: long pointer]; 

FreePagesNil: -MDSStorage- procedure [base: pointer] returns [nil: pointer]; 
FreePrinterProperties: -NSPrint- procedure [ 

printerProperties: long pointer to PrinterProperties]; 

FreePrinterStatus: -NSPrint- procedure [ 

printerstatus: long pointer to PrinterStatus]; 

FreeRequestStatus: -NSPrint- procedure [ 

requestStatus: long pointer to RequestStatus]; 

FreeRhs: -CH- procedure [rhs: Buffer, heap: uncounted zone]; 

FreeRhsStorage: -NSAddr- procedure [rhs: ch. Buffer]; 

FreeSearchPath: -MFile- procedure [SearchPath]; 

FreeString: -CmFile- procedure [long string] returns [nil: long string]; 

FreeString: -MDSStorage- procedure [s: string]; 

FreeString: -NSPrint- procedure [string: long pointer to String]; 

FreeString: -NSString- procedure [z: uncounted zone, s: String]; 
FreeStringHandle: -7o/ten-- procedure [h: Handle] returns [nil: Handle]; 
FreeStringNil: -MDSStorage- procedure [s: string] returns [nil: string]; 
FreeTokenString: -Exec- procedure [s: long string] returns [nil: long string]; 
FreeTokenString: -Token- procedure [s: long string] 
returns [nil : long string «- nil]; 

FreeVFN: -FileName- procedure [VFN]; 

FreeWords: -MDSStorage- procedure [base: pointer]; 

FreeWords: -MSegment- procedure [base: long pointer]; 

FreeWords: -NSFile- procedure [words: Words]; 

FRem: -Real- procedure [a: real, b: real] returns [real]; 

FSIndex: “Pr/ncOps— TYPE = cardinal [0..255]; 

FSub: -Real- procedure [a: real, b: real] returns [real]; 
fullAccess: -NSFile- Access; 

galaxySocket: -NSConstants- System. SocketNumber; 

GenericProgram:-Punt/me- type = long unspecified; 
germExtendedErrorReports: -PilotSwitches- PilotDomainC = 360C; 
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Get: -RS232C- procedure [channel: ChannelHandle, rec: PhysicalRecordHandle] 
RETURNS [CompletionHandle]; 

Get: -TTYPort- procedure [channel: ChannelHandle] 

RETURNS [data: character, status; TransferStatusj; 

GetAccess: -MFile- procedure [file: Handle] returns [access: Access]; 

GetAddress: -DebugilsefulDefs - procedure [Handle] 

RETURNS [base; long pointer, offset: Bits, there: boolean]; 

GetAddress; -NSAddr- procedure returns [address: Address]; 

GetAdjustProc; -ToolWindow- procedure [window: Handle] 

RETURNS [AdjustProcType]; 

GetAttributes: -F/7e-- procedure [file: File] 

RETURNS [type: Type, temporary: boolean]; 

GetAttributes: -Floppy- procedure [ 

volume: VolumeHandle, labelstring: long string] 

RETURNS [ 

freeSpace: PageCount, largestBlock: PageCount, fileList: FileHandle, 
rootFile: FileHandle, density: Density [single..double], 
sides: Sides [one..two], maxFileListEntries: cardinal]; 

GetAttributes: -Heap- procedure [z: uncounted zone] 

RETURNS [ 

heapPages: Environment.PageCount, maxSize: Environment.PageCount, 
increment: Environment.PageCount, swapUnitSize: Space.SwapUnitSize, 
ow.nerChecking: boolean, checking: boolean, attributes: Attributes]; 

GetAttributes: -LogFile- procedure [ 

file: Piie.File, current: Log. Index, firstPageNumber: Piie.PageNumber«—1] 

RETURNS[ 

time; System. GreenwichMeanTime, type: Type, level; Log. Level, 
size: cardinal]; 

GetAttributes: -NSFile- procedure [ 

file: Handle, selections; Selections, attributes: Attributes, 
session: Session «-nullSession]; 

GetAttributes: -NSVolumeControl- procedure [volume: voiume.lD] 

RETURNS[ 

used: long cardinal, available: long cardinal, index; IndexAttributes, 
root: NSFile. ID]; 

GetAttributes; -Phys/ca/Vo/ume-- procedure [pvID: ID, label: long string «-nil] 
RETURNS [instance: Handle, layout: Layout]; 

GetAttributes: --\/o/ume— procedure [volume: ID] 

RETURNS [volumeSize; PageCount, freePageCount: PageCount, readonly: 
boolean]; 

GetAttributes: -Zone-- procedure [zH: Handle] 

RETURNS [ 

zoneBase: Base, threshold: BlockSize, checking: boolean, 
storage: long pointer, length: BlockSize, next: SegmentHandle]; 

GetAttributesByName: -A/SFi/e— procedure [ 

directory: Handle, path: String, selections: Selections, 
attributes: Attributes, session: Session <-nullSession]; 

GetAttributesChild: -NSFile- procedure [ 

directory: Handle, id: ID, selections; Selections, attributes: Attributes, 
session: Session <- nullSession]; 

GetAttributesMDS: -Heap- procedure [z: MDSZone] 
returns[ 

heapPages: Environment.PageCount, largeNodePages: Environment.PageCount, 
maxSize: Environment.PageCount, increment: Environment.PageCount, 
swapUnitSize: Space.SwapUnitSize, threshold: NWords, 
largeNodeThreshold: NWords, ownerchecking: boolean, checking: boolean]; 
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GetBackground: -UserTerminal- procedure returns [background: Background]; 
GetBase: -NSSegment- procedure [ 

pointer: long pointer, session; Session *-nullSession] returns [PageNumberj; 
GetBcdTime; -Runtime— procedure returns [System. GreenwichMeanTimej; 
GetBitBitTable: -UserTerminat- procedure returns [bbt; BitBit.BBTable]; 
GetBitmapUnder; -Window- procedure [window: Handle] returns [long pointer]; 
GetBlock: -LogFile- procedure [ 

file: File. File, current: Log. Index, place: long pointer, 
firstPageNumber: Fiie.PageNumber«— 1]; 

GetBootFiles: -Floppy- procedure [volume: VolumeHandle] 

RETURNS[ 

initialMicrocode: BootFilePointer, pilotMicrocode: BootFilePointer, 
diagnosticMicrocode: BootFilePointer, germ: BootFilePointer, 
pilotBootFile; BootFilePointer]; 

GetBox: -ToolWindow- procedure [window: Handle] returns [Box]; 

GetBox: --W/ndow-- PROCEDURE [Handle] returns [Box]; 

GetBuildTime: -Runtime- procedure returns [System. GreenwichMeanTime]; 
GetCaller; -Runtime- procedure returns [program]; 

GetChar; -Exec- GetCharProc; 

GetChar: -TTY- procedure [h: Handle] returns [c: character]; 

GetChar: -TTYSW- procedure [sw; window. Handle] returns [character]; 
GetCharProc: -fxec-TYPE = procedure [h; Handle] returns [char; character]; 
GetCharProcType: -Token- typb = procedure [h; Handle] returns [c; character]; 
GetChild: -Window- procedure [Handle] returns [Handle]; 

GetClearingRequired: -Window- procedure [Handle] returns [boolean]; 
GetClientSystemElement: -NSSessionControl- procedure [session: NSFiie.Session] 
RETURNS [NSFile.SystemElement]; 

GetClippedOims; -roo/W/ndow- procedure [window: Handle] returns 
[ window. Dims]; 

GetConfirmationProc:-Orj/meD/agnost/cs- TYPE = procedure] 
msg: FloppyMessage]; 

GetContainingPhysicalVolume: -Phys/ca/l/o/ume- procedure [ 

IvID; System. VolumelD] returns [pvID: ID]; 

GetContext: -FloppyChannel- procedure [handle; Handle] 

RETURNS [context: Context]; 

GetControls; -NSFile- procedure [ 

file: Handle, controlSelections; ControlSelections«—allControlSelections, 
session; Session <- nullSession] returns [Controls]; 

GetConversationCredentials: -Aut/ient/cator- procedure [ 

z; UNCOUNTED ZONE, flavor: FlavorsuperWeak, userName; Name, userKey: Key, 
serverName: Name, secondsToExpiration: Seconds <-defaultExpirationTime] 
RETURNS [credentials: Credentials, conversationKey; Key]; 

GetCount; -Log- procedure returns [count: cardinal]; 

GetCount: -LogFile- procedure [ 

file: Fiie.File, firstPageNumber; Fiie.PageNumber <— 1] 

RETURNS [count: cardinal]; 

GetCreateDate: -MFile- procedure [file; Handle] returns [create: Time.Packed]; 
GetCredentials: -NSSessionControl- procedure [ 
name: NSString. String, password: NSString. String, 
server; NSFile.SystemElement] 

RETURNS[ 

status: AuthenticationStatus, credentials: NSFiie.Credentials, 
verifier; NSFile.Verifier]; 
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GetCredentialsProc; -NSSessionControl- type = procedure [ 
name: iMSString. String, password: iMSStnng. String, 
server: NSFiie.SystemElement] 

RETURNS[ 

status: AuthenticationStatus, credentials: NSFiie.Credentials, 
verifier: NSFile. Verifier]; 

GetCurrent; --Process- procedure returns [process: process]; 

GetCurrentProcess: -Bac/cstop- procedure returns [process: Process]; 

GetCursorPattern: -UserTerminal- procedure 
RETURNS [cursorPattern; CursorArray]; 

GetCursorSlot: -HeraldWindow- procedure returns [slot: Slot]; 

GetDecimal: -TTY- procedure [h: Handle] returns [n: integer]; 

GetDecimal: -TTYSW- procedure [sw: window.Handle] returns [integer]; 

GetOefaultOomain: -Profile- procedure [procedure [String]]; 

GetOefaultOrganization: -Profi/e- procedure [procedure [String]]; 

GetDefaultRegistry: -Pfo///e- procedure [procedure [String]]; 

GetDefaultSession: -NSFile- procedure returns [Session]; 

GetDefaultSocketNumber: -ExpeditedCourier- procedure 
returns [System. SocketNumber]; 

GetDefauitWindow: -Userinput- procedure returns [window.Handle]; 

GetOelayToNet: -Router- procedure [net: System. NetworkNumber] 

RETURNS [delay: cardinal]; 

GetDesiredProperties: -FileTransfer- procedure [conn: Connection] 

RETURNS [props: DesiredProperties]; 

GetDeviceAttributes: -FloppyChannel- procedure [handle: Handle] 

RETURNS [attributes: Attributes]; 

GetDialerCount: -Dialup- procedure returns [numberOfDialers: cardinal]; 

GetDirectoryName: -MFile- procedure [file: Handle, name: long string]; 

GetDisplayProc: -W/ndow- procedure [Handle] returns [procedure [Handle]]; 

GetDriveSize: -Othe//oOps- procedure [h: Physicaivoiume.Handle] 

RETURNS [nPages: long cardinal]; 

GetEcho: -TTY- procedure [h: Handle] returns [old: EchoClass]; 

GetEcho: -TTYSW- procedure [sw; window.Handle] returns [old; tty. EchoClass]; 

GetEchoCounters: -CommOrilineDiagnostics- procedure [ 

host: System. NetworkAddress <- System.nullNetworkAddress] 

RETURNS [ 

packets: long cardinal, bytes: long cardinal, 
time: System. GreenwichMeanTime]; 

GetEchoCounters; -RemoteCommDiags- procedure [host: System. NetworkAddress] 
RETURNS [ 

packets: long cardinal, bytes: long cardinal, 
time: System. GreenwichMeanTime]; 

GetEchoResults; -CommOnlineDiagnostics- procedure [ 

stopit: boolean, host: System.NetworkAddress<—System.nullNetworkAddress] 
RETURNS [totalsSinceStart: EchoResults, hist: Histogram]; 

GetEchoResults: -RemoteCommDiags- procedure [ 

host: System. NetworkAddress, echoUser: CommOnlineDiagnostics.EchoUserHandle, 
stopit: boolean] 

RETURNS[ 

totalsSinceStart: CommOniineDiagnostics. EchoResults, 
hist: CommOnlineDiagnostics. Histogram]; 

GetEditedString: -TTY- procedure [ 
h; Handle, s: long string, 

t: PROCEDURE [c: character] RETURNS [status: CharStatus]] 
returns [c; character]; 
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GetEditedString: -7TYSW - procedure [ 
sw: Window. Handle, s; long string, 

t: PROCEDURE [character] RETURNS [TTY.CharStatUS]] RETURNS [CHARACTER]; 

GetError: -Backstop- procedure returns [BackstopNub.ErrorType]; 

GetEthernetStats: -CommOnlineDiagnostics- procedure [ 
physicalOrder: cardinals- 1, 

host; System. NetworkAddress <—System.nuilNetworkAddress] 

RETURNS [info: EtherStatsInfo, time; System. GreenwichMeanTime]; 

GetEthernetStats; -RemoteCommDiags- procedure [ 

host; System. NetworkAddress, physicalOrder: cardinal <— 1] 

RETURNS [ 

info: CommOnlineDiagnostics.EtherStatsResult, 
time: System. GreenwichMeanTime]; 

GetExpirationDate: -OthelloOps- procedure [ 
file: File.Pile, firstPage: Fiie.PageNumber] 

RETURNS [GetExpirationDateSuccess, System. GreenwichMeanTime]; 

GetExpirationOateSuccess: -Otbe/ZoOps - type = SetDebuggerSuccess 
[success..other]; 

GetFaultedProcess: -Backstop- procedure returns [process: Process]; 

GetFieldBody: -MailParse- procedure [ 

h; Handle, string: long string, suppressWhiteSpace; boolean <- false]; 

GetFieldName: -Ma/VParse-- procedure [h: Handle, field: long string] 

RETURNS [found: boolean]; 

GetFile; -FileSW- procedure [sw: window. Handle] 

RETURNS [name: long string, s: stream. Handle]; 

GetFile: -MSegment- procedure [segment: Handle] returns [wFiie.Handle]; 

GetFile: -MStream- procedure [stream; Handle] returns [file: wiFiie. Handle]; 

GetFileAttributes: -Floppy- procedure [file: FileHandle] 
returns [size; PageCount, type: Fiie.Type]; 

GetFileBase: -MSegment- procedure [segment: Handle] returns 
[Fiie.PageNumber]; 

GetFilePages: -MSegment- procedure [segment: Handle] returns 
[Fiie.PageCount]; 

GetFloppyChoiceProc;-OnZ/neO/agnost/cs- type = procedure 
returns [FloppyWhatToDoNext]; 

GetFont: -Menu- procedure returns [font; windowFont.Handle]; 

GetFullName: -MFile- procedure [file: Handle, name: long string]; 

GetGravity; --roo/kV/ndow-- procedure [window; Handle] 

RETURNS [gravity; Window.Gravity]; 

GetGroupPhrase: -MailParse- procedure [h: Handle, phrase: long string]; 

GetHandle: -FloppyChannel- procedure [drive: Drive] returns [handle: Handle]; 

GetHandle: -PhysicalVolume- procedure [index: cardinal] returns [Handle]; 

GetHints: -PhysicalVolume- procedure [ 
instance: Handle, label; long string <-nil] 

RETURNS [pvID: ID, volumeType; VolumeType]; 

GetiO: -TTY- procedure [h; Handle, s: long string]; 

GetlD: -TTYSW- procedure [sw: window.Handle, s; long string]; 

GetImageAttributes: -Floppy- procedure [ 

imageFile: Fiie.File, firstImagePage: Fiie.PageNumber, 
name: long string <- nil] 
returns [ 

maxNumberOfFiles: cardinal, currentNumberOfFiles: cardinal, 
density; Density [single..double], sides; Sides [one..two]]; 

GetInactiveName: --roo/W/ndow -procedure [window: Handle] 
returns [name: long string]; 

Getindex: -Log- procedure returns [index: Index]; 
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Getindex: -MemoryStream- procedure [sH: stream. Handle] 

RETURNS [position: Stream. Position]; 

Getinfo: --Sfree-PROCEDURE [tree: Tree] 

RETURNS [valueSize: ValueSize, file: MFiie. Handle, usage: space.Usage]; 

Getinfo: -Cursor- procedure returns [Info]; 

Getinfo: -FileWindow- procedure 
returns[ 

ext: LONG STRING, fileMenu: Menu. Handle, sourceMenu: Menu. Handle, 
minimumWindows: cardinal]; 

GetInputFocus: --C/ser/nput -procedure returns [window.Handle]; 

GetLabelString: -Volume- procedure [volume: ID, s: long string]; 

GetLength: -MFiie- procedure [file: Handle] returns [ByteCount]; 

GetLength; -MStream- procedure [stream: Handle] 
returns [fileLength: MPiie.ByteCount]; 

GetLibrarian: -Profile- procedure [procedure [String]]; 

GetLibrarianNames: -Profile- procedure ( 
procedure [prefix: String, suffix: String]]; 

GetLimitProc: --roo/W/ndoi/v-- procedure [window: Handle] returns 
[LimitProcType]; 

GetLine: -TTY- procedure [h: Handle, s: long string]; 

GetLine: -TTYSW- procedure [sw: window.Handle, s: long string]; 

GetLog: -Scavenger- procedure [volume: voiume.lD] 

RETURNS [logFile: Piie.File]; 

GetLog: -l/o/umeConversfon— procedure [volume: volume.ID] 

RETURNS [logFile: Piie.File]; 

GetLogEntry: -BackstopNub- procedure [ 

log: Piie.File, current: Log. Index, place: Handle, 
firstPagelSIumber: Piie.PageNumber <— 0]; 

GetLongDecimal: -TTY- procedure [h: Handle] returns [n: long integer]; 

GetLongOecimal: -TTYSW-procedure [sw: window.Handle] returns [long 
integer]; 

GetLongNumber: -TTY- procedure [ 

h: Handle, default: long unspecified, radix: cardinal, 
showDefault: boolean <-true] returns [n: long unspecified]; 

GetLongNumber: -TTYSW- procedure [ 

sw: Window.Handle, default: long unspecified, radix: cardinal, 
showDefault: boolean <-true] returns [long unspecified]; 

GetLongOctal: -TTY- procedure [h: Handle] returns [n: long unspecified]; 

GetLongOctal: -TTYSW- procedure [sw: window.Handle] 

RETURNS [long UNSPECIFIED]; 

GetLost: -Log- procedure returns [lost: cardinal]; 

GetLost: -LogFile- procedure [ 

file: Piie.File, firstPageNumber: File.PageNumber*— 1] 

RETURNS [count: cardinal]; 

GetName: -Foo/Wmcfow --procedure [window: Handle] returns [name: long 
string]; 

GetNameandPassword: --Exec-- procedure [ 

h: Handle, name: long string, password: long string, 
prompt: long string «- nil]; 

GetNameStripe: -ToolWindow- procedure [window: Handle] returns [OnOff]; 

GetlMetworklD: -Router- procedure [ 

physicalOrder: cardinal, medium: PhysicalMedium] 

RETURNS [System. NetworkNumber]; 

GetNext: -BackstopNub- procedure [ 

log: Piie.File, current: Log. Index, firstPageNumber: Piie.PageNumber <—0] 
RETURNS [next: Log. Index]; 
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GetNext: --Sfree- procedure [ 

tree: Tree, name; long string, nextName: long string, value: Value, 
mask: long string <- nil]; 

GetNext: -LogFile- procedure ( 

file: File. File, current: Log. Index, firstPageNumber: Fiie.PageNumber <— 1] 
RETURNS [next: Log. Index); 

GetNext; -NSSegment - procedure { 

file: NSFile. Handle, currentSegment: ID, session: Session <- nullSession] 
returns [ID]; 

GetNext: -PhysicalVolume - procedure [pvID: ID] returns [ID]; 

GetNext: -Volume- procedure [ 

volume: ID, includeWhichVolumes: TypeSete-onlyEnumerateCurrentType] 
returns [nextVolume: ID]; 

GetNextBadPage: -PhysicalVolume- procedure [ 
pvID; ID, thisBadPageNumber: PageNumber] 
returns [nextBadPageNumber; PageNumber]; 

GetNextBadSector: -Floppy- procedure [ 

volume: VolumeHandle, oldindex: cardinal] 
returns [newindex; cardinal, file: FileHandle, page: PageNumber]; 
GetNextOrive: -FloppyChannel— procedure [lastDrive: Drive] 

RETURNS [nextDrive: Drive]; 

GetNextOrive: -PhysicalVolume— procedure [index: cardinal] 

RETURNS [nextindex: cardinal]; 

GetNextFile: --F/oppy-- procedure [previousFile; FileHandle] 

RETURNS [nextFile: FileHandle]; 

GetNextFrame: -Backstop- procedure [process; Process, frame: Frame] 

RETURNS [next: Frame]; 

GetNextHandleForReading: -MFile - procedure [ 

filter: long string, name: long string, release: ReleaseData, 
lastState: EnumerateState, stopNow: boolean <— false] 

RETURNS [file; Handle, state: EnumerateState]; 

GetNextLine: -RS232C- procedure [lineNumber; cardinal] 

RETURNS [nextLineNumber; cardinal]; 

GetNextLogicalVolume: -PhysicalVolume- procedure [ 

pvID; ID, IvID; System. VolumelD] RETURNS [System. VolumelD]; 

GetNextProcess; -Backstop- procedure [process: Process] 

RETURNS [next; Process]; 

GetNextRootFile; -Volume- procedure [ 

lastType; Fiie.Type, volume: ID«—systemID] 

RETURNS [file: File.File, type: Fiie.Type]; 

GetNextSubVolume: -OthelloOps- procedure [ 

pvID; PhysicalVolume. ID, thisSv: SubVolume] returns [nextSV: SubVolume]; 
GetNextVerifier; -Authenticator- procedure [ 
credentials: Credentials, conversationKey: Key, 
lastVerifier: Verifier*—firstVerifier] returns [nextV: Verifier]; 

GetNotifier: -Scrollbar- procedure [window; window.Handle, type: Type] 
RETURNS [ScrollProcType]; • 

GetNotifyProc; -TIP- procedure [window: window.Handle] returns [NotifyProc]; 
GetNotifyProcFromTable: -TIP- procedure [table: Table] returns [NotifyProc]; 
GetNSAddr; -NSAddr- procedure [nsAddr: NSAddr]; 

GetNumber: -TTY- procedure [ 

h: Handle, default: unspecified, radix; cardinal, showDefault: boolean <- 

true] 

RETURNS [n: unspecified]; 
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GetNumber: -TTYSW- procedure [ 

sw: Window.Handle, default: unspecified, radix: cardinal, 
showDefault: boolean <-true] returns [unspecified]; 

GetOctal: -TTY- procedure [h: Handle] returns [n: unspecified]; 

GetOctal: -TTYSW- procedure [sw: Window.Handle] returns [unspecified]; 

GetPages: -MSegment- procedure [npages: cardinal] 
returns [base: long pointer]; 

GetParent: -Window- procedure [Handle] returns [Handle]; 

GetPassword: -TTY- procedure [h: Handle, s: long string]; 

GetPassword: -TTYSW- procedure [sw: Window.Handle, s: long string]; 

GetPhysicalVolumeBootFile: --Ot/je//oOps-- procedure [ 
pvID: Physicalvolume.lD, type: BootFileType] 

RETURNS [file: File. File, firstPage: Fiie.PageNumber]; 

GetPlace: -TIP- procedure [window: Window.Handle] returns [wmdow.Place]; 

GetPName: -Atom- procedure [atom: atom] returns [pName: long string]; 

GetPrinterProperties: -NSPrint- procedure [systemElement: SystemElement] 
returns [properties: PrinterProperties]; 

GetPrinterStatus: -NSPrint- procedure [systemElement: SystemElement] 
RETURNS [status: Printerstatus]; 

GetPrintRequestStatus: -A/SPr;nt- procedure [ 

printRequestID: RequestID, systemElement: SystemElement] 

RETURNS [status: RequestStatus]; 

GetPriority: -Process- procedure returns [priority: Priority]; 

GetProcs: -FileTransfer- procedure [conn: Connection] 
returns [ 

clientData: long pointer, messages: MessageProc, login: ClientProc, 
noteProgress: ClientProc, checkAbort: CheckAbortProc]; 

GetProcType: --GSo/t-- type = procedure [p: long pointer] returns [cardinal]; 

GetProperties: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Pattern, 
getArray: PropertiesAllocator, distinglMame: Name] 

RETURNS [rc: ReturnCode, properties: Properties]; 

GetProperties: -MFile- procedure [file: Handle, name: long string <-nil] 

RETURNS [ 

create: Time.Packed, write: Time.Packed, read: Time.Packed, 
length: ByteCount, type: Type, deleteProtected: boolean, 
write Protected: boolean, read Protected: boolean]; 

GetProperty: -MFile- procedure [ 

file: Handle, property: Property, block: Environment.Block] 
returns [length: cardinal]; 

GetPrdtection: -MF/Ze -procedure [file: Handle] 

RETURNS [ 

deleteProtected: boolean, writeProtected: boolean, readProtected: 
boolean]; 

GetRandomKey: --Autherjt/cator- procedure returns [key: Key]; 

GetReference: -NSFile- procedure [ 

file: Handle, reference: Reference, session: Session ^nullSession]; 

GetReleaseData: -MFile- procedure [file: Handle] 
returns [release: ReleaseData]; 

GetReleaseData: -MSegment- procedure [segment: Handle] returns 
[ReleaseData]; 

GetReleaseData: --/WSfream- procedure [stream: Handle] 
returns [release. ReleaseData]; 

GetRemoteName: -FUeName- procedure [ 

file: MFile. Handle, remoteName: long string]; 
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GetRestart: -LogFUe- procedure [ 

file: Fiie.Pile, firstPageNumber; Fiie.PageNumber«— 1] 

RETURNS [restart: Restart]; 

GetRootNode: -Zone- procedure [zH: Handle] 

RETURNS [node: Base relative pointer]; 

GetRouteAddrPhrase: -MailParse- procedure [h: Handle, name: long string]; 

GetRouterFunction: -Router- procedure returns [RoutersFunction]; 

GetRS232CResults: -CommOnlineDiagnostics- procedure [ 
stopit: boolean, host: System. NetworkAddress *- 
System, null NetworkAddress] 

RETURNS [counters: CountType]; 

GetSearchPath: -MFile - procedure returns [SearchPath]; 

GetSegmentAttributes: -Zone- procedure [zH: Handle, sH: SegmentHandle] 
RETURNS [storage: long pointer, length: BlockSize, next: SegmentHandle]; 

GetSelection: -FormSW- procedure [window.Handle] 

RETURNS [index: cardinal, first: cardinal, last: cardinal]; 

GetServerType: -FileTransfer- procedure [conn: Connection, host: long string] 
RETURNS [ServerType]; 

GetServiceOata: -WSSess/onContro/- procedure [ 

session: NSFiie. Session, id: ServicelD] returns [ServiceData]; 

GetSessionAttributes: -NSSessionControl- procedure [session: NSFiie.Session] 
RETURNS [SessionAttributes]; 

GetSessionRestrictions: -NSSessionControl- procedure 
RETURNS [SessionRestrictions]; 

GetSeverity: -MsgSW- procedure [sw: window.Handle] 

RETURNS [severity: Severity]; 

GetSibling: -Window- procedure [Handle] returns [Handle]; 

GetSize: -BackstopNub- procedure [ 

log: Fiie.File, current: Log. Index, firstPageNumber: Fiie.PageNumber«—0] 
RETURNS [size: cardinal]; 

GetSize: -DebugilsefulDefs- procedure [Handle] 

RETURNS [words: CARDINAL, bits: Bits]; 

GetSize: -File- procedure [file: File] returns [size: PageCount]; 

GetSizeInBytes: -NSSegment- procedure [ 

file: NSFiie. Handle, segment: ID <—defaultlD, session: Session «-nullSession] 
RETURNS [ByteCount]; 

GetSizeInPages: -NSSegment- procedure [ 

file: NSFiie.Handle, segment: ID <—defaultID, session: Session «-nullSession] 
RETURNS [PageCount]; 

GetSnapShotFromFile: -LibrarianUtility- procedure [fileName: long string] 
RETURNS [Ubrarlan.SnapShotHandle]; 

GetState: -Log- procedure returns [state: State]; 

GetState: -ToolWindow- procedure [window: Handle] returns [state: State]; 

GetState: -L/serrerm/na/- procedure returns [state: State]; 

GetStatus: -LsepFace- procedure returns [status: PrinterStatus]; 

GetStatus: -RavenFace- procedure returns [status: PrinterStatus]; 

GetStatus: -RS232C- procedure [channel: ChannelHandle] 

RETURNS [stat: DeviceStatus]; 

GetStatus: -TTYPort- procedure [channel: ChannelHandle] 

RETURNS [stat: DeviceStatus]; 

GetStatus: -Volume— procedure [volume: ID] returns [Status]; 

GetStickyFlags: -Real- procedure returns [ExceptionFlags]; 

GetStreamInfo: -FileTransfer- procedure [remoteStream: stream. Handle] 
returns [Fileinfo]; 

GetStreamName: -FileTransfer procedure [remoteStream: stream. Handle] 
RETURNS [file: LONG STRING]; 
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GetString: -LogFile- procedure ( 

file: File. File, current: Log. Index, place: long string, 
firstPageNumber: Fiie.PageNumber«-1]; 

GetString: -TTY - procedure [ 
h: Handle, s: long string, 

t: PROCEDURE [c: character] returns [status: CharStatusjj; 

GetString: -TTYSW- procedure [ 
sw: Window. Handle, s: long string, 
t: PROCEDURE [character] RETURNS [TTY.CharStatus]]; 

GetSwitches: -Otf»e//oOps-- procedure [ 
file: Fiie.File, firstPage: Fiie.PageNumber] 

RETURNS [SetGetSwitchesSuccess, System. Switches]; 

GetTable: -TIP- procedure [window: window.Handle] returns [Table]; 

GetTableBase: -Runtime- procedure [frame: program] returns [long pointer]; 

GetTabs: -AsciiSink- procedure [sink: Textsink. Handle] returns [TabStops]; 

GetTimeFromTimeServer: -OthelloOps- procedure 
RETURNS [ 

serverTi m e: System . G reenwi ch M ea nTi m e, 
serverLTPs: System . LocaITi meParameters]; 

GetTimes: -MFile- procedure [file: Handle] 

RETURNS [create: Time.Packed, write: Time.Packed, read: Time.Packed]; 

GetTinyName: -roo/Window- procedure [window: Handle] 

RETURNS [name: long string, name2: long string]; 

GetTinyPlace: -ToolWindow- procedure [window: Handle] returns [place: 

Place]; 

GetToken: -Exec- procedure [h: Handle] 

RETURNS [token: long string, switches: long string]; 

GetToolsPropertyArray: -L/brar/anUt/7/ty- procedure returns [PropertyArray]; 

GetTransitionProc: -ToolWindow- procedure [window: Handle] 

RETURNS [Transit!onProcType]; 

GetTTY: -Exec- procedure [h: Handle] returns [tty: TTY.Handle]; 

GetTTYHandle: -TTYSW- procedure [sw: window.Handle] returns [tty: 

TTY.Handle]; 

GetType: -FileExtras- procedure [file: Fiie.File] returns [type: File. Type]; 

GetType: --MF/7e- procedure [file: Handle] returns [type: Type]; 

GetType: -NSFile- procedure [file: Handle, session: Session <- nullSession] 
returns [Type]; 

GetType: --Vo/ume-- procedure [volume: ID] returns [type: Type]; 

GetTypeIn: -FormSW- procedure [window.Handle] 
returns [index: cardinal, position: cardinal]; 

GetUniqueConnectionID: -A/efworkStream-- procedure returns [iD: 

Connect! onID]; 

GetUpdate: -Log- procedure returns [time: System. GreenwichMeanTime]; 

GetUser: -Profile- procedure [ 

proc: PROCEDURE [name: String, password: String], 
qualification: Qualification «- none]; 

GetVolume: -MFile- procedure [file: Handle] returns [volume. ID]; 

GetVolumeBootFile: -Othe//oOps-- procedure [ 

IvID: Volume. ID, type: BootFileType] 

returns [file: Fiie.File, firstPage: Fiie.PageNumber]; 

GetWords: -MSegment- procedure [nwords: cardinal] 
returns [base: long pointer]; 

GetYesOrNoProc: --On/meD/agnost/cs-- type = procedure [msg: FloppyMessage] 
RETURNS [YesOrNo]; 

GFHandle: -DebugilsefulDefs - type = PnncOps.GlobalFrameHandle; 

globalbase: --PdncOps- cardinal = 0; 
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GlobalCodebase;--Pr/'ncOps-TYPE = machine dependent record [ 

SELECT OVERLAID * FROM 

code = > [codebase(0;0..31): PrefixHandle], 

offset = > [offset(0:0..15): cardinal, highHalf(1:0..15): cardinal], 

either = > [ 

fill(0:0.. 14): cardinal [0..77777B], 
out(0:15..15): boolean, 
highByte(1;0..7): BYTE, 
otherByte(1;8..15): BYTE], 
endcase]; 

Global Frame: -BackstopNub- type [1]; 

GlobalFrame: -Runtime- procedure [link: ControlLink] returns [program]; 

GlobalFrameBase:--Pr/ncOps--TYPE = pointer to GlobalOverhead; 

GlobalFrameHandle: --Pr/ncOps --type = pointer to GlobalVariables; 

globalOffset:-Pr/ncOps--CARDINAL = 2; 

GlobalOverhead:--Pr/ncOps-TYPE = machine dependent record [ 
extra(0:0..15): word, 
word(1:0..15): GlobalWord, 
codebase(2; 0.. 31): GI obal Codebase, 
global(4): GlobalVariables]; 

globalTable: -TIP- readonly array GlobalTable of Table; 

GlobalTable: -TIP- type = { 

root, formSW, textSW, fileWindow, ttySW, executive, spare 1, spare2}; 

GlobalVariables: -PrincOps- type = array cardinal [0..0) of unspecified; 

GlobalWord:--Pf/ncOps--TYPE = machine dependent record [ 
index(0:0..8): cardinal [0..511], 
started(0:9..9): boolean, 
copy(0:10..10): boolean, 
copied(0:11..11): boolean, 
alloced(0:12..12): boolean, 
shared(0:13..13): boolean, 
trapxfers(0:14..14): boolean, 
codelinks(0:15..15): boolean]; 

globalWordOffset: --Pr/ncOps -cardinal = 3; 

Gravity; -Window- type = {nil, nw, n, ne, e, se, s, sw, w, c, xxx}; 

Gray: -Display- procedure [ 

window: Handle, box: window.Box, gray: Brick <—fiftyPercent, 
dstFunc: DstFunc «-nuil]; 

GrayParm: -BitBIt- type = machine dependent record [ 
reserved(0:0..3): [0..15] <—0, 
yOffset(0:4..7): [0..15], 
widthMinusOne(0;8..11): [0..15], 
heightMinusOne(0:12 .15): [0.. 15]]; 

GWS: -CHLookup- type = machine dependent record [ 
address(0:0..95): System.NetworkAddress, 

Iocation(6;0..63); NSStrmg. String, 
mailClerk(10;0..31): NSName.Narne]; 

GWSDescribe: -CHLookup- Courier. Descri ption; 

GWSPt: -CHLookup- type = long pointer to GWS; 

Handle;--SackstopWufa-TYPE = long pointer to ErrorEntry; 

Handle:--S/ockSource--TYPE = Textsource.Handle; 

Handle:--CmF/7e-TYPE = Token.Handle; 

Handle: -Courier- type = long pointer to readonly Object; 

Handle; -Cursor- type = pointer to Object; 

Handle; - DebugUsefulDefs - type = uOng pointer to Object; 

Handle;--D(sp/ay- TYPE = Window. Handle; 
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Handle: -Event- type = long pointer to Object; 

Handle: -Exec- type = long pointer to Object; 

Handle: -FloppyChannel- typs. [2]; 

Handle:--Heap- TYPE = uncounted zone; 

Handle:-A/Ta/ZParse- TYPE = long pointer to Object; 

Handle:-Menu- TYPE = long pointer to Object; 

Handle: -MFile- type = long pointer to Object; 

Handle: -MLoader- type = long pointer to Object; 

Handle: -MSegment- type = long pointer to Object; 

Handle: -MStream- type = stream. Handle; 

Handle:-/VSOataSfream- TYPE = record [stream. Handle]; 

Handle: -NSFile- type [2]; 

Handle: -PhysicalVolume- type [3]; 

Handle: -RetrieveDefs- type (2); 

Handle: -SendDefs- type [2]; 

Handle: -Token- type = long pointer to Object; 

Handle:-roo/W/ndow- type = window. Handle; 

Handle: -TTY- type [2]; 

Handle: -Window- type = long pointer to Object; 

Handle: -WindowFont- type = long pointer to Object; 

Handle: -Zone- type (2j; 

HandleFromProgram: -MLoader- procedure [program] returns [Handle]; 

HandleProblem:-WSF//e- TYPE = machine dependent{ 
invalid, nullDisallowed, directoryRequired, obsolete}; 

hang:-P//otSi/v;tc/7es-PilotDomainA = 46C; 

hasBorder: -UserTerminal- readonly boolean; 

HashedPassword:-A/SA/ame— TYPE = cardinal; 

HashPassword: -NSName- procedure [password: String] returns 
[ H ashed Password ] ; 

HashSimplePassword: -Authent/cator- procedure [password: NSStnng. String] 
returns [hash: cardinal]; 

HasScroilbar: -Scroilbar- procedure [window: window. Handle, type: Type] 
returns [boolean]; 

Header: -ExpeditedCourier- type = machine dependent record [ 

protRange(0:0..31): Courierinternai. Protocol Range «- [protocol3, protocol], 
body(2:0..95): Courierinternai. Protocol3Body]; 

Header: -NSVoiumeControl- type = machine dependent record [ 
volume(0:0..79): voiume.lD, 
date(5:0..31): System. GreenwichMeanTime, 
incomplete(7:0..14): boolean, 
repaired(7:15..15): boolean, 
nurnberOfFiles(8:0..31): long cardinal]; 

Header: -Scavenger- type = machine dependent record [ 
seal(0:0.. 15): cardinal LogSeal, 
version(1:0..15): cardinal <—currentLogVersion, 
volume(2:0..79): voiume.lD, 
date(7:0..31): System. GreenwichMeanTime, 
repairMode(9:0 .1): RepairType, 
incomplete(9:2..2): boolean, 
repaired(9:3..3): boolean, 
bootFilesDeleted(9:4,.9): BootFileArray, 
pad(9:10..15): [0.,0]<-0, 
numberOfFiles(10:0..31): long cardinal]; 

HeaderPointer: -NSVolumeControl- type = long pointer to Header; 

heapchecking:-Py/otSw/tches-PilotDomainB = 136C; 

heapOwnerChecking:-P/VotSw/tches-PilotDomainA = 66C; 
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heapParamsFromClient: -Pi/otSw/tches--PiiotDomainC = 374C; 

Hide: -ToolWindow- procedure [window: Handle]; 
hierachicalLevels: -CH-- cardinal = 3; 
hierarchical Levels: -A/SA/ame- cardinal = 3; 

HighByte: -Inline- procedure [u: unspecified] returns [unspecified]; 
HighestVersion: -FileTransfer- procedure [ 

conn: Connection, remote; FiieName.VFN] returns [exists: boolean]; 
highestVersion:--A/SF(7e-- cardinal = 177777B; 

HighHalf; -Inline- procedure [u; long unspecified] returns [unspecified]; 

Hints: -FormSW- type = long descriptor for array cardinal of long string; 
Histogram; -CommOnlineDiagnostics-TypE = long descriptor for array 
cardinal 

OF Detail; 

Hop:-fxped/tedCourier- TYPE = [0..15]; 

HostNumber: -Format- procedure [ 

proc; StringProc, hostNumber: System. HostNumber, format: NetFormat, 
clientData: long pointer <- nil]; 

HostNumber: -Put- procedure [ 

h: Window. Handle«— nil, host: System. HostNumber, format: NetFormat <- 
octal]; 

HostNumber; -Token- procedure [ 

h: Handle, format: NetFormat <-octal, signalOnError: boolean «— true] 
RETURNS [host: System. HostNumber]; 

ibm2770Host: -RS232CCorrespondents- RS232CEnvironment. Correspondent; 
ibm3270Host: -CHPIDs- Ch. Property\D = 26; 

ibm3270Host: -RS232CCorrespondents- RS232CEnvironment. Correspondent; 
ibm6670: -RS232CCorrespondents- RS232CEnvironment.Correspondent; 
ibm6670Host; -RS232CCorrespondents- RS232CEnvironment.Correspondent; 
iBMHost; -CHLookup-jypB = machine dependent record [ 
description(0:0..63): NSString.Stri ng, 
controllers(4:0..47): long descriptor for array cardinal of 
IBM HostControl lerRecord]; 

IBMHostControllerRecord: -CHLookup- type = machine dependent record [ 
controllerAddress(0:0.. 15): cardinal, 
portsOnController(1:0..15): cardinal, 
linkType(2;0..15); ControllerLinkType, 
path(3;0..31): NSName.Name, 
ianguage(5:0..15); IBMLanguages, 

terminalModelType(6:0..127); array PortRange of IBMTerminalType «- all[ 
model2]]; 

IBMHostDescribe: -CHLookup- Courier. Descri ption; 

IBMHostPt:-CHLookup- TYPE = long pointer to IBMHost; 

IBMLanguages:-CHLookup- TYPE = machine dependent{ 

USenglish, Austrian, AustrianAlt, German, GermanAlt, Belgian, Brazilian, 
CanadianFrench, Danish, DanishAlt, Norwegian, NorwegianAlt, Finnish, 
FinnishAlt, Swedish, SwedishAlt, French, International, Italian, 
JapaneseEnglish, JapaneseKana, Portuguese, Spanish, SpanishAlt, 
SpanishSpeaking, UKenglish, unused 1, unused2, unused3, unused4, 
unused 5, 

unused6,{177777B)}: 

IBMTerminalType: -CHLookup- type = machine dependent{ 

(0), modell, model2, model3, model4, models, (177777B)}; 
ID;-F/7e-TYPE[2]; 

ID; -NSFile- type [5]; 

ID:-A/SSegmenf- TYPE = cardinal; 

ID: -PhysicalVolume- type = System. PhysicalVolumelD; 
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ID:--Vo/ume-TYPE = System. VolumelD; 

IDArrayHandle: -LibrarianUtility- typb = long pointer to IDArrayObject; 

IDArrayObject;--L/brar/anl/b7/ty- TYPE = record [ 
numberOflDs: cardinal, 

idArray: long descriptor for array cardinal of Librarian. LibjectID]; 

IgnoreReadOnlyProc: -FormSW- ReadOnlyProcType; 

illegal: --RS232CCorrespondents-- RS232CEnvironment.AutoRecognitionOutcome; 

lllegalEnumerate: -LogFile- error, 

IllegalUserldentifier: --CH- error [why: Result]; 

Inconsistent: -LogFile- error; 

IncrementBand: -LsepFace- procedure; 

IncrementLine: -LsepFace- procedure; 

Index: -Log- type = cardinal; 

Index: -RavenFace- type [1]; 

IndexAttributes:-A/SI/o/umeContro/- TYPE = record] 
size: long cardinals- 100, 
pageincrement: long cardinal «—100, 
percentlncrement: Percents-20); 

IndexFromEnumeratedValue: -FormSW- procedure [EnumeratedHandle] 
RETURNS [cardinal]; 

IndexOutOfRange: -MemoryStream— error; 

infiniteWaitTime: -NetworkStream- readonly WaitTime; 

infinity: -D/sp/ay- integer = 77777B; 

infinity:-Pouter- CARDINAL = 16; 

Info: -Asc;7S/nfc“ PROCEDURE [sink: TextSink. Handle] 

RETURNS [font: windowFont.Handle]; 

Info: -BlockSource- procedure [source: Handle] returns [block: Block]; 

Info: -Cursor- TYPE = record [type: Type, hotX: [0..15], hotY: [0..15]]; 

Info: -DiskSource- procedure [source: TextSource.Handle] 

returns (name: long string, s: stream. Handle, access: TextSource. Access]; 

Info: "P/eceSource— PROCEDURE [source: TextSource.Handle] 

RETURNS [original: TextSource.Handle, scratch: TextSource.Handle]; 

Info: -SeratcbSource— procedure [source: TextSource.Handle] 

RETURNS[ 

block: Environment.Block, extraRoom: cardinal, access: TextSource.Access, 
expandable: boolean]; 

Info: -ScratchSW- procedure [sw: window. Handle] 

RETURNS[ 

block: Environment.Block, extraRoom: cardinal, expandable: boolean, 
options: Options]; 

Info: -Tool- procedure [window: Window. Handle] 

RETURNS[ 

name: long string, cmSection: long string, makeSWsProc: 

MakeSWsProc, 

cl ientTransiti on: Tooiwindow .Transi ti onPcocType, 
movableBoundaries: boolean]; 

InfoProc: -FileTransfer- type = procedure [Connection] 
returns [source: Fileinfo, target: Fileinfo]; 

InHeapFreeHintsProc: -FormSW- FreeHintsProcType; 

Initialize: -MailParse- procedure [next: procedure returns [character]] 

RETURNS [Handle]; 

Initialize: -NSVolumeControl- procedure [ 

volume: voiume.lD, index: IndexAttributes <- [], 
root: NSFiie.AttributeList <- nil]; 

Initialize: -WindowForit- procedure [font: Handle]; 
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InitializeBand: -LsepFace- procedure [band; Band] 

RETURNS (scanData: long pointer); 

InitializeCleanUp; -LsepFace - procedure; 

InitializeCleanUp; -RavenFace- procedure; 

InitializeCondition: -Process- procedure [ 

condition: long pointer to condition, ticks; Ticks); 

InitializeFileSystem: -MFile- procedure; 

InitializeLine: -LsepFace- procedure (band: SingleLineBand) 
returns [scanData; long pointer); 

InitializeMonitor: -Process- procedure [monitor: long pointer to monitorlock); 

InitializePilotCounter: -PerformancePrograms- procedure; 

InitializePilotPerfMonitor; -PerformancePrograms- procedure; 

InitializePooi: -ObjAlloc- procedure [ 

pool: AllocPoolDesc, initialState: AllocFree); 

InitializeWindow: -Window- procedure [ 

window: Handle, display: procedure [Handle], box: Box, 
parent: Handle <-rootWindow, sibling: Handle <- nil, child: Handle <- nil, 
clearingRequired: boolean «- true, under: boolean <— false, 
cookieCutter: boolean «— false); 

InitialLength: -MF/Ve-- type = ByteCount; 

initialToolStateDefault: -Profile- readonly Tooiwindow. State; 

InitiateBand; -LsepFace- procedure [band; Band); 

InitiateLine; -LsepFace- procedure [band; SingleLineBand); 

InitReals; -Real- procedure; 

Insert: -BTree- procedure [tree: Tree, name: long string, value: Value] 

RETURNS [ok; BOOLEAN, noRoom; boolean); 

InsertIntoTree: --W/ndow- procedure [window; Handle); 

InsertionProblem: -A/SF/7e- type = machine dependent{ 
positionUnavailable, fileNotUnique, loopInHierarchy}; 

InsertRootFile; -Volume- procedure [type: File. Type, file: Fiie.File); 

Install; -Log- procedure [ 

file: Fiie.File, firstPageNumber; Fiie.PageNumber1); 

InstallBootMicrocode; -FormatPilotDisk- procedure [ 

h: Physicaivolume. Handle, getPage: procedure returns [long pointer)); 

Instantiate; -IWerJu- procedure [menu: Handle, window; window.Handle); 

InstWord: -PrincOps- type = machine dependent record [ 
evenbyte(0;0..7); BYTE, oddbyte(0:8..15); BYTE); 

InsufficientSpace; -Volume- error [currentFreeSpace: PageCount, volume: ID); 

Interpretation: -NSFile- type = machine dependent{ 

none, boolean, cardinal, longCardinal, integer, longinteger, string, time}; 

InterpretedSelections: -NSFile- type = packed array AttributeType of 
BooleanFalseDefault; 

Interpreter; -DebugUsefulDefs- procedure [ 
exp; LONG string, results; procedure [Handle]]; 

InterpretHandle: -F/oppyCbanne/-- procedure [handle; Handle) 

RETURNS [drive; Drive); 

InterpretHandle: -PhysicalVolume- procedure [instance; Handle) 

RETURNS [type; Device. Type, index; cardinal); 

Interrupt: -Runtime- procedure; 

interruptWatcher: -P/VotSwitches--PilotDomainA = 70C; 

IntersectBoxes: -Window- procedure [b1: Box, b2: Box) returns [box; Box); 

Interval: -ObjAlloc- type = record [first: Itemindex, count: ItemCount); 

Interval:--Space— TYPE = record [ 

pointer: long pointer, count; Environment.PageCount); 

InvalidAddress: -DebugUsefulDefs- error [address: long pointer); 

InvalidArguments: -Courier- error; 
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InvalidateBox: -Window- procedure [ 

window; Handle, box: Box, clarity; Clarity«- isDirty]; 

InvalidBase; -ExtendedString- error; 

InvalidFile: -LogFile- error-, 

InvalidFrame; -DebugUsefulDefs- error [f: pointer]; 

InvalidFrame: -Runtime- error [frame; unspecified]; 

InvalidGlobalFrame; -Runtime- error (frame: GenericProgram]; 
InvalidLineNumber: -RS232C - error; 

InvalidLineNumber: -TTYPort- error; 

InvalidNode: -MDSStorage- error [p; pointer]; 

InvalidNumber: -DebugUsefulDefs- error [p; long pointer]; 

InvalidNumber: -NSString- error; 

InvalidParameter: -RS232C- error; 

InvalidProcess: -Process- error (process; unspecified]; 

Invalidstring: -NSString- error; 

InvalidSwitches: -HeraldWindow- signal; 

InvalidType: -CHLookup- error; 

InvalidVersion; -OthelloOps- error; 

Invert: -Cursor- procedure returns [boolean]; 

Invert: -Display- procedure (window: Handle, box: window.Box]; 

Invoke: -Menu- procedure (window; window. Handle, place: window.Place]; 

IRS; -CHLookup- type = machine dependent record ( 

address(0;0..95): System. NetworkAddress, location(6:0..63); NSString. String]; 
IRSDescribe: -CHLookup- Courier. Descri ption; 

IRSPt: -CHLookup- type = long pointer to IRS; 

IsBandFinished: -LsepFace- procedure (band: Band] returns [boolean]; 
IsBandImageBegun; -LsepFace- procedure [band: Band] returns [boolean]; 
IsBitmapUnderVariant: -Window- procedure (Handle] returns [boolean]; 
IsBound: -Runtime- procedure [link; ControlLink] returns [boolean]; 
IsCookieVariant: -Window- procedure [Handle] returns [boolean]; 
IsDescendantOfRoot; -Window- procedure [Handle] returns [boolean]; 
i sDi rectory;--A/SAss/gnedrypes-AttributeType = 5; 

IsEditable: --F//eSW --procedure [sw; window.Handle] returns [yes; boolean]; 
Isit: -AsciiSink- procedure [sink: Textsink.Handle] returns [boolean]; 

Isit: -BlockSource- procedure [source: Handle] returns [yes: boolean]; 

Isit: --0/skSoufce-- PROCEDURE [source; Textsource. Handle] returns [boolean]; 

Isit: --F/7eSV\/'-- PROCEDURE [sw: window.Handle] returns [yes: boolean]; 

Isit: -FileWindow- procedure [sw: window.Handle] returns [boolean]; 

Isit: -FormSW- procedure [sw: window.Handle] returns [yes: boolean]; 

Isit: --MsgSW-PROCEDURE [sw: window.Handle] returns [yes: boolean]; 

Isit: -MStream- procedure [stream; Handle] returns [boolean]; 

Isit: -PieceSource- procedure [source: Textsource.Handle] 
returns [yes: boolean]; 

Isit: -ScratchSource- procedure [source: TextSource.Handle] 

RETURNS [yes: boolean]; 

Isit: -ScratchSW- procedure [sw; window.Handle] returns [yes; boolean]; 

Isit; -Tool- PROCEDURE [window; window.Handle] returns [boolean]; 

Isit: -TTYSW- procedure [sw; Window.Handle] returns [yes: boolean]; 
Isiteminverted: -FormSW- procedure [sw: window.Handle, index: cardinal] 
RETURNS [yes: boolean]; 

IsLineFinished: -LsepFace- procedure [band: SingleLineBand] returns 
[boolean]; 

IsLinelmageBegun. -LsepFace- procedure [band: SingleLineBand] 

RETURNS [boolean]; 

IsMember: -CH- procedure [ 

cred: Authenticator. Credentials, ver: Authenticator. Verifier, 
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element; Element, name; Pattern, pn; PropertylD, distingName; Name] 
RETURNS (rc; ReturnCode, isMember; boolean]; 

IsMemberClosure; -CH- procedure [ 

cred; Authenticator. Credentials, ver; Authenticator. Verifier, 
element; Element, name; Pattern, pn; PropertylD, distingName; Name, 
pn2; PropertylD«—unspecified] returns [rc; ReturnCode, isMember; 
boolean]; 

IsMemberOfDomainAccess; -MoreCH- procedure [ 

cred; Authenticator.Credentials, ver; Authenticator. Verifier, 
element; ch. Element, domain; CH.Name, acl; ACLFIavor, 
pn2; CH. PropertylD unspecified] 
returns [rc: ch. ReturnCode, isMember; boolean]; 

IsMemberOfOrgAccess; -MoreCH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, 
element: ch. Element, org: CH.Name, acl: ACLFIavor, 
pn2: CH. PropertylD «— unspecified] 

RETURNS [rc: CH. ReturnCode, isMember: boolean]; 

IsMemberOfPropertyAccess: -MoreCH- procedure [ 

cred; Authenticator.Credentials, ver; Authenticator.Verifier, 

element: ch. Element, name: CH.Name, pn: ch. Property ID, acl: ACLFIavor, 

distingName: CH.Name, pn2: ch. PropertylD «- unspecified] 

RETURNS [rc; CH. ReturnCode, isMember: boolean]; 

IsPlaceInBox: -Window- procedure [place; Place, box: Box] returns [boolean]; 

IsPlacelnWindow: -ToolWindow- procedure [place: Place, window: Handle] 
RETURNS [boolean]; 

IsReady; -PhysicalVolume- procedure [instance: Handle] 

RETURNS [ready; boolean]; 

IsSegmentedFileType; -NSVolumeControl- procedure [type: NSFiie.Type] 
RETURNS [boolean]; 

IsSegmentEmpty: -Zone- procedure [zH: Handle, sH: SegmentHandle] 

RETURNS [empty: boolean]; 

isTemporary;-A/SAss/gnedrypes-AttributeType = 6; 

IsTimeValid: -OthelloOps- procedure returns [valid: boolean]; 

IsZoneEmpty: -Zone- procedure [zH: Handle] returns [empty: boolean]; 

Item: -BodyOefs- type = long pointer to Item Header; 

Item: -Token- procedure [h: Handle, temporary; boolean <- true] 

RETURNS [value: long string]; 

ItemCount: -ObjAlloc- type = long cardinal; 

ItemDescriptor: -formSW- type = long descriptor for array cardinal of 
ItemHandle; 

ItemError: -FormSW- signal [code: ItemErrorCode, index: cardinal]; 

ItemErrorCode: -FormSW- type = { 

illegalCoordinate, notStringOtherltem, nilBackingStore, other}; 

ItemFlags: -FormSW- type = record [ 
readonly; boolean <- false, 
invisible: boolean <- false, 
drawBox: boolean <- false, 
hasContext: boolean «— false, 
clientOwnsItem; boolean <— false, 
modified: boolean <- false]; 

ItemHandle: -FormSW- type = long pointer to ItemObject; 

ItemHandle;-Menu-- TYPE = long pointer to ItemObject; 

ItemHeader; -BodyDeh- type = machine dependent record [ 
type(0:0..15): ItemType, length(1 ;0..31): ItemLength]; 

Itemindex:-ObyA//oc- TYPE = longcardinal;- 

ItemLength:-SodyDefs- TYPE = longcardinal; 
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ItemObject: -FormSW- type = record [ 
tag: long string, 
place: window. Place, 
flags: ItemFlags, 

body: select type: ItemType from 

boolean = > [switch; long pointer to boolean, proc: NotifyProcType], 
command = > [proc; ProcType], 
enumerated = > [ 

feedback: EnumeratedFeedback, 
copyChoices: boolean, 
value: long pointer, 
proc: EnumeratedNotifyProcType, 
choices: EnumeratedDescriptor], 
longNumber = > [ 
signed: boolean, 
notNegative: boolean, 
radix: Radix, 

boxWidth: cardinal [0..255], 
proc: LongNumberNotifyProcType, 
default: long unspecified, 
value: long pointer to long unspecified, 
string: long string, 
bias: integer], 
number = > [ 

signed; boolean, 
notNegative; boolean, 
radix; Radix, 

boxWidth; cardinal [0..127], 
proc; NumberNotifyProcType, 
default: unspecified, 
value; long pointer, 
string: long string, 
bias: integer], 
source = > [ 

source: TextSource. Handle, 
boxWidth: cardinal, 
filterProc: FilterProcType, 
menuProc: MenuProcType], 
string = > [ 

feedback: StringFeedback, 
inHeap: boolean, 

string; long pointer to long string, 
boxWidth: cardinal, 
filterProc; FilterProcType, 
menuProc: MenuProcType], 

tagOnly = > [sw: Window, Handle, otherltem; cardinal], 
endcase]; 

ItemObject; -Menu- type = record [keyword: long string, mcrProc: MCRType]; 

Items: --A/fenu- type = long descriptor for array cardinal of ItemObject; 

ItemType: -BodyDefs - type = machine dependent{ 

PostMark{8), Sender(16), ReturnTo(24), Recipients(32), Text(520), 
Capability(528), Audio(536), updateltem(1024), reMail(2100B), 
Lastltem{177777B)}; 

ItemType:-FormSW- TYPE = { 

boolean, command, enumerated, longNumber, number, source, string, 
tagOnly}; 
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ITS: -CHLookup- type = machine dependent record [ 

address(0:0..95): System. NetworkAddress, location{6;0..63): NSString. String]; 
ITSDescribe: -CHLookup — Courier. Description; 

ITSPt: -CHLookup- type = long pointer to ITS; 

k10:--/CeyStat/ons-Bit = 19; 

k11: -Keystations- Bit = 21; 

k'i2: -Keystations-B\t = 17; 

k13: -/feyStat/ons-Bit = 53; 

k14: -Keystations- Bit = 64; 

k15; -Keystations- Bit = 51; 

k16;--ACeyStat/or)s--Bit = 16; 

k17:--/CeyStat/ons--Bit = 23; 

k18: -Keystations- Bit = 65; 

k19; --KeyStat/ons--Bit = 66; 

k1: -Keystations- Bit = 48; 

k20:--/CeyStat/ons--Bit = 18; 

k21: -Keystations-Bit = 55; 

k22: -Keystations-Bit = 67; 

k23: --/CeyStat/ons--Bit = 68; 

k24: -Keystations- Bit = 20; 

k25: -Keystations- Bit = 70; 

k26: -/CeyStat/ons--Bit = 22; 

k27; -Keystations-Bit = 54; 

k28: -Keystations- Bit = 69; 

k29: -Keystations-Bit = 71; 

k2: --/feyStat/ons-Bit = 35; 

k30; -Keystations- Bit = 39; 

k31: -Keystations-Bit = 25; 

k32; -Keystations- Bit = 38; 

k33: -Keystations- Bit = 43; 

k34: -Keystations- Bit = 41; 

k35: -Keystations-Bit = 42; 

k36: -Keystations- Bit = 24; 

k37: -/feyStat/ons--Bit = 58; 

k38: -Keystations- Bit = 27; 

k39: -Keystations- Bit = 59; 

k3: -Keystations—Bit = 37; 

k40: -Keystations- Bit = 26; 

k41; -Keystations- Bit = 28; 

k42: -Keystations- Bit = 74; 

k43: --KeyStat/ons--Bit = 44; 

k44: -Keystations- Bit = 75; 

k45; -Keystations- Bit = 45; 

k46: --/CeyStat/ons-Bit = 61; 

k47: -Keystations-Bit = 107; 

k48: -Keystations- Bit = 49; 

k4; -Keystations- Bit = 33; 

k5: -Keystations- Bit = 56; 

k6; -Keystations- Bit = 34; 

k7: --KeyStat/ons--Bit = 36; 

k8: -Keystations- Bit = 32; 

k9: -Keystations- Bit = 40; 

Key; -Authenticator- type [4]; 

KeyBits: -JLevefIVKeys- type = packed array KeyName of DownUp; 

KeyBits; -Keys- type = packed array KeyName of DownUp; 

KeyBits:-KeyStat/ons-- TYPE = packed array Keystation of DownUp; 


C-66 















Mesa Programmer’s Manual 


C 


KeyBits:--Leve////K'eys—TYPE = packed array KeyName of DownUp; 

KeyBits;--teve//l//Ceys-TYPE = packed array KeyName of DownUp; 

keyboard; -UserTerminal - readonly long pointer to readonly array cardinal of 
word; 

KeyboardAndMouseTest; -OnlineDiagnostics- procedure [ 

keyboardType: KeyboardType, screenHeight: cardinal [0..77777B], 
screenWidth: cardinal [0..77777B], 

SetBackground; procedure [background; Background], 

SetBorder; procedure [oddPairs; [0 .255], evenPairs; [0..255]], 
GetMousePosition; procedure returns [Coordinate], 

SetMousePosition; procedure [newMousePosition; Coordinate], 
SetCursorPattern; procedure [cursorArray; CursorArray], 

SetCursorPosition; procedure [newCursorPosition; Coordinate], 
keyboard: long pointer. Beep: procedure [duration: cardinal], 

ClearDisplay: procedure, 

BlackenScreen; procedure [ 

x: cardinal, y: cardinal, width: cardinal, height: cardinal], 

InvertScreen: procedure [ 

x: cardinal, y; cardinal, width: cardinal, height: cardinal], 

WaitForKeyTransition; procedure]; 

KeyboardType: -OnlineDiagnostics -typb = {american, european, japanese}; 

KeyName: -JLevelIVKeys- type = machine dependent{ 

Redd3), Blue, FivedS), Four, Six, E, Seven, D, U, V, Zero, K, Dash, P, 

Slash, Font, SameAs, BS, Three, Two, W, Q, S, A, Nine, I, X, O, L, Comma, 
Quote, RightBracket, Open, Special, One, Tab, ParaTab, F, Props, C, J, B, Z, 
LeftHandakuonShift, Period, SemiColon, NewPara, Para, Delete, Next, R, T, 

G. 

Y, H, Eight, N, M, Lock, Hiragana, Half, Equal, RightDakuonShift, Stop, Move, 
Undo, Margins, English(B6), Katakana(88), Copy, Find, Again, Help, Expand, 
Center(97), Bold(99), Italic, Underlined, Superscript, Subscript, Smaller, 
LeftDakuonShift(107), Defauits( 109), Space, RightHandakuonShift}; 

KeyName: -Keys- type = machine dependent{ 

Keyset1(8), KeysetZ, Keysets, Keyset4, Keysets, Point, Adjust, Menu, Five, 
Four, Six, E, Seven, D, U, V, Zero, K, Dash, P, Slash, Backslash, PASTE, BS, 
Three, Two, W, Q, S, A, Nine, I, X, O, L, Comma, Quote, RightBracket, STUFF, 
COMMAND, One, COMPLETE, TAB, F, CONTROL, C, J, B, Z, LeftShift, Period, 
Semicolon, Return, Arrow, DELETE, NEXT, R, T, G, Y, H, Eight, N, M, LOCK, 
Space, LeftBracket, Equal, RightShift, USERABORT, MOVE, UNDO, DOIT, R9, 

L10, 

L7, L4, LI, A9, RIO, A8, COPY, FIND, AGAIN, HELP, EXPAND, R4, D2, D1, 
MENU, 

T1, SCROLLBAR, JFIRST, JSELECT, RESERVED, CLIENT1, CLIENT2, T10, R3, 
Key47, 

A10, ATTENTION, All, A12}; 

KeyName: -LevelIIIKeys- type = machine dependent{ 

Red(13), Blue, Yellow, Five, Four, Six, E, Seven, D, U, V, Zero, K, Dash, P, 

Slash, Font, GlobIRpIce, BS, Three, Two, W, Q, S, A, Nine, I, X, 0, L, Comma, 
Quote, RightBracket, Again, Special, One, TAB(50), F, Props, C, J, B, Z, 
LeftShift, Period, SemiColon, Return, Para, Delete, Next, R, T, G, Y, H, 

Eight, N, M, Lock, Space, Half, Equal, RightShift, R12, Move, R6, Carriage, 

R9, L10, L7, L4, LI, A9, A8(88), Copy, Find, Undo, Help, Expand, lndent(97), 

T1, Justify, Center, Bold, Italics, Underline, Subscript, T10, R3, 

Smallerd09)}; 

KeyName: -LevelIVKeys- type = machine dependent{ 

Redd3), Blue, FivedS), Four, Six, E, Seven, D, U, V, Zero, K, Dash, P, 

Slash, Font, Same, BS, Three, Two, W, Q, S, A, Nine, I, X, O, L, Comma, Quote, 
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RightBracket, Open, Special, One, Tab, ParaTab, F, Props, C, J, B, Z, 

LeftShift, Period, Semicolon, NewPara, Para, Delete, Next, R, T, G, Y, H, 

Eight, N, M, Lock, Space, Half, Equal, RightShift, Stop, Move, Undo, Margins, 
Copy(89), Find, Again, Help, Expand, Center(97), Bold(99), Italic, Underlined, 
Superscript, Subscript, Smaller, Defaults(109)}; 

Keystation;--/feyStaPons- TYPE = [0..111]; 

Kill: -MSegment- procedure [segment: Handle]; 

KS1:-KeySiat/ons--Bit = 8; 

KS2: -Keystations- Bit = 9; 

KS3:-KeyStat/ons--Bit = 10, 

KS4: -Keystations- Bit = 11; 

KS5: -KeyStat/ons-Bit = 12; 

L10: --KeySfat/onS" Bit = 82; 

L11; -Keystations- Bit = 46; 

LI2: --KeyStat/ons--Bit = 52; 

LI: -Keystations- Bit = 85; 

L2: --KeyStat/ons-Bit = 91; 

L3: --Keystations--Bit = 62; 

L4: -Keystations- Bit = 84; 

L5:-KeyStat/ons-Bit = 90; 

L6: -KeyStat/ons-Bit = 89; 

L7: -KeyStat/ons-Bit = 83; 

L8: -Keystations- Bit = 30; 

L9: -Keystations-B\t = 78; 

LabelHandle: -FormSW- type = TagOnlyHandle; 

Labelltem: -FormSW- procedure [ 

tag: long string «- nil, readonly; boolean «- false, invisible: boolean false, 
drawBox; boolean <- false, hasContext: boolean <— false, 
place: window. Place <- nextPlace, z: uncounted zone nil] 

RETURNS [LabelHandle]; 

largeAnonymousBackingFile: -PilotSwitches— AnonymousBackingFileSize = 
175C; 

LargeReturnSlot; -Pr/ncOps- cardinal = 31; 

LargestNumber; -Real- real; 

LastAVHeapSlot:-Pr/ncOps- CARDINAL = 30; 

LastBand; -RavenFace- procedure [Index]; 

LastLine: ~/WsgSW~ procedure [sw; window.Handle, ss: string. Substring]; 
lastPageCount:-environment-PageCount = 77777777B; 
lastPageCount: -File- PageCount = 37777777B; 
lastPageCount: -Floppy- PageNumber = 37777777B; 
lastPageCount:-Phys/ca/Volume-PageCount = 37777777776B; 
lastPageCount: -Volume- PageCount = 40000000B; 
lastPageNumber: -Environment- PageNumber = 77777776B; 
lastPageNumber: -Fi/e-PageNumber = 37777776B; 
lastPageNumber: -Phys/ca/Vo/ume--PageNumber = 37777777776B; 
lastPageNumber: -Volume- PageNumber = Y1111111B-, 
lastPageOffset; -environment-PageOffset = 77777776B; 
lastPosition: -NSFile- readonly Position; 
lastPositionRepresentation: -NSFile- array [0..0] of unspecified; 
lastServicesATy'pe:-AlSAssignedrypes-AssignedType = 10377B; 
lastServicesBType: -A/SAssignedTypes-AssignedType = 11777B; 
lastStandardType:-A/SAss/gnedrypes-AssignedType = 7777B; 
lastStarType;-A/SAssignedrypes--AssignedType = 10777B; 
lastWS860Type;-A/SAssignedTypes- AssignedType = 12017B; 
LatchBitClearMask: -RS232C- tvpe = DeviceStatus; 
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Layout: -PhysicalVolume- type = { 

partialLogicalVolume, singleLogicalVolume, multipleLogicalVolumes, 
empty}; 

LDIVMOO: -Inline- procedure [numlow: word, numhigh; cardinal, den: 
cardinal] 

RETURNS [quotient: cardinal, remainder: cardinal]; 

LeftShift: -JLevelIVKeys- KeyName = LeftHandakuonShift; 

Lengthen: --DefaugL/sefu/Defs- procedure [ClientSource] returns 
[LongClientDest]; 

LengthRange: -CommOnlineDiagnostics- type = machine dependent record [ 
low(0:0..15): [0..999], high(1:0..15): (0..999]]; 

Level:--Log-- type = State [error..remark]; 

LF: -Asc//- CHARACTER = 12C; 

LFDisplayTest: -OnlineDiagnostics- procedure [ 

screenHeight: cardinal [0..77777B], screenWidth: cardinal [0..77777B], 
SetBackground: procedure [background: Background], 

SetBorder: procedure [oddPairs: [0..255], evenPairs: [0..255]], 
GetNextAction: procedure returns [NextAction], ClearDisplay: procedure, 
BlackenScreen; procedure ( 

x: CARDINAL, y: CARDINAL, width: cardinal, height: cardinal], 
FillScreenWithObject: procedure [p: long pointer to array [0..15] of word]]; 
librarian: -EventTypes- Supervisor. Event; 

Life: “Space- TYPE = {alive, dead}; 

LimitProcType: -ToolWindow- type = procedure [window: Handle, box: Box] 
RETURNS [Box]; 

lineO: --FormSW-- INTEGER = -3; 
linel:-FormSW-- integer = -4; 

Iine2:--FormSW- INTEGER = -5; 

Iine3:--formSW-- INTEGER = -6; 

Iine4: --FormSW- integer = -7; 
lineS: --FormSW-- integer = -8; 
lineS: -FormSW- integer = -9; 

Iine7:--FormSW-- integer = -10; 
lineS: -FormSW- integer = -11; 

Iine9:--FormSW-- integer = -12; 

Line: -CmFile- procedure [ 

fileName: long string, title; long string, name; long string] 
returns [long string]; 

Line: -Display- procedure [ 

window; Handle, start: wmdow.Place, stop; window. Place, 
bounds: window. BoxHandle <- nil]; 

Line: -Format- procedure [ 

proc: StringProc, s: long string, clientData: long pointer <- nil]; 

Line: -Put- procedure [h: window. Handle *- nil, s: long string]; 

Line: -Token- FilterProcType; 

LineHeight: -FormSW- procedure [sw: window. Handle e- nil] returns [cardinal]; 
LineN: -FormSW- procedure [n; cardinal] returns [integer]; 

LineOverflow; --T7Y-- signal [s: long string] returns [ns; long string]; 
LineOverflow: -TTYSW- signal [s: long string] returns [ns: long string]; 
LineSpeed; --RS232C-- TYPE = RS232CEnvironment.LineSpeed; 

LineSpeed;--RS232C£nv(ronment - TYPE = { 

bpsSO, bps75, bpsi 10, bps134p5, bpsISO, bps300, bps600, bps1200, bps2400, 
bps3600, bps4800, bps7200, bps9600, bpsi9200, bps28800, bps38400, 
bps48000, 

bpsSeOOO,bps57600}; 

LineSpeed; --/ / YPort— type = TTYPortEnvironment.LineSpeed; 
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LineSpeed;-7TyPoft£nv/ronment-- TYPE = { 

bps50, bps75, bpsi 10, bps134p5, bpsISO, bps300, bpsSOO, bps1200, bpsISOO, 
bps2000, bps2400, bps3600, bps4800, bps7200, bps9600, bpsi 9200}; 

linesPerBand: --tsepPace- cardinal = 16; 

LineType: -PS232C- TYPE = RS232CEnvironment.LineType; 

LineType: -RS232CEnvironment- type = { 

bitSynchronous, byteSynchronous, asynchronous, autoRecognition}; 

LinkageFault: -Runtime- error; 

List; -NSFile- procedure [ 

directory: Handle, proc; AttributesProc, selections: Selections, 
scope: Scope <- [], session; Session <- nullSession]; 

Listen: -NetworkStream- procedure [ 
listenerH: ListenerHandle, 

connectData; Environment.Block <- Environment.nullBlock, 
listenTimeout: WaitTime «— infiniteWaitTime] 
returns [remote: System. NetworkAddress, bytes: cardinal]; 

ListenerHandle: -NetworkStream- type [2]; 

ListenError: -NetworkStream- error [reason: ListenErrorReason]; 

ListenErrorReason:--A/etworkStream--TYPE = { 

illegal Address, illegalHandle, illegalState, blockTooShort}; 

ListenTimeout: -NetworkStream- signal; 

ListProc: -FileTransfer- type = procedure [ 

conn; Connection, clientData; long pointer, file; long string, 
post: MessageProc, info; InfoProc] returns [Confirmation]; 

Ln: -RealFns- procedure [real] returns [real]; 

load: -EventTypes- Supervisor. Event; 

Load: -Exec- procedure [ 

write: Format.StringProc, name: long string, codeLinks: boolean «-false] 
returns [handle; MLoader.Handle]; 

Load: --/WLoac/er- procedure [ 

file: MFiie. Handle, options: Options <—defaultOptions] returns [Handle]; 

LoadConfig: -Runtime- procedure [ 

file: File.File, offset: File.PageCount, codeLinks: boolean «- false] 
returns [program]; 

LoadMCR: -FileSW- wienu.MCRType; 

LoadWindow: -FileWindow— procedure [ 

fileName; long string, position; long cardinal «-0,s: stream. Handle <- nil, 
loadIfSame: boolean false, sw: window. Handle <- nil]; 

Local:--WSWame-- TYPE = String <—NSString.nullString; 

localbase:--Pr/ncOps- CARDINAL = 0; 

Local Dest:-Debugt/sefu/Deft-- TYPE = long pointer; 

LocalFrame: -BackstopNub— type [1]; 

LocalFrameBase;-Pr/ncOps- TYPE = pointer to LocalOverhead; 

LocalFrameHandle; -PrincOps- type = pointer to LocalVariables; 

Local Name:,--CH- TYPE = NSName.Local; 

LocalOverhead:--Pr/ncOps-- TYPE = machine dependent record [ 
word(0;0..15): LocalWord, 
returnlink(1:0..15): ShortControlLink, 
globallink(2:0..15): GlobalFrameHandle, 
pc{3:0..15): BytePC, 
iocal(4); LocalVariables]; 

LocalSource; -DebugUsefulDefs - r-rpE = -Ong pointer to readonly unspecified; 

LocalSystemElement: -Courier - procedure returns [SystemElement]; 

localSystemElement: -NSFile- readonly SystemElement; 

LocalVariables: -PrincOps- type = array cardinal [0..0) of unspecified; 


C-70 



Mesa Programmer’s Manual 


C 


LocalVFN: -F/Verransfer- procedure [conn: Connection, vfn; FiieName.VFN] 
RETURNS [boolean]; 

LocalWord: --Pr/ncOps- type = machine dependent record [ 
available(0;0..7): BYTE, fsi(0:8..15): FSIndex]; 
localWordOffset: -PrincOps- cardinal = 4; 

Lock: --/VSPj/e-- TYPE = machine OEPENDENT{none, share, exclusive}; 

Log: -MFile- procedure [ 

name: long string, release: ReleaseData, 
initialLength: InitialLength dontCare] returns [Handle]; 

Log: -/WStream- PROCEDURE [name: long string, release: ReleaseData] 

RETURNS [Handle]; 

Log: -NSVolumeControl- type = machine dependent record [ 
header(0:0..159): Header, firstEntry(l0:0..143): Entry]; 

Log: -RealFns- procedure [base: real, arg: real] returns [real]; 
logBitsPerByte: -£nv/ronment-- cardinal = 3; 
logBitsPerChar: --Environment- cardinal = 3; 
logBitsPerWord: -Environment- cardinal = 4; 
logBytesPerPage: --fnwronment- cardinal = 9; 
logBytesPerWord:--fnv/ronmer)t- cardinal = 1; 
logCap: -Log- readonly File. File; 
logCharsPerPage: -Environment- cardinal = 9; 
logCharsPerWord:--fnv/ronment- cardinal = 1; 

LogEntry: -VolumeConversion- type = machine dependent record [ 
oldFilelD(0:0..79): OldFilelD, newFilelD(5:0..31): F,ie.lD]; 

LogError: -Backstop- procedure; 

LogFormat:--Scavenger- TYPE = machine dependent record [ 
header(0:0..191): Header, files(12): array [O.-O) of FileEntry]; 

LogFrame: -Backstop- procedure [frame: Frame]; 

Logical Length: -NSString- procedure [s: String] returns [cardinal]; 
LogicalVolumePageNumber:-Othe//oOps- TYPE = long cardinal; 

Login: -Exec- procedure [h: Handle, name: long string, password: long string]; 
Logoff; -NSFile— procedure [session: Session nullSession]; 

Logon: -NSFile- procedure [ 

name: String, password: String, 

systemElement; SystemElement«—nullSystemElement] returns [Session]; 
LogonPrivileged; -NSSessionControl- procedure [ 

name; NSString. String, password: NSString. String] returns [NSFile. Session]; 
LogonWithCredentiais: -NSFile— procedure [ 
credentials: Credentials, verifier: Verifier, 

systemElement: SystemElement <-nullSystemElement] returns [Session]; 
LogProcess: -Backstop- procedure [process; Process]; 

LogSeal:-Scavenger- cardinal = 130725B; 

LogState: -VolumeConversion- type = {logComplete, mappingsMayBeLost}; 
logWordsPerPage: -Environment- cardinal = 8; 

Long; -Environment- type = machine dependent record [ 
select OVERLAID * FROM 

Ic = > [lc(0:0..31): long cardinal]^ " 
li = > [li(0:0..31); long integer]. 

Ip = > [lp(0:0..31): long pointer], 
lu = > [lu(0:0..31); long unspecified], 

num = > [lowbits(0:0..15): cardinal, highbits(1 ;0.. 15): cardinal], 
any = > [low(0:0.. 15); unspecified, high(1 ;0.. 15): unspecified], 
endcase]; 

LongCARDINAL;-/n//ne- TYPE = long cardinal; 

LongClientDest: -DebugUsefulDefs— type = long pointer; 
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LongClientSource: -DebugUsefulDefs- type = loimcs pointer to readonly 
unspecified; 

LongCOPY: -Inline- procedure [ 

from: long pointer, nwords: cardinal, to; long pointer]; 

LongCopyREAD; -DebugilsefulDefs- procedure [ 

from: LongClientSource, nwords; cardinal, to; LocalDestj; 

LongCOPYReverse: -Inline- procedure [ 

from: long pointer, nwords: cardinal, to: long pointer]; 

LongCopyWRITE: -DebugilsefulDefs- procedure [ 

from: LocalSource, nwords; cardinal, to: LongClientDest]; 

LongDecimal: --format-- procedure [ 

proc: StringProc, n: long integer, clientData: long pointer <- nil]; 

LongDecimal; -Put- procedure [h; wtndow.Handle«-NiL, n; long integer]; 

LongOiv: -Inline- procedure [num: long cardinal, den: cardinal] 

RETURNS [cardinal]; 

LongDivMod: -Inline- procedure [num; long cardinal, den; cardinal] 

RETURNS [quotient: cardinal, remainder: cardinal]; 

LongMult; -Inline- procedure [cardinal, cardinal] 

RETURNS [product: LONG CARDINAL]; 

LongNumber: -Environment- type = Long; 

LongNumber; -Format- procedure [ 

proc: StringProc, n: long unspecified, format; NumberFormat, 
clientData; long pointer <-nil]; 

LongNumber;-/n/me- TYPE = Environment.LongNumber; 

LongNumber: -Put- procedure [ 

h; Window. Handle <- nil, n; long unspecified, format: Format.NurnberForrnat]; 

LongNumber; --Se/ect/on- procedure [radix: cardinal <- 10] 
returns [long cardinal]; 

LongNumberHandle;-formSW- TYPE = long pointer to longNumber 
ItemObject; 

LongNumberltem: -FormSW- procedure [ 

tag; long string nil, readonly; boolean <- false, invisible: boolean <- false, 
drawBox: boolean «-false, hasContext: boolean <-false, 
place: Window. Place <- nextPlace, signed: boolean true, 

notNegative: boolean false, radix: Radix decimal, 
boxWidth: cardinal [0..255] <-64, 

proc: LongNumberNotifyProcType<— NopLongNumberNotifyProc, 

default: long unspecified <- 17777777777B, 

value; long pointer to long unspecified, bias: integer <-0, 

z: UNCOUNTED ZONE <- NIL] RETURNS [LongNumberHandle]; 

LongNumberNotifyProcType; -FormSW- type = procedure [ 

sw: Window. Handle <-NIL, item: ltemHandie<— nil, index: cardinal <- 
nullindex, 

oldValue: long unspecified <- 17777777777B]; 

LongOctal: -Format- procedure [ 

proc: StringProc, n; long unspecified, clientData: long pointer <-nil]; 

LongOctal: -Put- procedure [h: window.Handle <- nil, n: long unspecified]; 

LongPointerPromPage; -Environment- procedure [page: PageNumber] 
returns [long pointer]; 

LongPointerPromPage: -Space- procedure [page: Environment.PageNumber] 
RETURNS [long POINTER]; 

LongREAD: -DebugilsefulDefs- procedure [loc; LongClientSource] 

RETURNS [val: unspecified]; 

LongString: -Format- procedure [ 

proc; StrirjgProc, s; long string, clientData; long pointer <- nil]; 

LongString: -Put- procedure [h; Window.Handle <—nil, s: long string]; 
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LongSubString: -Put- procedure (h; Window. Handle <— nil, ss: string. Substring]; 
LongSubStringItem; -Format- procedure [ 

proc: StringProc, ss: string. Substring, ciientData: long pointer «— nil]; 
LongWRITE; -OebugUsefulDefs- procedure [ 
loc; LongClientDest, val: unspecified]; 

Lookup: -FileTransfer- procedure [conn: Connection, file: FileName.VFN] 

RETURNS [fileinfo: Fileinfo]; 

LookupAliasesOfName: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator. Verifier, name: Pattern, 
eachAlias: NameStreamProc, distingName: Name] returns (rc: ReturnCode]; 
LookupCIU: -CHLookup- procedure [ 

name: NSName.Name, clientProc: procedure [fullName: NSName.Narne, info: 
ClUPt], 

credentials: Authenticator.Credentials «- Authenticator.nullCredentials, 
verifier: Authenticator. Verifier t-Authenticator.firstVerifier]; 
LookupCommand: -Exec- procedure [command: long string] 
returns[ 

name: long string, proc: ExecProc, help: ExecProc, unload: ExecProc, 
didExpand: boolean, ciientData: long pointer <— nil]; 
LookupDistinguishedName: -CH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Pattern, 
distingName: Name] returns [rc: ReturnCode]; 

LookupDomainAccess: -MoreCH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, domain: CH.Name, 
acl: ACLFIavor, eachElement: ch. NameStreamProc] returns [rc: 

CH. ReturnCode]; 

LookupECS: -CHLookup- procedure [ 

name: NSName.Name, clientProc: procedure [fullName: NSName.Name, info: 
ECSPt], 

credentials: Authenticator.Credentials «—Authenticator.nullCredentials, 
verifier: Authenticator.Verifier <-Authenticator.firstVerifier]; 
LookupFileserver: -CHLookup- procedure [ 
name: NSName.Name, 

clientProc: procedure [fullName: NSName.Name, info: FileserverPt], 
credentials: Authenticator.Credentials «-Authenticator.nullCredentials, 
verifier: Authenticator.Verifier e-Authenticator,firstVerifier]; 
LookupGroupProperty: -CH— procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: Pattern, 
pn: PropertylD, eachElement: NameStreamProc, distingName: Name] 
RETURNS [rc: ReturnCode]; 

LookupGWS: -CHLookup- procedure [ 

name: NSName.Name, clientProc: procedure [fullName: NSName.Name, info: 
GWSPt], 

credentials: Authenticator.Credentials <-Authenticator.nullCredentials, 
verifier: Authenticator.Verifier <—Authenticator.firstVerifier]; 
LookupIBMHost: -CHLookup- procedure [ 
name: NSName.Name, 

clientProc: procedure [fullName: NSName.Name, info: IBMHostPt], 
credentials: Authenticator.Credentials <- Authenticator.nullCredentials, 
verifier: Authenticator.Verifier e-Authenticator.firstVerifier]; 

LookupIRS: -CHLookup- procedure [ 

name: NSName.Name, clientProc: procedure [fullName: NSName.Name, info: 
IRSPt], 

credentials: Authenticator.Credentials <— Authenticator.nullCredentials, 
verifier: Authenticator.Verifier <—Authenticator.firstVerifier]; 
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LookupITS: -CHLookup- procedure [ 

name; NSName.Narne, ciientProc: procedure [fullName: NSName.Name, info: 
ITSPt], 

credentials; Authenticator.Credentials «- Authenticator.nullCredentials, 
verifier: Authenticator.Verifier«—Authenticator.firstVerifier]; 
LookupMailserver; -CHLookup- procedure [ 
name; NSiMame.Name, 

ciientProc: procedure [fulllMame: NSName.Name, info: MailserverPt], 
credentials: Authenticator.Credentials <— Authenticator.nullCredentials, 
verifier: Authenticator.VerifierAuthenticator.firstVerifier); 
LookupOldlBM3270Host; -C/fiookup- procedure [ 
name: NSName.Name, 

ciientProc; procedure [fullName: NSName.Name, info: OldlBM3270HostPt], 
credentials; Authenticator.Credentials «- Authenticator.nullCredentials, 
verifier: Authenticator.Verifier «-Authenticator.firstVerifier); 
LookupOrgAccess: --/WoreCH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, org; CH.Name, 
acl: ACLFIavor, eachElement; CH.NameStreamProc) returns [rc: 
CH.ReturnCode); 

LookupPrintserver; -CHLookup- procedure [ 
name: NSName.Name, 

ciientProc: procedure [fullName: NSName.Name, info; PrintserverPt), 
credentials; Authenticator.Credentials «—Authenticator.nullCredentials, 
verifier: Authenticator.Verifier e-Authenticator.firstVerifier); 
LookupPropertyAccess: -MoreCH- procedure [ 

cred: Authenticator.Credentials, ver: Authenticator.Verifier, name: CH.Name, 
pn: CH.PropertylD, acl: ACLFIavor, eachElement: CH.NameStreamProc, 
distingName: CH.Name) returns [rc: CH.ReturnCode); 

LookupRemote: -CHLookup- procedure [ 
name; NSName.Name, 

ciientProc: procedure [fullName: NSName.Name, info; RemotePt), 
credentials: Authenticator.Credentials Authenticator.nullCredentials, 
verifier; Authenticator.Verifier <—Authenticator.firstVerifier); 
LookUpRootFile; --Vo/ome— procedure [type; Fiie.Type, volume; ID^systemlD) 
RETURNS [file: Fiie.File); 

LookupRS232CPort: -CHLookup- procedure [ 
name: NSName.Name, 

ciientProc: procedure [fullName: NSName.Name, info; RS232CPortPt), 
credentials: Authenticator.CredentialsAuthenticator.nullCredentials, 
verifier: Authenticator.Verifier <—Authenticator.firstVerifier); 

LookupUser: -CHLookup- procedure [ 
name; NSName.Name, 

ciientProc: procedure [fullName: NSName.Name, info: UserPt), 
credentials; Authenticator.Credentials <-Authenticator.nullCredentials, 
verifier; Authenticator.Verifier <—Authenticator.firstVerifier); 
LookupValueProperty; -CH- procedure [ 

cred: Authenticator.Credentials, ver; Authenticator.Verifier, name; Pattern, 
pn: PropertylD, buffer: Buffer, distingName: Name) returns [rc; 
ReturnCode); 

LookupWorkstation: -CHLookup- procedure [ 
name: NSName.Name, 

ciientProc: procedure [fullName: NSName.Name, info: WorkstationPt), 
credentials: Authenticator.Credentials ^ Authenticator.nullCredentials, 
verifier: Authenticator.Verifier <—Authenticator.firstVerifier); 

LowByte: -Inline- procedure [u; unspeqfied) returns [unspecified); 

Lowercase; -NSString- procedure [c: Character) returns [Character); 
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lowestVersion: -A/Sf//e- cardinal = 0; 

LowHaif: -Inline- procedure [u; long unspecified] returns [unspecified]; 

LSAdjust: -OnlineDiagnostics- procedure [ 

cancelSignal: signal, GetMesaChar; procedure returns [character], 

PutCR: procedure, 

PutMessage: procedure [message: LSMessage, char: character <—0C], 
PutMesaChar: procedure [char: character]]; 

LSMessage: -OnlineDiagnostics- type = { 

kTermAdj, kTypeCharFill, kCTLC, kFiliScreen, kTypeXHair, kEndAdj, 
kTermTest, 

kTestKey, kCTLStop, kLineFeed, kReturnKey, kLetter, kAndCTL, kEscape, 
kSpBar, 

kAndShift, kShColon, kShSemiColon, kTypeComma, kHyphen, kTypePeriod, 
kVirgule, 

kNumerai, kKey, kLearColon, kSemiColon, kShComma, kShHyphen, 
kShPeriod, 

kShVirgule, kAtSign, kLeftBracket, kBackSlash, kRightBracket, kCaret, 
kBreak, 

kShAt, kShLeftBracket, kShBackSlash, kShRightBracket, kShCaret, kShBreak, 
kUnknown}; 

LSTest: -OnlineDiagnostics- procedure [ 

cancelSignal: signal, GetMesaChar: procedure returns [character], 
PutMessage: procedure [message: LSMessage, char: character«—0C]]; 

Ml:--/CeyStat/ons--Bit = 13; 

M2:--/CeyStat/ons--Bit = 15; 

M3:--k'eyStat/orrs-Bit = 14; 

MailboxState: -RetrieveDefs- procedure [handle: Handle] 
returns [state: MBXState]; 
mailCourierSocket: --CHP/Os--CH.PropertylD = 35; 
mailForwardSocket: -CHP/Ds--CH.PropertylD = 32; 
mai I Pol ISocket:--CHP/Ds--CH.PropertylD = 33; 
mailPrimary: -CHP/Os-CH.PropertylD = 30; 
mailSecondary: -CHP/Ds-CH.PropertylD = 31; 

Mailserver: -CHLookup- type = machine dependent record [ 

address(0:0..95): System. NetworkAddress, location(6:0..63): NSString.String]; 
MailserverDescribe: -CHLookup- Couner.Description; 

MailserverPt:-CHLookup- type = long pointer to Mailserver; 
mailTelnetSocket:-CHP/Os—CH.PropertylD = 34; 

MainBodyIndex: -Pr/ncOps— cardinal = 0; 
mainBodyIndex:-Pr/ncOps- cardinal = 0; 

Make: -BTree- procedure [ 

file: MFiie.Handle <- nil, usage: Space. Usage <- 0, 

valueSize: ValueSize<-defaultValueSize, reset: boolean «- false] 

RETURNS [tree: Tree]; 

Make: -Menu- procedure [ 

name: long string, strings: long descriptor for array cardinal of long string, 
mcrProc: MCRType, copyStrings: boolean «— true, permanent: boolean <— 
false] 

returns [Handle]; 

MakeAbortedHeader: —ExpeditedCourier— procedure [remoteSignal Number: 
cardinal] 

returns [h: Header]; 

MakeAtom: -Atom- procedure [ref: long string] returns [atom]; 

MakeBootable: -OthelloOps- procedure [ 

file: File.File, type: BootFileType, firstPage:.File.PageNumber]; 
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MakeClientSW; -Tool- procedure [ 
window: Window. Handle, 

clientProc: procedure [sw: window. Handle, clientData: long pointer], 
clientData: long pointer, swType: SWType, h: integer «-0] 
returns [sw: Wmdow. Handle); 

makeCodeOnePageSwapUnits: —PilotSwitchesExtras— PiiotSwitches.PilotDomainC 
371C; 

MakeDefaultSWs: -Tool- procedure [ 

window: Window. Handle, messageLines: cardinal «- 0, 

formProc: PormSW.ClientlternsProcType «-nil, 

formHeight: cardinal «— DefaultHeight, logName: long string <— nil] 

RETURNS [msgSW: wmdow. Handle, formSW: window. Handle, logSW: 

Window. Handle]; 

MakeEditable: --F//eSW- procedure [sw: Window. Handle] returns [ok: boolean]; 
MakeFileList; -Scavenger- procedure [ 

volume: voiume.lD, log Destination: voiume.lD] returns [logFile; Fiie.Fiie]; 
MakeFileSW: -Tool- procedure [ 

window: Window. Handle, name: long string, access: PiieSW.Access <— append, 
h: integer DefaultHeight, allowTypeIn: boolean «- true, 
resetLengthOnNewSession: boolean ^ false, 

resetLengthOnActivate: boolean <—false] returns [sw; window.Handlej; 
MakeFormSW: -Tool- procedure [ 

window: window.Handle, formProc: FormSw.ClientItemsProcType, 
options; FormSw.Options <- [], h; integer <- DefaultHeight, 
zone; uncounted zone <—nil] returns [sw: wmdow. Handle]; 

MakeHeader: -Answer- procedure [ 

getChar: procedure [cardinal] returns [character], getLength: cardinal, 
pUtBlock: procedure [EnvIronment.Block], 

getPages: procedure [cardinal] returns [long pointer], 
freePages; procedure [long pointer], userName: long string, 
userRegistry: long string, 

arpaGatewayHostNames: descriptor for array cardinal of long string, 
cForCopies: boolean <- false] 

RETURNS[ 

answerError: boolean, mpCode: MailParse.ErrorCode, charPosition: 
cardinal]; 

Makelmage: -Floppy- procedure [ 

floppyDrive: cardinal <-0, imageFile: File. File, 
firstImagePage; Fiie.PageNumber]; 

Makeltem; -Menu- procedure [keyword; long string, mcrProc: MCRType] 
returns [ItemObject]; 

MakeMDSNode: -Heap- procedure [z; MDSZone systemMDSZone, n; 
NWords] 

RETURNS [p; pointer]; 

MakeMsgSW: -Tool- procedure [ 

window; window.Handle, lines; cardinal 1, h: integer «- DefaultHeight] 
RETURNS [sw: Window.Handle]; 

MakeName: -NSName- procedure [ 

z: uncounted zone, orgSize: cardinal <- maxOrgLength, 
domainSize: cardinals— maxDomainLength, localSize: cardinals— 
maxLocal Length] 

RETURNS [Name]; 

MakeNameFields; -NSName- procedure [ 

z; uncounted zone, destination: Name, orgSize: cardinal maxOrgLength, 
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domainSize: cardinal «-maxDomainLength, localSize: cardinals— 
maxLocal Length]; 

MakeNegative: -Cursor- procedure; 

MakeNode; -Heap- procedure [z; uncounted zone <-systemZone, n: NWords] 

RETURNS [p: LONG POINTER); 

MakeNode: -Zone- procedure [ 

zH: Handle, n; BlockSize, alignment: Alignment «-a1] 

RETURNS [node; Base relative pointer, s; Status); 

MakePermanent; -File- procedure [file; File); 

MakePositive: -Cursor- procedure; 

MakeReadOnly; -MSegment- procedure [segment: Handle); 

MakeReadOniy: -Space-- procedure [interval: Interval); 

MakeRhs; -CH- procedure [maxlength: cardinal, heap: uncounted zone] 
returns [rhs: Buffer); 

MakeSize: -ToolWindow— procedure [window: Handle, size: Size); 
MakeString: -NSString- procedure [z; uncounted zone, bytes: cardinal) 
returns [String]; 

MakeStringSW: -Tool- procedure [ 

window; window.Handle, s: long pointer to long string <- nil, 
access: Textsw.Access«- append, h; integer DefaultHeight, 
expandable; boolean <- false] returns [sw: Window.Handle); 

MakeSWsProc:-foo/- TYPE = procedure [window; Window.Handle); 
MakeTextSW: -Tool- procedure [ 

window: Window.Handle, source: TextSource.Handle, sink; TextSink. Handle «— 

NIL, 

options: Textsw.Options TextSW.defaultOptions, 
position; TextSource. Position «-0, allowTypeIn: boolean «-true) 
returns [sw: Window.Handle); 

MakeTTYSW: -Tool- procedure [ 

window: Window.Handle, name; long string, h: integer <— DefaultHeight, 
resetLengthOnNewSession; boolean «— false] returns [sw: window.Handle); 
MakeUnbootable: -OthelloOps- procedure [ 

file: File.File, type: BootFileType, firstPage: File.PageNumber); 
MakeWritable: -MSegment- procedure [segment: Handle); 

MakeWritable; -NSSegment- procedure [ 

interval: Space.Interval, file; NSFiie.Handle, segment; ID «-defaultlD, 
session: Session <—nullSession); 

MakeWritable: -Space- procedure [interval; Interval); 

Map: -NSSegment- procedure [ 

origin: Origin, access; NSFiie.Access«-NSFile.readAccess, 
usage: Space.Usage f-0, life: Space.Life alive, 
swapUnits: space.SwapUnitOption <—Space.defaultSwapUnitOption, 
session; Session «-nullSession] returns [mapUnit; Space.Interval); 

Map: -Space- procedure [ 

window: Window, usage: Usage <— unknownUsage, class; Class <— file, 
access: Access «- readWrite, life: Life alive, 
swapUnits: SwapUnitOption <—defaultSwapUnitOption] 
returns [mapUnit: Interval); 

MapAt: -NSSegment— procedure [ 

at; Space.Interval, origin; Origin, access: NSFiie.Access <- NSFile.readAccess, 
usage: Space.Usage <—0, life; Space.Life «-alive, 
swapUnits; Space.SwapUnitOption Space.defaultSwapUnitOption, 
session: Session <- nullSession) returns [mapUnit; Space.Interval); 

MapAt: -Space- procedure [ 

at: Interval, window: Window, usage: Usage unknownUsage, 
class: Classfile, access: Access«—readWrite, life: Life <—alive. 
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swapUnits: SwapUnitOption «-defaultSwapUnitOption] 

RETURNS [mapUnit; interval]; 

Markitem: -FormSW- procedure [ 

sw: Window.Handle, index: cardinal, action: TextData.MarkingAction, 
mode: TextData.SelectionModej; 

MarkPageBad: -Pbys/ca/Vo/ume-- procedure [pvID: ID, badPage: PageNumberj; 
MarkProcType: -Caret- type = procedure [data: ClientData, action: Action]; 
Mask:--Expand-- TYPE = record [ 
star: boolean, 
atSign: boolean, 
quote: boolean, 
upArrow: UpArrowAction, 
local Directory: long string]; 

MatchPattern: -Exec— procedure [string: long string, pattern: long string] 
returns [matched: boolean]; 

MaxBands: -RavenFace- cardinal = 8; 
maxBlockLength: -PacketExchange- readonly cardinal; 
maxBufferSize: -CH- cardinal = 10000B; 
maxCARDINAL:-Env/ronment- cardinal = 177777B; 
maxCharactersInLabel: -E/oppy- cardinal = 40; 
maxConnectLength: -SodyOefs- cardinal = 64; 
maxCourierDeserializeBufferLength:-CHtookup- cardinal = 35; 
maxData:-CommOn/ZneO/agnost/cs- cardinal = 1000; 
maxDomainLength: -A/SA/ame- cardinal = 20; 
maxDomainNameLength:-CH- cardinal = 20; 
maxDomainNameLength: -A/SA/ame- cardinal = 20; 
maxEntriesInRootDirectory: -Volume- readonly cardinal; 

MaxFrameSize: -PnncOps— cardinal = 7774B; 
maxFrameSize: -Pr/ncOps- cardinal = 7774B; 
maxFullNameLength: -A/SA/ame- cardinal = 86; 
maxINTEGER: -Env/ronment— integer = 77777B; 
maxlengthComment: -CHLookup-CARDINAL = 100; 
maxlengthDescription: -CHtookup-CARDINAL = 100; 
maxlengthLocation: -CHiookup—CARDINAL = 100; 
maxlengthPassword: -CHtookup- cardinal = 40; 
maxlengthProduct:— CHtookup-CARDiNAL = 40; 
maxlengthTraining: -CHtookup— cardinal = 40; 
maxLocalLength: -A/SA/ame- cardinal = 40; 
maxLocalNameLength: -CH- cardinal = 40; 
maxLocalNameLength: -A/SA/ame- cardinal = 40; 
maxLONGCARDINAL: -Env/ronment- long cardinal = 37777777777B; 
maxLONGINTEGER: -Env/ronment- LONG integer = 17777777777B; 
maxNameLength: -Sfree-CARDINAL = 100; 
maxNameLength:-/WE/7e- CARDINAL = 100; 
maxNameLength: -Phys/ca/\/o/ome- cardinal = 40; 
maxNameLength: -\/o/ume— cardinal = 40; 

MaxNLinks:-Pr/ncOps- CARDINAL = 255; 
maxNLinks:-Pr/ncOps- cardinal = 255; 
maxNumberOfSegments: -NSSegment- readonly cardinal; 
maxOrgLength: -A/SA/ame- cardinal = 20; 
maxOrgNameLength: -CH- cardinal = 20; 
maxOrgNameLength: -A/SA/ame- cardinal = 20; 
maxPagesInMDS: -Env/ronment- cardinal = 256; 
maxPagesInVM: -Env/ronment-PageCount = 77777777B; 
maxPagesPerFile: -F//e- long cardinal = 37777777B; 
maxPagesPerVolume. -l/o/ume- long cardinal = 40000000B; 
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maxParamsInStack:--Pr/ncOps-- CARDINAL = 12; 

MaxParamsInStack:--Pr/ncOps-- CARDINAL = 12; 
maxPkt: -Protoco/Cert/ffcaPon-- cardinal = 576; 
maxRemarkLength; --SodyDefe-- cardinal = 64; 
maxRNameLength: -SodyDefs-- cardinal = 64; 

MaxSinglePrecision; --Pea/- cardinal = 9; 

MaxSmallFrameIndex: -PrmcOps- cardinal = 17; 
maxSmallFrameIndex: -PrmcOps- cardinal = 17; 
maxStringLength: -A/Sf//e- cardinal = 100; 
maxStringLength; -Se/ect/on- cardinal = 200; 

maxSubvolumesOnPhysicaiVolume: -PhysicalVolume— readonly cardinal; 
maxWellKnownSocket: -NSConstants— System. SocketNumber; 

MBXState; -RetrieveDefs-- type = { 

unknown, badName, badPwd, cantAuth, userOK, allDown, someEmpty, 
all Empty, 

notEmpty}; 

MCRForKeyword: -Menu- procedure [ 

sw: Window. Handle, menuName: long string, keyword: long string] 

RETURNS [mcr: MCRType, menu: Handle, index: cardinal]; 

MCRType: -/Wenu-TYPE = procedure [ 

window: Window. Handle <— nil, menu: Handle <— nil, index: cardinal <— 
177777B]; 

MDS: -Space— procedure returns [Interval]; 

MDSHandle:-Heap- TYPE = MDSZone; 

MeasureBlock: -Display- procedure [ 

window: Handle, block: Environment.Block, lineLength: integer <—infinity, 
place: window.Place, font: windowFont.Handle nil] 
returns [newPlace: Wmdow.Place, positions: cardinal, why: BreakReason]; 
Media: -NSPrint- type = long descriptor for array cardinal of Medium; 
Medium:-A/SPr/nt- TYPE = machine dependent record [ 
var(0:0..63): select type(0:0.. 15): MediumType from 
paper = > [paper(1:0..47): Paper], endcase]; 
mediumAnonymousBackingFile: -P/VotSw/tches—AnonymousBackingFileSize = 
174C; 

Mediumindex:-/VSPr/nt— TYPE = cardinal [0..0]; 

MediumType: -A/SPr/nt- TYPE = machine DEPENDENT{paper}; 

MediumType:-Protoco/Cert/f/cat/on- TYPE = machine dependent{ 
ether, unspecified{15)}; 
members: -CHP/Ds-ch. Property ID = 3; 

MembershipProc:-A/SSess/onContro/-TYPE = procedure [ 

key: NSString. String, type: NSFiie.AccessEntryType, session: NSFiie.Session] 
RETURNS [status: MembershipStatus]; 

MembershipStatus:-A/SSess/onContro/— TYPE = { 
member, notAMember, cannotDetermine}; 

MenuProcType:-FormSW- TYPE = procedure [sw: window. Handle, index: 
cardinal] 

returns [hints: Hints, freeHintsProc: FreeHintsProcType, replace: boolean]; 
MergeAttributeLists: -NSFile- procedure [ 
listA: AttributeList, listB: AttributeList, 

suppressDuplicates: boolean <— false] returns [mergedList: AttributeList]; 
MesaDEFileType:-P/VeTypes- TYPE = cardinal [22100B..22177B]; 

MesaFileType:-F/'/eTypes- TYPE = cardinal [256..511]; 

MesaString:-A/SStrmg- TYPE = long string; 

MesaUsage:-SpaceL/sage- TYPE = Space .Usage[128..255]; 
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MessageProc; -FileTransfer- type = procedure [ 

ciientData: long pointer, level: Severity,si: long strings-nil, 
s2: LONG STRING <- NIL, s3: LONG STRING NIL, S4: LONG STRING <- NIL]; 
MicrocodelnstallFailure: -FormatPUotDisk- signal [m: FailureTypej; 
Milliseconds: --Process- type = cardinal; 

MinHeight: -FormSW- procedure [items; Item Descriptor, type: Type] 

RETURNS [cardinal]; 

minimumNodeSize: -Heap- readonly NWords; 
minimumNodeSize: -Zone- readonly BlockSize; 
minINTEGER: -fnv/ronment- integer = -32768; 
minLength: -/Wa/VParse— cardinal = 40; 

minLONGINTEGER: -frjv/ronment— LONG integer = -2147483648; 
minPagesPerVolume: -Volume- readonly PageCount; 
minPkt: -Protoco/Cerf/f/cat/on- cardinal = 30; 

Minusinfinity: -Real— real; 

MinusLandBitmapUnder: -Window- type [6]; 

MinusLandCookieCutter: -Window— type [2]; 

MinusZero: -Real- real; 

MissingPages; -File- error [ 

file: File, firstMissing: PageNumber, countMissing: PageCount]; 
ModemChange: -CommOn//neOfagnost/cs-TYPE = procedure] 
modemSignal: ModemSignal,state: boolean]; 

ModemSignal: -CommOnlineDiagnostics- type = machine dependent{ 
dataSetReady, clearToSend, carrierDetect, ringindicator, ringHeard}; 
modifiedBy: -NSAssignedTypes-AttnbuteType = 7; 
modifiedOn: -WSAss/gnec/Types-AttributeType = 8; 

Modify Boolean; -FormSW- procedure [ 

sw; Window. Handle, index; cardinal, mark; boolean, notify: boolean]; 
ModifyCommand: -FormSW- procedure [ 

sw: Window. Handle, index: cardinal, mark: boolean, notify: boolean]; 
ModifyEditable: -FormSW- procedure [ 

sw: window.Handle, index: cardinal, position: cardinal, length: cardinal, 
new: long string <- nil, keepTrash: boolean <- false]; 
ModifyEnumerated: -FormSW- procedure [ 

sw: Window.Handle, index: cardinal, mark: boolean, notify; boolean, 
newValue: unspecified]; 

mouse: -UserTerminal- readonly long pointer to readonly Coordinate; 
MouseTransformerProc:-W/ndow- TYPE = procedure [Handle, Place] 
returns [Handle, Place]; 

Move: -NSFile- procedure [ 

file; Handle, destination: Handle, 
attributes: AttributeList <— nullAttributeList, 
session; Session «- nullSession]; 

Move: -NSSegment- procedure [ 

file; NSFile. Handle, oldSegment; ID, newSegment: ID, 
session; Session <—nullSession]; 

MoveByName: -WSF/7e- procedure [ 

directory: Handle, path; String, destination: Handle, 
attributes: AttributeList <- nullAttributeList, 
session: Session <- nullSession]; 

MoveChild; -NSFile- procedure [ 

directory: Handle, id: ID, destination; Handle, 
attributes: AttributeList e- nullAttributeList, 
session; Session <- nullSession]; 

MoveIntoWindowL -Cursor- procedure [ 

window: window.Handle, place; window.Place]; 
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MsecToTicks; -Process- procedure [msec: Milliseconds] returns [ticks: Ticks]; 
multi LI: -ProtocolCertification- Stage; 

MultipleFrames: -DebugUsefulDefs- error [list: FrameDesc]; 
MultiplyInfinityNaN: -Pea/- LONG cardinal = 4; 
myAddress: -NSAddr- readonly Address; 
myAddressBuffer: -NSAddr- readonly ch. Buffer; 
myHost: -NSAddr- readonly System. HostNumber; 
myNSAddr: -NSAddr- readonly NSAddr; 
myNSAddrBuffer: -NSAddr— readonly ch. Buffer; 

Name:-Aut/)ent/cator- TYPE = NSName.Name; 

Name: -CH- type = NSName.Name; 

Name: -DebugilsefulDefs- procedure [name: long string, gf: GFHandle]; 
name: -A/SAss/gnec/rypes-AttributeType = 9; 

Name:-A/SA/ame- TYPE = long pointer to NameRecord; 

NameFieldsFromString: -A/SA/ame- procedure [ 

z: uncounted zone, s: String, destination: Name, clientDefaults: Name <— 

nil]; 

NameForError: -MFile- signal returns (errorName: long string]; 
NameFromString: -NSName- procedure [ 

z: uncounted zone, s: String, clientDefaults: Name «- nil] returns [Name]; 
Nameinfo: -MailParse- type = record [nesting: BracketType, type: NameType]; 
Namelist: -MailParse- procedure [ 

h: Handle, process: ProcessProc, write: WriteProc <— nil]; 

NamePattern:-C/^- TYPE = ThreePartName; 

NameRecord: -CH- TYPE = NSName.NameRecord; 

NameRecord: -NSName- type = record [ 

org: Organization, domain: Domain, local: Local]; 

NameStreamProc: -CH-type = procedure [currentName: Element]; 
NameTooSmall: -A/SA/ame- signal [ 

oldName: Name, orgLenNeeded: cardinal, domainLenNeeded: cardinal, 
localLenNeeded: cardinal] returns [newName: Name]; 

NameType:-CH- TYPE = machine DEPENDENT{notFound, found, dead, 
(177777B)}; 

NameType:-/Wa//Parse- TYPE = {normal, file, publicDL}; 

NarrowFault: -Runtime- error; 

NeededHeight: -FormSW- procedure [window. Handle] 

RETURNS [min: cardinal, current: cardinal]; 

NeedsScavenging: -PhysicalVolume- error; 

NeedsScavenging: -Vo/ume- error [volume: ID]; 

NetAccess: -RS232C- type = RSZSZCEnvironment.NetAccess; 

NetAccess: -RS232CEnvironment- type = {directConn, dialConn}; 

NetFormat: -Format- type = {octal, hex, productSoftware}; 

NetFormat:-Put— type = Format.NetFormat; 
netManagementSocket: -NSConstants- System. SocketNumber; 
network:-CHP/Ds-CH.PropertylD = 52; 

NetworkAddress: -AddressTranslation- type = System. NetworkAddress; 
NetworkAddress: -Format- procedure [ 

proc: StringProc, networkAddress: System. NetworkAddress, format: 
NetFormat, 

clientData: long pointer <— nil]; 

NetworkAddress: -Put- procedure [ 

h: window.Handle <- nil, address: System. NetworkAddress, 
format: NetFormat octal]; 

NetworkNonExistent: -Router- error; 

NetworkNumber: -Format- procedure [ 

proc: StringProc, networkNumber: System. NetworkNumber, format: 
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NetFormat, 

clientData; lomg pointer <- nil]; 

NetworkNumber: -Put- procedure [ 

h: Window.Hanclle <— NIL, networkNumber: System. NetworkNumber, 
format: NetFormat); 

networkServers:--CHP/Ds--CH.PropertylD = 53; 
newClearinghouseSocket: -NSConstants- System. SocketNumber; 

NewConfig; -Runtime— procedure [ 

file: File. File, offset: Fiie.PageCount, codeLinks: boolean <— false); 
newLine: -FormSW- window. Place; 

NewLine: -TTY- procedure [h: Handle) returns [yes: boolean); 

NewLine: -TTYSW- procedure [sw: Window. Handle) returns [boolean]; 
NewRadiusNotifyProc: -ExpeditedCourier-tYP£ = procedure [newRingRadius: 
Hop) 

RETURNS [continue: boolean); 
newSearchPath: -EventTypes- Supervisor. Event; 
newSession: -EventTypes- Supervisor. Event; 

NewUser: -RetrieveDefs- procedure [ 

handle: Handle, user: SodyDefs.RName, password: long string); 

NextAction: --On/meO/agnost/cs- type = {nextPattern, invertPattern, quit}; 
Nextitem: -CmFile- procedure [h: Handle] 

RETURNS [name: long string, value: long string); 
nextLine: -FormSkV-- integer = -2; 
nextPlace: -FormSW- window.Place; 

NextServer: -RetrieveDefs- procedure [handle: Handle) 

RETURNS [noMore: boolean, state: ServerState, procs: AccessProcs); 
NextValue: -CmFile- procedure [h: Handle, table: stringtookUp.TableDesc] 
returns [index: cardinal); 
nil: -Zone- Base relative pointer; 
noAccess: -WSF/7e--Access; 

NoBackingFile: -TTY- error; 
noChange: -Profile- long string; 
noControlSelections: -NSFile- ControlSelections; 

Node: -MDSStorage- procedure [nwords: cardinal) returns [p: pointer); 

Node: -Storage- procedure [nwords: cardinal) returns [p: long pointer); 
NoOefaultInstance: -TTY— error; 

NodeSize: -Zone- procedure [p: long pointer) returns [n: BlockSize); 
noEthernet: -PilotSwitches- PilotDomainA = 76C; 
noEthernetOne: -P/VotSw/tcbes--PilotDomainA = 74C; 

NoExceptions: -Real- ExceptionFlags; 
noExtendedSelections: -NSFile- ExtendedSelections; 
noInterpretedSelections: -NSFile- InterpretedSelections; 
noMatch:--CmF/7e~ CARDINAL = 177777B; 
noneDeleted: -Scavenger- BootFileArray; 

NonTrappingNaN: --Rea/-- real; 

Nop: -FloppyChannel— procedure [handle: Handle] returns [status: Status); 
NopCaretProc: -Userinput- CaretProcType; 
nopCmdl: -BandBLT-CARomAi = 14; 
nopCmd2: -BandBLT- cardinal = 15; 

NopDestroyProc: -Context- DestroyProcType; 

NopEnumeratedNotifyProc: -FormSW- EnumeratedNotifyProcType; 
NopFreeHintsProc: -FormSW- FreeHintsProcType; 
NopLongNumberNotifyProc: -FormSW- LongNumberNotifyProcType; 
NopMarkerProc: -Caret- MarkProcType; 

NopNotifyProc: -FormSW NotifyProcType;' 

NopNumberNotifyProc: -FormSW- NumberNotifyProcType; 
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NopReadOnlyProc: -FormSW- ReadOnlyProcType; 

noProblems; -PhysicalVolume— ScavengerStatus; 

NopStringProc: -Userinput- StringProcType; 

noRetries: -FormatPilotDisk— RetryLimit = 0; 

NormalizeVFN: -FileName- procedure [vfn: VFN]; 

normal ReturnHeader; -ExpeditedCourier- Header; 

NoRS232CHardware; -RS232C- error; 

noSelections: -NSFile- readonly Selections; 

noStartCommunication; -PilotSwitches- Pi\otDoma\nA = 75C; 

noSuchCharacter: -Userinput- character = 377C; 

NoSuchProcedureNumber: -Courier- error; 

NoTableEntryForNet: -Router- error; 

NotAFault; -Backstop- error; 

NotAPilotOisk: -FormatPilotDisk- error; 

NoteArrayDescriptor:-Coor/er—TYPE = procedure! 

site; LONG pointer, elementSize: cardinal, upperBound: cardinal]; 

NoteBlock: --Cour/er-- type = procedure [block: Environment.Blockj; 

NoteChoice; -Courier- type = procedure [ 
site: LONG POINTER, size: cardinal, 
variant: long descriptor for array cardinal of cardinal, 
tag: long pointer <— nil]; 

NoteData; -ToolDriver- NoteDataProcType; 

Note Data ProcType: -ToolDriver- ryps = procedure [ 
tool ID: Tool ID, data: long pointer]; 

NoteDeadSpace: --Cour/er-- type = procedure! 
site: LONG pointer, size: cardinal]; 

NoteDisjointData: -Cour/er- type = procedure! 

site; LONG POINTER TO LONG POINTER, description; Description]; 

NoteLongCardinal:-Cour/er- TYPE = procedure! 
site; LONG pointer to long cardinal]; 

NoteLongInteger:-Cour/er- TYPE = procedure! 
site: LONG pointer to long integer]; 

NoteParameters; -Courier- type = procedure ! 
site: LONG pointer, description: Description]; 

NotErrorEntry; -BackstopNub— error; 

Notes;-Cour/er- TYPE = pointer to readonly NotesObject; 

Notes: -Date- type = { 

normal, noZone, zoneGuessed, noTime, timeAndZoneGuessed}; 

NoteSize: -Cour/er- type = procedure [size: cardinal] 
returns [location: long pointer]; 

NotesObject: -Cour/er- type = record! 
zone: uncounted zone, 
operation: {fetch, store, free}, 
noteSize: NoteSize, 
noteLongCardinal: NoteLongCardinal, 
noteLongInteger: NoteLongInteger, 
noteParameters: NoteParameters, 
noteChoice; NoteChoice, 
noteDeadSpace: NoteDeadSpace, 
notestring: NoteString, 
noteSpace: NoteSpace, 
noteArrayDescriptor; NoteArrayDescriptor, 
noteDisjointData; NoteDisjointData, 
noteBlock: NoteBlock]; 

NoteSpace: -Cour/er- type = procedure [site; long pointer, size: cardinal]; 

Notestring; -Cour/er- type = procedure [site; long pointer to long string]; 
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NoteSWs: -ToolDriver- NoteSWsProcType; 

NoteSWsProcType;-foo/OnVer- TYPE = procedure [ 
tool: LONG STRING, subwindows: AddressDescriptor]; 

NotFound: -DebugUsefulDefs- error [s: long string]; 

NotifyProc: --MF/7e-- type = procedure [ 

name: long string, file: Handle, clientInstanceData: long pointer] 

RETURNS [removeNotifyProc: boolean «- false]; 

NotifyProcType: -FormSW-- type = ProcType; 

NotLoggingError: -Backstop— error; 

NotOnline: -Volume- error [volume: ID]; 

NotOpen: --\/o/ume-- error [volume: ID]; 

NoTTYPortHardware: —TTYPort— error; 
notUsable: -CH-Property ID = 377777777778; 
notUsable: -CHP/Ds-CH.PropertylD = VlimiiniB', 

NSAddr: -NSAddr-typE = long pointer to NSAddrObject; 
nsAddress; --CHP/Ds--ch. Property ID = 4; 

NSAddrObject:-A/SAc/dr- TYPE = machine dependent record [ 
host(0:0..47): System. HostNumber, 
socket(3:0.. 15): System. SocketNumber, 

nets(4:0..47): long descriptor for array cardinal of System. NetworkNumber]; 
NSAddrToRhs: --A/SAddr- procedure [nsAddr: NSAddr] returns [rhs: CH. Buffer]; 
nsProtocol : -RS232CCorrespondents- 
RS232CEnvrronment.AutoReCOgnitionOutCOme; 
nsSystemElement: -RS232CCorrespondents- RS232CEnvironment.Correspondent; 
nsSystemElementBSC: -RS232CCorrespondents~ 
RS232CEnvirQnment.Correspondent; 

NUL: --Asc//-- CHARACTER = OC; 
null: -DeviceTypes- Device.Type; 
nullAttributeList: -NSFile- AttributeList; 

nullBadPage: --P/iys/ca/l/o/ume--PageNumber = 37777777777B; 

nullBlock: -Environment- Block; 

nullBootFilePointer: -Floppy- BootFilePointer; 

nullBox: -ToolWindow— Box; 

nullBox: -Window- Box; 

nullChannelHandle: -TTYPort- ChannelHandle; 

nullChecksum:--Cbecksum-- CARDINAL = 177777B; 

nullCredentials: -Authenticator- Credentials; 

nullCredentials: -NSName- Credentials; 

nullDeviceIndex: -PhysicalVolume— cardinal = 177777B; 

nullDrive:--f/oppyCbanne/-Drive = 177777B; 

nul I Enumerated Val ue:--FormSW-- UNSPECIFIED = 177777B; 

nullExchangeHandle: --Pac/cet£xcbange-- readonly ExchangeHandle; 

nullFile: -File— File; 

nullFilelD: -Floppy- FilelD; 

null Filter: -NSFile- Filter; 

nullFrame: -Backstop- readonly Frame; 

nullGlobalFrame: -PrincOps- GlobalFrameHandle; 

NullGlobalFrame: --Pr;ncOpS”GlobalFrameHandle; 
nullHandle: -NSFile- Handle; 
nullHandle: -TTY- Handle; 
nullHandle: -Zone- Handle; 

nullHashedPassword: -A/SA/ame--Hashed Password = 0; 

nulllD: -F/7e-ID; 

nulllD: -NSFile-\D-, 

nullID:-A/SSegment-ID = \milB-, 

nulllD: —PhysicalVolume— ID; 
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nulllD; -Volume— ID; 

nulllDRepresentation; -NSFile- array [0..4] of unspecified; 

nul I Index:--F/oppy-- CARDINAL = 177777B; 

nullindex; -FormSW- cardinal = 177777B; 

nullindex: --/.og-Index = 0; 

nullinterval: --Space—Interval; 

null Items: -FormSW— Item Descriptor; 

nullLineNumber:-RS232C- CARDINAL = 177777B; 

nullLineNumber;-/?S222Cfnv/ronment- CARDINAL = 177777B; 

nullLink: -PrincOps- ControlLink; 

Null Link: -PrincOps— ControlLink; 

NullLocalFrame: -PrincOps- LocalFrameHandle; 
nullLocalFrame: -PrincOps- LocalFrameHandle; 
nullOldFilelD: -VolumeConversion- OldFilelD; 
nullOrdering: -NSFile— extended Ordering; 
null Parameters: -Courier- Parameters; 
nullPeriodicNotify: -Userinput- PeriodicNotifyHandle; 
nullProcess: -Backstop- readonly Process; 
nullProgram: -Runtime- program; 

NullProgram: -Runtime- program; 
nullSegment: -Zone— SegmentHandle; 
nullSession: -NSFile-Session; 
nullSession: -NSSegment- Session; 
nullstring: -WSF/Ve-String; 
nullstring: -NSString- String; 

nullSubtreeSizeLimit: -WSF/7e- long cardinal = 37777777777B; 
nullSubVolume: -OthelloOps- SubVolume; 
nullSystemElement: -NSFile- SystemElement; 

nullSystemElementRepresentation: -A/SF/7e- array [0..5] of unspecified; 

nullTime: -NSFile— Time; 

nullType: -Device- Type; 

nullVerifier: -NSName— Verifier; 

null Volume: -A/SF//e—Volume; 

nullVolumeHandle: -Floppy- readonly VolumeHandle; 

Number: -Dialup- type. = record [ 

number: packed sequence n: cardinal of Environment. Byte]; 

Number: -Format- procedure [ 

proc: StringProc, n: unspecified, format: NumberFormat, 
clientData: long pointer nil]; 

Number: -Put- procedure [ 

h: Window. Handler— NIL, n: unspecified, format: Format.NumberFormat]; 
Number: -Selection- procedure [radix: cardinal <- 10] returns [cardinal]; 
NumberFormat: -Format- type = record [ 
base: [2..36]<-12, 
zerofill: boolean <- false, 
unsigned: boolean «- true, 
columns: [0..255] «-0]; 

NumberFormat:-TTY- TYPE = Format.NumberFormat; 

NumberHandle:-FormSW- TYPE = long pointer to number ItemObject; 
Numberltem: -FormSW- procedure [ 

tag: long string <-nil, readonly: boolean <-false, invisible: boolean <- 

drawBox: boolean <— false, hasContext: boolean «- false, 

place: window. Place «-nextPlace, signed: boolean <— true, 

notNegative: boolean «- false, radix: Radix <- decimal, 

boxWldth: CARDINAL [0..127] <—64, 

proc: NumberNotifyProcType<- NopNumberNotifyProc, 


FALSE, 
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default; unspecified <-777778, value: long pointer, bias: integer <-0, 
z: UNCOUNTED ZONE <- nil] RETURNS [NumberHandle]; 
NumberNotifyProcType: -FormSlV-- type = procedure! 

sw: Window. Handle «—NIL, item: ItemHandle «-nil, index: cardinal«- 
nullindex, 

oldValue: unspecified <- 777778]; 
numberOfChildren:-A/S>4ss/gnedrypes-AttributeType = 10; 
NumberOfSegments: -NSSegment- procedure [ 

file: NSFiie. Handle, session: Session <— nullSession] returns [cardinal]; 
NumberType; -Real- type = machine DEPENDENT{normal, zero, infinity, nan}; 
NWords: -Heap- type = [0..777758]; 

Object: -Courier- type = record [ 
remote: System Element, 
programNumber; long cardinal, 
versionNumber: cardinal, 
zone; uncounted zone, 
sH: Stream. Handle, 

cl assOfServi ce ; NetworicStream. ClassOfServi ce] ; 

Object; -Cursor- type = record [info: Info, array: userTermmai.CursorArray]; 
Object; -DebugilsefulDefs- type; 

Object: -Event— type; 

Object: -Exec- type; 

Object: -MailParse- type; 

Object: -Menu- type = record [ 
permanent; boolean, 
ninstances: cardinal [0..777778], 
name; long string, 
items: Items]; 

Object: -MFile- type; 

Object; -MLoader- type; 

Object: -MSegment- type; 

Object: -Window- type [19]; 

Object; -WindowFont- type = record [ 
height: [0..77778] «-null, 
kerned: boolean <- false, 

width; PACKED ARRAY CHARACTER [0C..377C] OF [0..255] «-ALL[0], 

raster: cardinal <- null, 

maxWidth: cardinal «—null, 

min: character <- null, 

max; character <- null, 

address: long pointer, 

bitmap: long pointer to array [0..0) of word *- null, 
xInSegment: long pointer to array character [0C..0C) of cardinal <- null]; 
ObscuredBySibling: -W/ndow- procedure [Handle] returns [boolean]; 

Octal: -Format- procedure [ 

proc: StringProc, n: unspecified, clientData: long pointer <- nil]; 

Octal; -Put- procedure [h: window.Handle <-nil, n: unspecified]; 

Octal Format: -Format- NumberFormat; 

Offline: -Lsepface- procedure; 
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Offline; --P/jys/ca/l/o/ume- procedure [pvID: ID]; 

OldControllerRecord: -CHLoo/cup-- type = machine dependent record [ 
controllerAddress(0:0.. 15): cardinal, 
portsOnController(1 ;0..15): cardinal, 
iinkType(2:0..15): ControllerLinkType, 
path(3;0..63); NSStnng. String]; 

oldestTime; -BodyDefs- Timestamp; 

OldFilelD; -Vo/umeConversion- type = System. UniversallD; 

OldlBI\/l3270Host;-CHLookup- TYPE = machine dependent record [ 
description(0:0..63): NSStnng.Stri ng, 
controllers(4:0..47); long descriptor for array cardinal of 
OldControllerRecord]; 

OldlBM3270HostDescribe: -CHLookup- Couner.Description; 

OidlBM3270HostPt:-CHtookup- TYPE = long pointer to OldlBM3270Host; 

oneHour: -Authenticator-Seconds = 7020B; 

Online: -LsepFace- procedure; 

onlyEnumerateCurrentType: -Volume— TypeSet; 

OnOff: -ToolWindow- type = {on, off}; 

Open; -CmF//e- procedure [fileName; long string] returns [h: Handle]; 

Open; -Floppy- procedure [drive: cardinal <-0] returns [volume: VolumeHandle]; 

Open; -Log- procedure [file: Fiie.File, firstPageNumber: Fiie.PageNumber«— 1]; 

Open: -WSf//e- procedure [ 

attributes: Attribute List, directory: Handler—nullHandle, 
controls; Controls «- [], session: Session <- nullSession] 
returns [file: Handle]; 

Open: -A/Sl/o/umeContro/- procedure [volume: volume. ID]; 

Open: -Volume- procedure [volume: ID]; 

OpenByName: -NSFile- procedure [ 

directory: Handle, path; String, controls: Controls «- [], 
session; Session <— nullSession] returns [Handle]; 

OpenByReference; -NSFile- procedure [ 

reference: Reference, controls: Controls *- [], session: Session nullSession] 
RETURNS [file; Handle]; 

OpenChild: -NSFile- procedure [ 

directory: Handle, id: ID,controls: Controls^]], 
session; Session <- nullSession] returns [Handle]; 

OpenSink: -NSDataStream- procedure [ticket: Ticket, cH: Courier.Handle] 
returns [SinkStream]; 

OpenSource: -A/SDataStream- procedure [ticket; Ticket, cH: Courier.Handle] 
returns [SourceStream]; 

OperateOnSink: -NSDataStream- procedure [ 
sink: Sink, operation; procedure [SinkStream]]; 

OperateOnSource: -NSDataStream- procedure [ 

source: Source, operation: procedure [SourceStream]]; 

Operation;-CHLookup- TYPE = {get, put, free); 

OperationClass: -RS232C-TYPE = {input, output, other, all}; 

OperationType: -ProtocolCertification-jypB = {request, reply, reject, end}; 

Options: -F//eSW- type = Textsw.Options; 

Options: -FormSW- type = record [ 
type: Type <-fixed, 
boldTags: boolean «-true, 
autoScroll: boolean true, 
scroll Vertical: boolean true]; 

Options:-/WLoacfer- TYPE = record [codeLinks: boolean]; 

Options; -SeratchSW- type = Textsw.Options; 

OpTrapTable; -Pr/ncOps- type = pointer to array BYTE of Control Link; 
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ordering;-WS/4ss/gnedrypes--AttributeType =11; 

Ordering:-A/SF//e- TYPE = machine dependent record [ 
var(0:0..79): select type(0:0.. 15): OrderingType from 
key = > [ 

key( 1:0.. 15); Attri buteType, 
ascending(3;0..15): boolean <- true, 
dummy1(2:0..15); cardinal «—0, 
dummy2(4:0..15): cardinal «— 0], 
extended = > [ 

key(1:0..31): Extended Attri buteType, 
ascending(3:0.. 15): boolean «- true, 
interpretation(4:0..15); Interpretation «-none], 
endcase]; 

OrderingType:--A/SF//e-- TYPE = machine DEPENDENT{key, extended}; 
organization: -EventTypes- Supervisor. Event; 

Organization: -NSName-TYP£ = String «-NSString.nullString; 

OrgName: -CH--type = NSName.Organization; 

Origin;--/VSSegment-- TYPE = record [ 
file; NSFiie.Handle, 
base: PageNumber, 
count: PageCount, 
segment: ID <-defaultlDj; 

Original: -DebugUsefulDefs - procedure [new; GFHandle] returns [old; GFHandlej; 
OrphanHandle: -Scavenger- type [2); 

OtherCHProblem: -AddressTrans/at/on- error [reason: Reason]; 

OtherEvents: --fventrypes-TYPE = [700..799]; 

Outcome: -Dialup- type = { 

success, failure, aborted, formatError, transmissionError, dataLineOccupied, 
dialerNotPresent, dialingTimeout, transferTimeout); 

Outcome: -Exec- type = machine dependent{ 

normal, warning, error, abort, spare 1, spare2, spare3, last(177777B)}; 
OutOfInstances: -TTY- error; 

OutputProc: --Exec-- procedure [h: Handle] returns [proc: Format.StringProc]; 
outsideXeroxFirstSocket: -NSConstants- System. SocketNumber; 
outsideXeroxLastSocket; -NSConstants- System. SocketNumber; 

Overflow: -Log- type = machine DEPENDENT{reset, disable, wrap); 

OverLapOption: -SyteS/t-TYPE = {ripple, move}; . 
owner: -WSAss/gnedrypes- Attri buteType = 10377B; 

Ownerchecking: -Heap- procedure [z; uncounted zone] returns [boolean]; 
OwnerCheckingMDS: -Heap- procedure [z; MDSZone] returns [boolean]; 

Packed:-Date- TYPE = Time. Packed; 

PackedTime: -SodyOefs - type = long cardinal; 

PackedToString; -Date- procedure [Packed] returns [long string]; 

PackFilename; -FileName- procedure [ 

vfn: VFN,h; boolean false, d; boolean <- false, n: boolean «- false, 
v: BOOLEAN «- false] RETURNS [s: LONG STRING]; 

PageCount;-£nv/ronment- TYPE = long cardinal; 

PageCount: -File- type = long cardinal; 

PageCount;-f/oppy- TYPE = PageNumber; 

PageCount; -NSSegment- type = long cardinal; 

PageCount:-Phys/ca/l/o/ume- TYPE = long cardinal; 

PageCount: -Space- type = Environment.PageCount; 

PageCount;-Vo/ume— TYPE = long cardinal; 

PageFromLongPointer: -Environment- procedure [pointer: long pointer] 

RETURNS [PageNumber]; 
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PageFromLongPointer: -Space- procedure [pointer: long pointer] 

RETURNS [Environment.PageNumberj; 

PageNumber:--Sands/. r--TYPE = cardinal; 

PageNumber: —Environment- type = long cardinal; 

PageNumber: -File- type = long cardinal; 

PageNumber: -Floppy- type = long cardinal; 

PageNumber: -NSSegment- type = long cardinal; 

PageNumber: -PageScavenger- type = long cardinal; 

PageNumber: -PhysicalVolume-- type = long cardinal; 

PageNumber: -Space- type = Environment.PageNumber; 

PageNumber; -Volume- typs = long cardinal; 

PageOffset: -Environment- type = PageNumber; 

PageOffset;-Space— TYPE = Environment. PageOffset; 

Pages: -A/fOSStorage- procedure [npages: cardinal] returns [base: pointer]; 

Pages; -MSegment- procedure [segment: Handle] returns [Environment.PageCount]; 

Pages; -Storage- procedure [npages: cardinal] returns [base; long pointer]; 

PagesForlmage: -Floppy- procedure [floppyDrive: cardinal <-0] 

RETURNS [File.PageCount]; 

PagesForWords: -/WOSS/orage- procedure [nWords: cardinal] returns [cardinal]; 

PagesForWords; -MSegment- procedure [nWords: cardinal] returns [cardinal]; 

PagesForWords; -Storage- procedure [nWords: cardinal] returns [cardinal]; 

PagesFromWords; -Space— procedure [wordCount: long cardinal] 

RETURNS [pageCount; Environment.PageCount]; 

PagesToPrint: -NSPrint -typs = machine dependent record [ 

beginningPageNumber(0:0..15): cardinal, endingPageNumber(1:0..15): 
cardinal]; 

paintFlags: -Display- BitBItFlags; 

paintGrayFlags; -Display- BitBItFlags; 

PairToReal: -Real- procedure [fr; long integer, expIO: integer] 

RETURNS [real]; 

Paper: -NSPrint- type = machine dependent record [ 
var(0:0..47): SELECT type(0:0.. 15): PaperType from 
unknown = > null, 

knownSize = > [knownSize(1:0..15): PaperSize], 
otherSize = > [otherSize(1:0..31); PaperDimensions], 
endcase]; 

PaperDimensions: -A/SPr/nt— type = machine dependent record [ 
length(0:0.. 15); cardinal, width(1:0.. 15): cardinal]; 

Paperindex: -NSPrint- type = cardinal [0..2]; 

PaperSize:-/V/SPr/nt- TYPE = machine dependent{ 

dontUse, usLetter, usLegal, aO, a1, a2, a3, a4, aS, a6, a7, a8, a9, isoBO, 
isoBI, isoB2, isoB3, isoB4, isoBS, isoB6, isoB7, isoBB, isoB9, isoBIO, jisBO, 
jisBI, jisB2, jisB3, jisB4, jisBS, jisB6, jisB7, jisBB, jisB9, jisBIO}; 

PaperSource: -LsepFace- type = machine DEPENDENT{auto, manual}; 

PaperSource: -RavenFace- type = machine DEPENDENT{bottom, top}; 

PaperStacking: -RavenFace- type = machine DEPENDENT{aligned, offset}; 

PaperType; -NSPrint- type = machine DEPENDENT{unknown, knownSize, otherSize}; 

Parameter: -RS232C- type = record [ 
select type; ParameterType from 
charLength = > [charLength: CharLength], 
correspondent = > [correspondent; Correspondent], 
dataTerminalReady = > [dataTerminalReady: boolean], 
echoing = > [echoing: boolean], 
flowControl = > [flowControl' FlowControl], 
frameTimeout = > [frameTimeout: cardinal], 
latchBitClear = > [latchBitClearMask: LatchBitClearMask], 
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lineSpeed = > [lineSpeed: LineSpeed], 

parity = > [parity: Parity], 

requestToSend = > [requestToSend: boolean], 

stopBits = > [stopBits: StopBits], 

syncChar = > [syncChar: SyncChar], 

syncCount = > [syncCount; SyncCount], 

endcase]; 

Parameter: -TTYPort- type = record [ 

SELECT parameter: * from 

breakDetectedClear = > [breakDetectedClear: boolean], 
characterLength = > [characterLength: CharacterLength], 
clearToSend = > [clearToSend; boolean], 
dataSetReady = > [dataSetReady: boolean], 
lineSpeed = > [lineSpeed: LineSpeed], 
parity = > [parity: Parity], 
stopBits = > [stopBits: StopBits], 
endcase]; 

ParameterGrouping: type = machine DEPENDENT{first(1), second, (177777B)}; 

Parameters: -Courier-- type = record [ 

location: long pointer, description: Description]; 

ParameterType: -RS232C- type = { 

charLength, correspondent, dataTerminalReady, echoing, flowControl, 
frameTimeout, latchBitClear, lineSpeed, parity, requestToSend, stopBits, 
syncChar, syncCount}; 

parentID:--/VSAss/gnec/Types--AttributeType = 12; 

Parity:--RS252C--TYPE = RS232CEnvironment.Parity; 

Parity: -RS232CEn\/ironment- type = {none, odd, even, one, zero); 

Parity: —TTYPort- type = TTYPortEnvironment Parity; 

Parity: -TTYPortEnvironment- type = (none, odd, even}; 

Password:--SodyOefs-- TYPE = array [0..3]ofcardinal; 
password:-CHP/Os-CH. Property ID = 6; 

PasswordStringToKey: -Authenticator- procedure [ 

flavor: Flavor <-superWeak, password: NSStnng.String] 
returns [passwordKey: Key]; 
pathname: --WSAss/gnedrypes-AttributeType = 21; 

Pattern: -CH-- type = long pointer to NamePattern; 

PatternType: -CommOnlineDiagnostics— type = machine dependent{ 
zero, ones, oneZeroes, constant, byteincr}; 
pause:--D/a/up--Environment.Byte = 255; 

Pause: -LsepFace- procedure; 

Pause: -Process- procedure [ticks: Ticks]; 
pauseStage: -ProtocolCertification- Stage; 

PC: -BackstopNub- type [1]; 

pcClientType: -ProtocolCertification- PacketExchange. ExchangedientType = 
protocol Certi f i cati on; 

pcControlSocket: -Protoco/Cert/f/cat/on-Systenn.SocketNumber; 
pcControlType: -ProtocolCertification- NSTypes.PacketType = pccPacket; 
pcOffset: -PrincOps- cardinal = 1; 

pcRoutingSocket: -ProtocolCertification- System. SocketNumber; 
pcTestSocket: -ProtocolCertification- System. SocketNumber; 

Percent:-A/S\/o/umeContro/-TYPE = [0..100]; 

Percent:--5cro//bar- TYPE = [0..100]; 

PerformanceToolFileType: -F/ZeTypes— type = cardinal [22200B..22277B]; 
PerformanceToolFileType: -PerformanceToolFileTypes— type - 
FileTypes. PerformanceT ool Fi leT ype; 

PeriodicNotifyHandle: -Userinput- type [1]; 
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PeriodicProcType:--C/ser/nput-- TYPE = procedure [ 
window: window.Handle, place: wmdow.Place]; 

pexReplier: -ProtocolCertification- Stage; 

pexReplierThruput: -ProtocolCertification- Stage; 

pexRequestor: -ProtocolCertification- Stage; 

pexRequestorThruput: -ProtocolCertification- Stage; 

PhysicalMedium: --Router-- type = {ethernet, ethernetOne, phonenet, ciusternet}; 

Physical Record: -RS232C- type = RS232CEnvironment.PhysicalRecord; 

Physical Record:-RS222C£nwronment- TYPE = record [ 
header: Environment. Block, 
body: Environment. Block, 
trailer: Environment.Block]; 

PhysicalRecordHandle: -/?S222C-type = RS232CEnvironment.PhysicalRecordHandle; 

PhysicalRecordHandle: -RS232CEnvironment- typs = pointer to Physical Record; 

PilotDisk:-Dev/ce- type = cardinal (64.. 1023]; 

PilotDomainA: -P/ZotSw/tches— type = SwitchIMame [OC.IOOCj; 

PilotDomainB:-Py/otSw/tches- TYPE = SwitchIMame [133C.140C]; 

PilotDomainC: -P/ZotSw/tches— type = SwitchIMame [173C..377C]; 

PilotFileType:-P/Ze7ypes— TYPE = cardinal [0..255); 

PilotKernelUsage:-SpaceC/sage- type = Space .Usage[0..63); 

pixelsPerInch: -UserTerminal— readonly cardinal; 

place: -Profile- readonly Place; 

Place: -Profile- type = machine dependent{ 
unknown, tajo, copilot, last(177777B)}; 

Place:-WZncZow- TYPE = UserTerminal. Coordinate; 

PleaseReleaseProc:-/WP/Ze- TYPE = procedure ( 

file: Handle, instanceData: long pointer] returns [ReleaseChoice]; 

PleaseReleaseProc:-MSegment- TYPE = procedure! 

segment: Handle, instanceData: long pointer] returns [MFiie.ReleaseChoice]; 

PleaseReleaseProc: -MStream- tvpb = procedure [ 

stream: Handle, instanceData: long pointer] returns [MFiie.ReleaseChoice]; 

Plusinfinity: -Real— real; 

PlusZero: -Real- real; 

Point: -Display- PROCEOURS [window: Handle, point: window.Place]; 

Pointer: -Space- procedure [pointer: long pointer] returns [pointer]; 

PointerFault: -Runtime- signal; 

PointerFromPage: -Space— procedure [page: Environment.PageNurnber] 

RETURNS [pointer]; 

PopAlternateInputStreams: -TTY- procedure [h: Handle, howMany: cardinal <- 1]; 

PopAlternateInputStreams: -TTYSW- procedure [ 
sw: Window.Handle, howMany: cardinals- 1]; 

Port: -GSort- type = machine dependent record [ 
in(0:0..31): long unspecified, 
out(2:0..31): procedure [ 

GetProcType, PutProcType, CompareProcType, cardinal, cardinal, cardinal]]; 

Port: -PrincOps- type = machine dependent record [ 

SELECT overlaid * FROM 
representation = > [ 

in(0:0..31): long unspecified, out(2:0..31): long unspecified], 
links = > [ 

frame(0:0..15): LocalFrameHandle, 
fill(1:0..15): word, 
dest(2:0..31): ControlLink], 
endcase]; 

PortClientType:-CZdLooZcup-TYPE = machine dependent{ 

unassigned, outOfService, its, irs, gws, ibm3270Host, ttyEmulation}; 
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PortDialerType: -CHLookup- type = machine dependent{ 
none, vadic, hayes, ventel}; 

PortEchoingLocation: -CHtookup- type = machine depend£nt{ 
application, ciu, terminal}; 

PortFault: -Runtime- error; 

PortHandle: -PrincOps- type = pointer to Port; 

PortRange:--CHLoo/cup-- type = cardinal [0..7]; 

PortSyncType: -CHLookup- type = machine dependent{ 

asynchronous, synchronous, bitSynchronous, byteSynchronous, any}; 

Position: -FileWindow- procedure [sw: Window.Handle, position: long cardinal]; 

position:--/VSy4ss/gnedrypes--AttributeType = 13; 

Position: -NSFile- type = Words; 

Position:-Stream- TYPE = long cardinal; 

Post: -MsgSW- procedure [ 

sw: Window.Handle, string: long string, severity: Severity info, 
prefix: boolean true, endOfMsg: boolean <- true); 

PostAndLog: -/WsgSW- procedure [ 

sw: Window.Handle, string: long string, severity: Severity «- info, 

prefix: boolean «- true, endOfMsg: boolean <— true, logSW: Window.Handle <— 

nil]; 

Power: -RealFns- procedure [base: real, exponent: real] returns [real]; 

powerOff: -Event- readonly Supervisor.SubsystemHandle; 

powerOff: -EventTypes- Supervisor. Event; 

PrefixHandle: -PrincOps- type = long base pointer to CodeSegment; 

PrefixHeader: -PrincOps- type = machine dependent record [ 
globalFsi(0:0..7): BYTE, 
nlinks(0:8..15): [0..255], 
stops(1:0..0): boolean, 
available(1:1..15): nat, 
mainBodyPC(2:0..15): BytePC, 
catchCode(3:0..15): BytePC]; 

PrependCommands: -Exec- procedure [h: Handle, command: long string]; 

primaryCredentials: -Event- readonly Supervisor.SubsystemHandle; 

primaryCredentials: -EventTypes- Supervisor. Event; 

Print: -NSPrint- procedure [ 

master: NSDataStream. Source, printAttributes: PrintAttributes, 
printOptions: PrintOptions, systemElement: SystemElement] 

RETURNS [printRequestlD: RequestID]; 

PrintAttribute:-A/SPnnt- TYPE = machine dependent record [ 
var(0:0..79): select type{0;0..15): PrintAttributeType from 

printObjectName = > [printObjectName(1:0..63): String e-[ nil, 0,0]], 
printObjectCreateDate = > [printObjectCreateDate(1:0..31): Time<-0], 
senderName = > [senderName{1:0..63): String [nil, 0,0]], 
endcase]; 

PrintAttributes: -NSPrint- type = long descriptor for array cardinal of 
PrintAttribute; 

PrintAttributesIndex: -WSPr/nt-TYPE = cardinal [0..2]; 

PrintAttributeType: -NSPrint- type = machine dependent{ 
printObjectName, printObjectCreateDate, senderName}; 

PrintCHReturnCode: -AddressTransiation- procedure [ 
rc: CH.ReturnCode, proc: Format.StringProc]; 

Printer: -DebugUsefulDefs- type = procedure [Handle] returns [boolean]; 

Printer: -NSPrint- type = machine dependent{ 

available, busy, disabled, needsAttention, needsKeyOperator}; 

PrinterProperties: -NSPrint- type = long descriptor for array cardinal of 
PrinterProperty; 
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PrinterPropertiesIndex: -WSPr/nt- type = cardinal [0..2]; 

PrinterProperty: --/VSPr/nf--TYPE = machine dependent record [ 
var(0;0..63): select type(0:0.. 15): PrinterPropertyType from 
media = > [media(1:0..47): Media], 
staple = > [staple(1:0..15): boolean], 
twoSided = > itwoSided(1:0..15): boolean], 
endcase]; 

PrinterPropertyType;-WSPr/nt-TYPE = machine dependent{ 
media, staple, twoSided}; 

PrinterStatus:--i.sepPace--TYPE = machine dependent{ 

noStatus, oneMegaHz(16), halfMegaHz, (32), (33), (34), (35), (36), (37), (38), 

(39), (40), (41), (42), (43), (44), (45), (46), (47), (48), (49), (50), (51), 

(52), (53), (54), (55), (56), (57), (58), (59), (60), (61), keyPause, 
keyHomeFeed, warming, standBy, feederFault, noInkDonor, registrationJam, 

(69), 

(70), (71), interlockOpen, (73), feeding, readyToFeed, (76), parityError, 
illegalCharacter, illegalSequence, (80), noPaper, pageSync, pageTailSync, 

(84), goingOffLine, offline, online, (88), feedingOut, (90), pause(95), (96), 
paperA4, paperB4, paperBS, paperUnknown(103), (104), (124), statusError(126), 
statusOverRun}; 

PrinterStatus: --WSPr/nt-- type = long descriptor for array cardinal of 
Pri nterStatusCom ponent; 

PrinterStatus;--PavenFace--TYPE = machine dependent{ 

noStatus, key0(48), keyl, key2, key3, key4, keyS, key6, key7, key8, key9, 
keyClear, keyTest, keyOnline, keyOffline, (62), (63), warming, standBy, 
feederFault, registrationJam(68), fuserjam, noExit, interlockOpen(72), 
fuserCold, feeding, readyToFeed, displayAcknowledge, parityError, 
illegalCharacter, illegalSequence, (80), noPaper, pageSync, pageAtOutputTray, 
tonerlow, goingOffline, offline, online, outputTrayFull, aboutToDozeOff, 

(124), statusError(126), statusOverRun}; 

PrinterStatusComponent; --A/SPr/nt- type = machine dependent record [ 
var(0:0..63): select type(0:0.. 15): PrinterStatusType from 
spooler = > [spooler(1:0..15); Spooler], 
formatter = > [formatter(1 ;0..15): Formatter], 
printer = > [printer(1 ;0..15): Printer], 
media = > [media(1:0..47): Media], 
endcase]; 

PrinterStatusIndex:-/VSPr/nt--TYPE = cardinal [0..3]; 

Pri nterStatusType:--WSPr/nt-TYPE = machine dependent{ 
spooler, formatter, printer, media}; 

Printlexicon: --lexyconDeft- procedure [tty. Handle]; 

PrintOption: --WSPr/nt-- type = machine dependent record [ 
var(0:0..79): select type(0:0.. 15): PrintOptionType from 

printObjectSize = > [printObjectSize(1:0..31): long cardinal 0], 
recipientName = > [recipientName(1:0..63); String <— [nil, 0, 0]], 
message = > [message(1:0..63): String <— [nil, 0, 0]], 
copyCount = > [copyCount(1:0..15); cardinals- 1], 

pagesToPrint = > [pagesToPrint(1:0..31): PagesToPrint[1, last[cardinal]]], 
mediumHint = > [ 

mediumHint(1:0..63):'Medium «-[paper[[knownSize[usletter]]]]], 
priorityHint = > [priorityHint(1:0..15): PriorityHint«-normal], 
releaseKey = > [releaseKey(1 ;0..15): cardinals- 177777B], 
staple = > [stapled :0.. 15): boolean <- false], 
twoSided = > [twoSided(1:0..15): boolean e- false], 
endcase]; 
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PrintOptions: --A/SPr/nt --type = long descriptor for array cardinal of 
P rintOption; 

PrintOptionsIndex:-WSPr/nt-TYPE = cardinal [0..9]; 

PrintOptionType:-A/SPf/nt--TYPE = machine dependent{ 

printObjectSize, recipientName, message, copyCount, pagesToPrint, 
mediumHint, 

priorityHint, releaseKey, staple, twoSided}; 

Printserver; --CHioolcup --type = machine dependent record [ 

address(0:0..95): System. Network Address, location(6;0..63): NSStnng. String]; 

Pri ntserverDescri be: -CHLookup- Courier. Description; 

PrintserverPt:-CHtookup-TYPE = long POiNTERToPrintserver; 

Priority;-Process--TYPE = [0..7]; 

priorityBackground: -Process- readonly Priority; 

priorityForeground: -Process- readonly Priority; 

PriorityHint: -A/SPr/nt -type = machine dependent{Iow, normal, high}; 

priorityNormal: -Process- readonly Priority; 

Probe: -A/Sf/7e -procedure [session: Session] returns [probeWithin: cardinal]; 

Problem:-A/SVo/umeContro/~ TYPE = machine dependent record [ 
trouble(0:0..127): select problemType(0;0.. 15): ProblemType from 
changedToDirectory = > null, 
duplicatePage = > null, 
fileDeleted = > null, 
leaderExtensionDeleted = > null, 
leaderExtensionMissing = > null, 
leaderExtensionReinserted = > null, 
leaderExtensionWrongType = > null, 
leaderExtensionZeroLength = > null, 
newRootCreated = > null, 
orphanDirectoryCreated = > null, 
orphanPage = > null, 
variableAttributesBad = > null, 
zeroLength = > null, 
duplicateSegmentID = > [ 

old(1:0..15): NSSegment.lD, changedTo(2:0.. 15): NSSegment.lD], 
illegalSegmentID = > [ 

Old(1:0.. 1 5): NSSegment.lD, changedTo(2;0.. 15): NSSegment.lD], 
illegalAttributeValue = > [old(1:0..111): NSFile.Attribute], 
illegalAttributeValueForNonDirectory = > [old(1 ;0..111): NSFiie. Attribute], 
invalidAttributeValue = > [type{1:0..15); NSFiie.AttributeType], 
stringTooLong = > [type(1:0..15); NSFiie.AttributeType], 
loopInHierarchy = > [oldParent(1:0..79); NSFile.lD], 
orphanFile = > [oldParent(1:0..79): NSFiie.lD], 
missingPages = > [ 

first(1 ;0..31): Fiie.PageNumber, count(3;0..31): Fiie.PageCount], 
unreadablePages = > [ 

first(1:0..31): Fiie.PageNumber, count(3:0..31): Fiie.PageCount], 
orphanLeaderExtension = > [id(1 ;0..79); NSFiie.lD], 

orphanSegment = > [id(1:0..79): NSFiie.lD, segment(6;0.. 15): NSSegment.lD], 
segmentDeleted = > [segment(1:0..15); NSSegment.lD], 
segmentMissing = > [segment(1:0..15): NSSegment.lD], 
segmentReinserted = > [segment(1:0..15): NSSegment.lD], 
segmentWrongType = > [segment(1:0..15): NSSegment.lD], 
segmentZeroLength = > [segment(1 ;0..15): NSSegment.lD], 
tooManySegments = > [oldCount(1:0..15); cardinal], 
wrongNumberOfChildren = > [ 

old(1 ;0.. 15): cardinal, changedTo(2:0.. 15): cardinal]. 
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wrongSegmentID = > [ 

inEntry(1 ;0..15); NSSegmentJD, inFile(2;0..15): NSSegment.lD], 
wrongSizeInBytes = > [ 

old(1:0..31): long cardinal, changeciTo(3:0..31); long cardinal], 
wrongSizeInPages = > [ 

old(1 ;0..31): long cardinal, changedTo(3:0..31): long cardinal], 
endcase]; 

Problem: -Scavenger- type = machine dependent record [ 
trouble(0:0..79): select entryType(0:0.. 15): EntryType from 
unreadable = > [ 

first(1:0 .31): File.PageNumber, count(3:0..31): File.PageCount], 
missing = > [ 

first(1:0..31): File.PageNumber, count(3:0..31): File.PageCount], 
duplicate = > [id(1:0..31): OrphanHandle], 
orphan = > [id(1:0..31): OrphanHandle], 
endcase]; 

ProbIemArray:--A/S1/o/umeContfo/-- type = array [0..0) of Problem; 

ProblemPointer; -NSVolumeControl-jyp^ = long pointer to Problem; 

ProblemType:--WS\/o/umeContro/--TYPE = machine dependent{ 

changedToDirectory, duplicatePage, duplicateSegmentID, fileDeleted, 
illegalAttributeValue, illegalAttributeValueForNonDirectory, illegalSegmentID, 
invalidAttributeValue, leaderExtensionDeleted, leaderExtensionMissing, 
leaderExtensionReinserted, leaderExtensionWrongType, 
leaderExtensionZeroLength, loopInHierarchy, missingPages, orphanFile, 
orphanLeaderExtension, orphanPage, orphanSegment, segmentDeieted, 
segmentMissing, segmentReinserted, segmentWrongType, segmentZeroLength, 
stringTooLong, tooManySegments, unreadablePages, variableAttributesBad, 
wrongNumberOfChildren, wrongSegmentID, wrongSizeInBytes, 
wrongSizeInPages, 

zeroLength, newRootCreated, orphanDirectoryCreated, (256)}; 

ProcDesc: --PnncOps- type = procedure ControlLink; 

Proceed: -Backstop- procedure [boot: voiume.lD]; 

Process: --Backstop-- type [1]; 

ProcessCommandLine: -fxec- procedure [ 

cmd: LONG string, write: Format.StringProc, checkAbort: CheckAbortProc] 
returns [outcome: Outcome]; 

ProcessProc: “A/fa/7Parse-TYPE = procedure] 

h: Handle, local: long string, registry: long string, domain: long string, 
info: Nameinfo] returns [write: boolean true]; 

ProcType: -FormSW- type = procedure [ 

sw: Window. Handle «- nil, item: ItemHandle «- nil, index: cardinal <- nullindex]; 

ProductDomain:-P//otSw/tcheS“TYPE = SwitchName [141C.. 172C]; 

PropagationDate: -MF//eProperty-MFiie.Property; 

Properties: -CH- type = long descriptor for array cardinal of PropertylD; 

PropertiesAllocator: -CH-type = procedure [count: cardinal] 

RETURNS [Properties]; 

Property: -MFile- type = record [property: cardinal]; 

PropertyArray: -LibrarianUtility-xyPE = long descriptor for array cardinal of 
PropertyDescription; 

PropertyDescription:-L/brar/anC/t/7/ty— TYPE = record] 

pn: Librarian. PropertyNumber, tag: long string, use: boolean]; 

Property Error: -MFile- error [code: PropertyErrorCode]; 

PropertyErrorCode: -MFile- type = { 

noSuchProperty, noRoomInPropertyList, insufficientSpaceForProperty, 
wrongSize); 

PropertylD: -CH-type = long cardinal; 
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PropertylD:--CHP/Os- TYPE = CH.PropertylD; 

protocolCertificationControl: -NSConstants- System. SocketNumber; 
protocolCertificationTest: -NSConstants- System. SocketNumber; 

Protocol Level: -ProtocolCertification-jy?t = cardinal [0.. 15]; 

ProtocolName: -ProtocolCertification- type = machine dependei\it{ 
echo, routing, error, spp, pex, unspecified(15)}; 

Prune; --Heap- procedure [z: uncounted zone); 

Prune: -MDSStorage- procedure returns [boolean); 

Prune: -Storage- procedure returns [boolean]; 

PruneMDS: -Heap- procedure [z: MDSZone]; 

PSBIndex: -BackstopNub- xyPE [1]; 

pupAddressTranslation: -NSConstants- System. SocketNumber; 
PushAlternateInputStream; -TTY- procedure [h: Handle, stream: stream. Handle]; 
PushAlternateInputStreams: -TTYSW- procedure ( 
sw: Window. Handle, stream: stream. Handle]; 

Put: --P/eceSoufce- PROCEDURE [source: Textsource. Handle, name: long string] 
RETURNS [new; TextSource. Handle]; 

Put; -RS232C- procedure [channel; ChannelHandle, rec: PhysicalRecordHandle] 
RETURNS [CompletionHandle]; 

Put: --TTYPort-- PROCEDURE [channel: ChannelHandle, data; character] 

RETURNS [status; TransferStatus]; 

PutBackChar: -TTY- procedure [h; Handle, c: character]; 

PutBackChar: -TTYSW- procedure [sw; window. Handle, char: character]; 
PutBlank: -TTY- procedure [h: Handle, n; cardinals- 1]; 

PutBlanks: -TTY- procedure [h: Handle, n: cardinal e- 1]; 

PutBlock: -Log- procedure [ 

level; Level, pointer; long pointer, size; cardinal, 
forceOut; boolean <— false]; 

PutBlock: -Stream- procedure [ 

sH: Handle, block; Block, endRecord: boolean <- false]; 

PutBlock; -TTY- procedure [h; Handle, block: Environment.Block]; 

PutByte; -Stream- procedure [sH: Handle, byte: Byte]; 

PutByteProcedure: -Stream- type = procedure [sH: Handle, byte: Byte]; 

PutChar: -Exec- procedure [h: Handle, c: character]; 

PutChar: -Stream- procedure [sH: Handle, char: character]; 

PutChar: -TTY- procedure [h: Handle, c: character]; 

PutCommand; -RavenFace- procedure [cardinal [0..127]]; 

PutCR; -TTY- procedure [h: Handle]; 

PutDate: -TTY- procedure [ 

h: Handle, gmt; Time. Packed, format: DateFormat <-noSeconds, 
zone: Time.TirneZoneStandard «-ANSI]; 

PutDecimal: -TTY- procedure [h: Handle, n: integer]; 

PutEditableFile; -FileSW- procedure [sw: window. Handle, name: long string] 
returns [ok: boolean]; 

PutLine: -TTY- procedure [h; Handle, s: long string]; 

PutLongDecimal: -TTY- procedure [h; Handle, n; long integer]; 

PutLongNumber: -TTY- procedure [ 

h: Handle, n: long unspecified, format: NumberFormat]; 

PutLongOctal: -TTY- procedure (h: Handle, n; long unspecified]; 

PutLongString: -FTY- procedure [h: Handle, s: long string]; 

PutLongSubString: -TTY— procedure [h; Handle, ss: string. Substring]; 
PutMessageProc:-On/meD/agnost/cs— TYPE = procedure [msg; FloppyMessage]; 
PutNumber; -TTY- procedure [h: Handle, n: unspecified, format: NumberFormat]; 
PutOctal: -TTY- PROCEDURE [h: Handle, n; unspecified]; 

PutProcedure; -Stream— type = procedure [ 

sH: Handle, block; Block, endRecord: boolean]; 
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PutProcType; -GSort- type = procedure [p; long pointer, len: cardinal]; 
PutSnapShotToFile; -LibrarianUtility- procedure [ 

fileName: long string, snap: Librarian. SnapShotHandlej; 

PutString: -Log- procedure [ 

level: Level, string: long string, forceOut: boolean ^ false], • 

PutString: -Stream- procedure [ 

sH: Handle, string: long string, endRecord: boolean <— false]; 

PutString: - TTY- procedure [h: Handle, s: long string]; 

PutSubString: -TTY- procedure [h: Handle, ss: string.SubString]; 

PutText: -TTY- procedure [h: Handle, s: long string]; 

PutWord: -Log- procedure [ 

level: Level, data: unspecified, forceOut: boolean «- false]; 

PutWord: --Stream-- procedure [sH: Handle, word: Word]; 
PutWordProcedure;-Stream- TYPE = procedure [sH: Handle, word: Word]; 
q2000: -DeviceTypes— Device.Type; 
q2010: -DeviceTypes- Device.Type; 

Q2010pagesPerCylinder: -formatP(7otD/s/c- cardinal = 32; 
q2020: -DeviceTypes- Device.Type; 

Q2020pagesPerCylinder:-FormatP//otD/s/c- cardinal = 64; 
q2030: -DeviceTypes- Device.Type; 

Q2030pagesPerCylinder: -FormatP/VotOisfe- cardinal = 96; 
q2040: -DeviceTypes- Device.Type; 

Q2040pagesPerCylinder:-FormatP/7otD/sAr- CARDINAL = 128; 
q2080: -DeviceTypes- Device.Type; 

Q2080pagesPerCylinder: -FormatP/7otD/s/cfxtras- cardinal = 112; 
Qualification:-Prof//e— TYPE = {registry, clearinghouse, none}; 

Qualify: -Profile- procedure [ 

token: String, newToken: String, qualification: Qualification]; 

Quiesce: -TTYPort- procedure [channel: ChannelHandle]; 

RIO: -Keystations-Bit = 87; 

R11: -Keystations- Bit = 47; 

R12: -Keystations-Bit = 77; 

R1: -Keystations- Bit = 63; 

R2: -Keystations-Bit = 92; 

R3: -Keystations-Bit = 106; 

R4: -Keystations- Bit = 94; 

R5: -Keystations— Bit = 80; 

R6: -Keystations- Bit = 79; 

R7: -fCeyStat/ons-Bit = 93; 

R8: -Keystations- Bit = 29; 

R9: -Keystations-Bit = 81; 

Radix: -FormSW-TYPE = {decimal, octal}; 

Random: -SpyClient- procedure returns [cardinal]; 

RandomDelay: -SpyClient- procedure; 
rcvLO: -ProtocolCertification- Stage; 
rcvLI: -ProtocolCertification- Stage; 

Read: -Floppy- procedure [ 

file: FileHandle, first: PageNumber, count: PageCount, vm: long pointer]; 
readAccess: -NSFile- Access; 

ReadBadPage: -Scavenger— procedure [ 

file: Fiie.File, page: File. PageNumber, destination: Space. PageNumber] 
returns [readErrors: boolean]; 
readBy:-NSAss/gnedTypes-AttributeType = 14; 

ReadID: -FloppyChannel- procedure [ 

handle: Handle, address: DisJcAddress, buffer: long pointer] 
returns [status: Status]; 
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ReadLineOrToken: -CmFile- procedure [ 

h: Token. Handle, buffer: long string, terminator; character]; 

ReadNextStream: -FileTransfer- procedure [stream. Handle] 
returns [stream. Handle]; 

readOn:-/VS/Ass/gnedrypes-AttributeType = 15; 

Readonly: -BTree- error [tree; Tree]; 

Readonly: -MFile- procedure [ 

name: long string, release: ReleaseData, mightWrite: boolean <- false] 
returns [Handle]; 

Readonly; -MStream- procedure [name; long string, release: ReleaseData] 
returns [Handle]; 

Readonly: -Volume— error [volume: ID]; 

ReadOnlyProcType: -FormSW- type = ProcType; 

ReadOrphanPage: -Scavenger— procedure [ 

volume: volume.lD, id; OrphanHandle, destination: Space.PageNumber] 
returns [ 

file: Fiie.Pile, type: File.Type, pageNumber: Fiie.PageNumber, 
readErrors; boolean]; 

ReadReal; -Real- procedure [ 

get: procedure returns [character], 

putback: procedure [character] DefaultPutback] returns [real]; 

ReadSectors: -FloppyChannel- procedure [ 

handle: Handle, address: DiskAddress, buffer: long pointer, 
count; CARDINAL <— 1, incrementDataPtr: boolean «- true] 
returns [status; Status, countDone; cardinal]; 

ReadStream: -FileTransfer- procedure [ 

conn: Connection, files: FiieName.VFN, veto; VetoProc <- nil, 
showDates; boolean false, type: StreamType remote] 
returns [stream. Handle]; 

ReadValue; -OebugilsefulDefs- procedure [Handle]; 

ReadWrite: -MFile- procedure [ 

name: long string, release: ReleaseData, type; Type, 
initial Length; InitialLength <-dontCare] returns [Handle]; 

ReadWrite: -MStream- procedure [ 

name: long string, release: ReleaseData, type: wiFiie.Type] returns [Handle]; 

RealControl : -Real- program; 

Real Error: -Real- error; 

Real Exception: -Real- signal [ 

flags; ExceptionFlags, vp: long pointer to Extended] 

RETURNS [long POINTER TO Extended]; 

RealToPair: -Real- procedure [ 

r; REAL, precision: cardinal «- DefaultSinglePrecision] 

RETURNS [type; NumberType, fr: long integer, expIO: integer]; 

Reason:-AddressTranslation-TYPE = { 

noUsefulProperties, ambiguousSeparators, tooManySeparators}; 

Reason:-WSSess/orrContfo/-- TYPE = {logoff, timeout, abort}; 

Recalibrate: -FloppyChannel- procedure [handle; Handle] 
returns [status: Status]; 

RecordTooLong: -GSort- error; 

Recreate: -Zone- procedure [storage: long pointer, zoneBase: Base] 

RETURNS [zH; Handle, rootNode: Base relative pointer, s: Status]; 

rectangleCmd; --SandSLT-- cardinal = 10; 

Redisplayltem: -FormSW- procedure [ 

sw: window.Handle, index: cardinal, sameSize: boolean]; 

Reference:-A/SF/7e- TYPE = long pointer to ReferenceRecord; 
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ReferenceRecord: --A/Sf/7e-- type = record [ 
filelD: ID, 

systemElement: SystemElement <- nullSystemElement, 
volumelD: Volume«— nullVolume]; 

Register; -NSDataStream- procedure [ 

stream: Handle, forUseAt: Couner.SystemElement, cH: Courier.Handle, 
uselmmediateTicket: boolean <- true] returns [Ticket]; 

RegisterBaseOirectoryProc: -NSVolumeControl- procedure [ 
baseDirectoryProc; BaseDirectoryProc]; 

RegisterCheckCredentialsProc: -NSSessionControl- procedure [ 
checkCredentialsProc: CheckCredentialsProc]; 

RegisterGetCredentialsProc: -NSSessionControl- procedure [ 
getCred enti a I sProc: G etCredentia I sProc] ; 

RegisterMembershipProc: -NSSessionControl- procedure [ 
membershipProc; MembershipProc]; 

RegisterPage: -LsepFace- procedure [paperSource: PaperSource «- manual]; 

registry: -EventTypes- Supervisor. Event; 

RejectRequest: -PacketExchange— procedure [ 
h: ExchangeHandle, rH: RequestHandle]; 

Relation:-A/SStr/ng-- TYPE = {less, equal, greater}; 

Release: —Context- procedure [type: Type, window: window.Handle]; 

Release: -MFile- procedure [file; Handle]; 

ReleaseChoice: --/WF/Ve-- type = {later, no, goAhead, allowRename); 

ReleaseData:--MF/7e-- TYPE = record] 

proc; PleaseReleaseProc «- nil, clientInstanceData: long pointer <- nil]; 

ReleaseData:-A/fSegment--TYPE = record] 

proc: PleaseReleaseProc <- nil, clientInstanceData; long pointer <— nil]; 

ReleaseData:--/WStream-- TYPE = record] 

proc; PleaseReleaseProc <- nil, clientInstanceData: long pointer «- nil]; 

ReleaseDataStream: -Courier- procedure [cH; Handle]; 

ReleaseTTY: -Exec- procedure [tty: TTY.Handle]; 

Relock: -WSSess/onContro/-- procedure [session; NSFiie.Session, id: ServicelD]; 

Remark: -BodyDefs- type = long string; 

Remote: -CHLookup- type = machine dependent record [ 

region(0:0..63): NSName.Organization, domain(4:0..63): NSName.Domain]; 

remoteDebug: -PilotSwitches-PWotDomainA = 65C; 

RemoteDi rectory Describe; -CHLookup- Couner.Description; 

RemoteErrorSignalled: --Cour/er --error [ 

errorNumber: cardinal, arguments: Arguments]; 

RemoteName: -MFileProperty— MFile. Property; 

RemotePt; -CHLookup- type = long pointer to Remote; 

Remove; -BTree— procedure [tree: Tree, name: long string, value: Value] 
returns [ok; boolean]; 

RemoveCharacter; --TTY— procedure [h: Handle, n: cardinal <- 1]; 

RemoveCharacter: -TTYSW- procedure [sw: window.Handle, n: cardinal <- 1 ]; 

RemoveCharacters: -TTY- procedure [h: Handle, n: cardinal <— 1]; 

RemoveCharacters; -TTYSW- procedure [sw; Window.Handle, n: cardinals- 1]; 

RemoveCommand: -Exec- procedure [h: Handle, name: long string]; 

RemovedStatus:-Exec- TYPE = {ok, noCommand, noProgram}; 

RemoveFromTree: -Window- procedure [Handle]; 

RemoveNotifyProc: -MFile- procedure [ 

proc: NotifyProc, filter: Filter, clientInstanceData: long pointer]; 

RemovePrinter: -DebugUsefulDefs- procedure [type: long string, proc: Printer]; 

RemoveProperties: -MF//e— procedure [file: Handle]; 

RemoveProperty: -MFile- procedure [file; Handle, property: Property]; 

RemoveRootFile; -Volume- procedure [type: File. Type, volume: ID «—systemID]; 
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RemoveSegment: -Zone- procedure [zH: Handle, sH: SegmentHandle] 

RETURNS [storage: long pointer, s: Status]; 

Rename: -DiskSource— procedure [ 

source: Textsource. Handle, newName: long string, access: TextSource.Accessj 
returns [Textsource. Handle]; 

Rename: -FileTransfer- procedure [ 

conn: Connection, old: FileName.VFN, new: FileName.VFN]; 

Rename: -MFile- procedure [file: Handle, newName: long string]; 
RenameCommand: -Exec- procedure (old: long string, new: long string] 

RETURNS [ok: boolean]; 

RepairStatus:--Pbys/ca/\/o/ume-- TYPE = {okay, damaged, repaired}; 

RepairType: -PhysicalVolume-jypE = (checkOnly, safeRepair, riskyRepair}; 
RepairType:--Scavenger-- TYPE = machine dependent{ 
checkOnly, safeRepair, riskyRepair}; 

Repeat: -LsepFace- procedure; 

Replace: -MDSStorage- procedure [to: pointer to string, from: long string]; 
Replace: -NSFile- procedure [ 

file: Handle, source: Source, attributes: AttributeList <— nullAttributeList, 
session: Session <—nullSession]; 

Replace: -Storage- procedure [ 

to: LONG POINTER TO LONG STRING, from: LONG STRING]; 

ReplaceBadPage: -Scavenger- procedure [ 

file: File.File, page: Fiie.PageNumber, source: Space.PageNumber] 

RETURNS [writeErrors: boolean]; 

ReplaceBadSector: -F/oppy- procedure [file: FileHandle, page: PageNumber] 
RETURNS [readError: boolean]; 

ReplaceByName: -NSFile- procedure [ 

directory: Handle, path: String, source: Source, 
attributes: AttributeList«- nullAttributeList, 
session: Session «-nullSession]; 

ReplaceChild: -NSFile- procedure [ 

directory: Handle, id: ID, source: Source, 
attributes: AttributeList«- nullAttributeList, 
session: Session <- nullSession]; 
replaceFlags: -Display- BitBItFlags; 
replaceGrayFlags: -Display- BitBItFlags; 

ReplacementIDFollows: -LibrarianUtility- integer = -3; 

RequestHandle: -PacketExchange- type = long pointer to readonly RequestObject; 
RequestID:-WSPr/nt- TYPE = System. UniversallD; 

RequestObject: -PacketExchange— type = record [ 
nBytes; cardinal, 

requestType: ExchangeClientType, 

requestorsExchangelD: ExchangelD, 

requestorsAdd ress: System . NetworkAddress] ; 

RequestStatus: -NSPrint- type = long descriptor for array cardinal of 
RequestStatusComponent; 

RequeststatusComponent: -WSPr/nt- type = machine dependent record [ 
var(0:0..79): select type(0:0.. 15): RequestStatusType from 
status = > [status(l :0..15): Status], 
statusMessage = > [statusMessage(1:0..63): String], 
endcase]; 

RequestStatusIndex:-WSPr/nt- TYPE = cardinal [0..1]; 

RequestStatusType: -WSPr/nt- type = machine DEPENDENT{status, statusMessage}; 
Reserved; -Vo/umeConvers/on— type [249]; 
reservedA: -P//otSw/tc/jes-PilotDomainA = 40C; 
reservedB: -P/7otSw/tches-PilotDomainA = 42C; 
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reservedC: --P//otSiv/tc/jes--PilotDomainA = 47C; 
reservedD: -P/7ofSw/fches-PilotDomainA = 53C; 
reservedE: -P/7otSi/v;tches--PiiotDomainA = 55C; 
reservedF: -Pi/otSw/tches--PilotDomainA = 57C; 
reservedG: -Pf/otSw/tc/ies--PilotDomainB = 134C; 
reservedH:--P;7otSw/7c/7es--PilotDomainC = 176C; 
reservedi;--P/7otSw/tc/)es-PilotDomainC = 177C; 

ReserveType: --PS2J2C- TYPE = RS232CEnvironment.ReserveType; 

ReserveType:--PS232Cfnvironment--TYPE = { 

preemptNever, preemptAlways, preemptlnactive}; 
reset: -EventTypes- Supervisor. Event; 

Reset: --tog- procedure; 

Reset: -LogFile- procedure [ 

file: Eiie.File, firstPageNumber: Fiie.PageNumber«-1]; 

Reset: -MSegment- procedure [ 

segment: Handle, file: MFiie.Handle «-dontChangeFile, 
release: ReleaseData <-dontChangeReleaseData, 
fileBase: File.PageNumber«- dontChangeFileBase, 
pages: Environment.PageCount <—dontChangePages, 
swapinfo: SwapUnitOption <-defaultSwapUnitOption, 
usage: Space.Usage «-dontChangeUsage]; 

Reset: --P/eceSource- procedure [source: Textsource.Handle] 
returns [original: TextSource.Handle]; 

ResetBands: -RavenFace- procedure 

returns [firstBand: Index, firstBandAddress: BandPointer); 
ResetEditableFile: -FileSW- procedure [sw: window.Handlej; 

ResetOnMatch: -Caret- procedure [data: ClientData]; 
resetStage: -ProtocolCertification- Stage; 

ResetUserAbort: -TTY- procedure [h: Handle]; 

ResetUserAbort: -C/ser/nput-- procedure [window. Handle]; 

ResetVFN: -FileName- procedure [ 

vfn: VFN, h: boolean <- false, d; boolean <- false, n; boolean <- false, 
v: BOOLEAN <- false]; 
resolution: -LsepFace- cardinal; 
resolution: -RavenFace- readonly resolutionPair; 
resolutionPair: -RavenFace- - array {fast, slow} of cardinal; 
ResolveBlock: -D/sp/ay- procedure [ 

window: Handle, block: Environment.Block, 

offsets: LONG pointer to array cardinal [0..0) OF CARDINAL, 

font: windowFont. Handle <- nil] 

returns [positions: cardinal, why: BreakReason]; 

ResponseProc: -ExpeditedCourier- type = procedure [ 

hopsToResponder: Hop, elapseTime: ElapseTime, header: Header, 
serializedResponse: Environment-Block] returns [continue: boolean]; 

Restart: -LogFile- type = machine dependent record [ 

message(0:0..15): unspecified, time(1 :0..31): System. GreenwichMeanTime]; 
Restart: -RS232C- procedure [channel: ChannelHandle, class: OperationClass]; 
Result: -CH- type = machine dependent record [ 

flavor(0:0..15): Authenticator.Flavor, status(1:0..15): Authenticator. Status]; 
Results: -Courier- type = procedure [ 

resultsRecord: Parameters <- nullParameters, 
requestDataStream: boolean ^ false] returns [sH: stream. Handle]; 

Resume: -LsepFace- procedure; 
resumeDebuggee: -EventTypes- Supervisor. Event; 
resumeSession; -EventTypes- Supervisor. Event;’ 
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Retrieve: -NSFile- procedure ( 

file: Handle, sink: Sink, session: Session <- nullSession]; 

RetrieveByName: -NSFile- procedure [ 

directory: Handle, path: String, sink: Sink, session: Session <—nullSession]; 

RetrieveChild: -NSFile- procedure [ 

directory: Handle, id: ID, sink: Sink, session: Session e- nullSession); 

RetryCount:--D/a/up-- TYPE = RS232CEnvironment.RetryCount; 

RetryCount:--/?S232Cfnv/ronfnent- type = [0..7]; 

retryLimit: -FormatPUotDisk- RetryLimit = 253; 

RetryLimit: --FormatP//otO;sk-TYPE = [0..253]; 

ReturnCode: -CH-- type = machine dependent record [ 
code(0;0..15): Code, 
type(1:0..15): NameType, 
which(2:0.. 15): ParameterGrouping]; 

returnOffset: --Pr/ncOps-- cardinal = 3; 

ReturnToNotifier: -Userinput- error [string; long string]; 

Return Wait:--Space-- TYPE = {return, wait}; 

RewritePage: -Scavenger- procedure [ 

file: Piie.File, page: Fiie.PageNumber, source: Space.PageNumber] 
returns [writeErrors: boolean]; 

RgflagsPtr: -Fonts- type = long pointer to packed array character of Flags; 

RhsToAddress: -NSAddr- procedure [rhs: CH. Buffer] 

RETURNS [succeeded: boolean, address: Address]; 

RhsToNSAddr: -NSAddr- procedure [rhs; ch. Buffer, nsAddr; NSAddr] 

RETURNS [succeeded: boolean]; 

RightShift: -JLevelIVKeys- KeyName = RightDakuonShift; 

RingBound; -ExpeditedCourier- type = record [low: Hop, high: Hop] <- [ 
FIRST[Hop], LAST[Hop]]; 

RName: -BodyOefs- type = long string; 

RNameSize: -SodyOe/is-- procedure [name; RName] returns [cardinal]; 

Root: -RealFns- procedure [index: real, arg; real] returns [real]; 

Root: -Window- procedure returns [Handle]; 

RootDirectoryError; -Volume- error [type: RootDirectoryErrorType]; 

RootDirectoryErrorType:-Vo/ume— TYPE = { 

directoryFull, duplicateRootFile, invalidRootFileType, rootFileUnknown); 

rootWindow: -Window- readonly Handle; 

RoundC: -Real— procedure [real] returns [cardinal]; 

Roundl: -Real- procedure [real] returns [integer]; 

RoundLI: -Real- procedure [real] returns [long integer]; 

RoutersFunction: -Router- type = (vanillaRouting, interNetworkRouting}; 

routingInformationSocket: -NSConstants- System. SocketNumber; 

routingServer: -ProtocolCertification- Stage; 

routingUser: -ProtocolCertification- Stage; 

RS232CDiagError: -CommOnlineDiagnostics- error [reason; RS232CErrorReason]; 

RS232CDiagStopping; -RemoteCommDiags- error ( 
reason: CommOnlineDiagnostlcs.StopReason]; 

RS232CErrorReason: -CommOnlineDiagnostics- type = machine dependent{ 
aborted, noHardware, noSuchLine, channellnUse, unimplementedFeature, 
invalidParameter, otherError); 

RS232CLoopback: -CommOn//neD/agnosf;cs- procedure [ 

rs232cParams; RS232CParams, setDiagnosticLine; SetDiagnosticLine nil, 
writeMsg: WriteMsg <— nil, modemChange: ModemChange <— nil, 
host: System. NetworkAddress e-System.nullNetworkAddress]; 

RS232CLoopback; -RemoteCommDiags- procedure [ 

host: System. NetworkAddress, testCount; cardinal, lineSpeed: RS232C.LineSpeed, 
correspondent; RS232C. Correspondent, lineNumber: cardinal, 
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parity: RS232C.Parity, charLength: RS232C.CharLength, 

pattern: CommOniineOcagnostics.PatternType, constant: cardinal <-0, 

counters: long pointer to CommOnlineDlagnostlcs.CountType, 

dataLengths: CommOnimeDtagnostics.LengthRange, 

setDiagnosticLine: procedure [lineNumber: cardinal] returns [boolean], 

writeMsg: procedure [msg: CommOniineDiagnostics.RS232CTestMessage] ^nil, 

ModemChange: procedure [ 

modemSignal: CommOnimeDiagnostics.ModernSignal, state: boolean] <- nil]; 

RS232CParams: -CommOnlineDiagnostics- type = machine dependent record [ 
testCount(0:0..15): cardinal 177777B, 
safetyTOInMsecs(1:0..31): long cardinal <- 165140B, 

I ineSpeed(3; 0.. 15): RS232C. LineSpeed, 
correspondent(4:0..15): RS232C.Correspondent, 
lineType(5:0.. 15): RS232C.LineType, 
lineNumber(6:0..15): cardinal, 
parity(7:0..15): RS232C.Parity, 
charLength(8:0.. 15): RS232C.CharLength, 
pattern(9:0..15): PatternType, 
constant(10:0..15): cardinal <-0, 
dataLengths(11:0..31): LengthRange]; 

RS232CPort: -CHLoo/cup-- type = machine dependent record [ 
description(0:0..63): NSStnng.String, 
owningCIU(4:0..63): NSStrmg.String, 
owningECS(8:0..63): NSString.String, 
owningCIient( 12:0..63): NSString.String, 
owningClientType(16:0.. 15): PortClientType, 
preemptionAllowed(17:0..15): boolean, 
iineNumber(18:0..15): cardinal, 
dialerNumber(19:0..15): cardinal, 
portNumber(20:0..15): cardinal, 
syncType(21:0..15): PortSyncType, 
duplexity(22:0..15): RS232CEnvironment.Duplexity, 
dialingHardware(23:0.. 15): PortDialerType, 
charLength(24:0..15): RS232CEnvironment.CharLength, 
echoing(25:0..15): PortEchoingLocation, 
flowControl(26:0..47): RS232CEnvironment.FlowControl, 

I i neSpeed(29:0.. 15): RS232CEnvironment. Li neSpeed, 
parity(30:0..15): RS232CEnvjronment.Parity, 

StopBits(31:0..15): RS232CEnvironment.Stop8itS, 
portActsAsDCE{32:0..15); boolean, 
timeStamp(33:0..31): System.GreenwichMeanTime]; 

RS232CPortDescribe: -CHLookup -- Courier.Description; 

RS232CPortPt: -CHLookup- type = long pointer to RS232CPort; 

RS232CTestlVlessage: -CommOnZ/neO/agnost/cs- type = machine dependent{ 
recvOk, recvErrors, deviceError, dataLost, xmitErrors, badSeq, missing, , 
sendOk, sendErrors}; 

Rubout: -TTY- signal; 

Rubout: -TTYSW- signal; 

ruietteCmd:--SancZSir- CARDINAL = 13; 

Run: -Exec- procedure [ 

h: Token.Handle, write: Format.StringProc, 

checkAbort: procedure returns [abort: boolean], codeLinks: boolean <- false]; 

Run: -MLoader- procedure [ 

file: MFiie.Handle, options: Options <—defaultOptions] returns [Handle]; 

Run: -PilotClient- procedure; 
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RunConfig: -Runtime- procedure [ 

file: Piie.File, offset: Piie.PageCount, codeLinks: boolean «- false]; 
salOOO: -DeviceTypes- Device.Type; 
sal004: -DeviceTypes- Device.Type; 

SA1004pagesPerCylinder: -FormatPilotDisk- cardinal = 64; 
sa4000: -DeviceTypes- Oevice.Type; 

SA4000FirstPageForPilot: -FormatPilotDisk- procedure [c: SA4000Model44Count] 
RETURNS [DiskPageNumberj; 

SA4000Model44Count:--formatP/VofDfsk - TYPE = [0..4]; 

SA4000startOfModel44s: -FormatPilotDisk- DiskPageNumber = 224; 
sa4008: -DeviceTypes- Device.Type; 

SA4008pagesPerCylinder: -FormatPilotDisk- card\nai = 224; 
sa800: -DeviceTypes- Device.Type; 

SameFile: -MFile- procedure [filel: Handle, file2: Handle] returns [boolean]; 
sameLine:--FormSM/- INTEGER = -1; 
saveDisplayPagesIndexA: -PilotSwitchesExtraExtras- 
PilotSwitches.PilotDomainC = 366C; 
saveDisplayPagesIndexB: -PilotSwitchesExtraExtras— 

PilotSwitches.PilotDomainC = 367C; 

‘ SBSOFileType: --f/Vefypes- type = cardinal [896..959]; 

Scan: -FormatPilotDisk- procedure [ 

h: Physicaivoiume.Handle, firstPage: DiskPageNumber, count: long cardinal, 
retries: RetryLimit«- 10]; 

ScanError: -AddressTranslation- error [position: cardinal]; 

ScanForCharacter: -NSString- procedure [ 

c: Character, s: String, start: cardinal «- 0] returns [cardinal]; 

ScanSwitches: -HeraldWindow- procedure [ 

s: LONG STRING, defaultSwitches: System.Switches<- System.defaultSwitches] 
returns [switches: System. Switches]; 

SeanWordsPerLine:-/.sepface-- TYPE = [1..253]; 

Scavenge: -Floppy- procedure [volume: VolumeHandle] 

RETURNS [numberOfBadSectors: PageCount]; 

Scavenge: -NSVolumeControl- procedure [ 

volume: voiume.lD, options: ScavengerOptions, logVolume: volume. ID] 

RETURNS [logFile: File.lD]; 

Scavenge: -PageScavenger- procedure [ 

device: DeviceIndex, diskPage: PageNumber, overwrite: boolean] 

RETURNS[ 

action: Action, contentsReliable: boolean, diskStatus: DiskStatus, 
file: File.lD, filePage: Fiie.PageNumber, type: File.Type]; 

Scavenge: -PhysicalVolume- procedure [ 

instance: Handle, repair: RepairType, okayToConvert: boolean] 

RETURNS [status: ScavengerStatus]; 

Scavenge: --Scavenger-- procedure [ 

volume: volume. ID, log Destination: voiume.lD, repair: RepairType, 
okayToConvert: boolean] returns [logFile: File. File]; 

ScavengerOptions: “A/SVo/umeContro/- TYPE = record] 
rootType: NSFiie.Type, 
index: IndexAttributes, 
orphanDirectoryName: NSStnng. String, 
orphanDirectoryType: NSFiie Type]; 

ScavengerStatus: -PhysicalVolume— type = record [ 
badPageList: DamageStatus, 
bootFile: DamageStatus, 
germ: DamageStatus, 
softMicrocode DamageStatus, 
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hardMicrocode: DamageStatus, 
internaiStructures; RepairStatus]; 

Scope:--A/SF(7e-- TYPE = record [ 
count: CARDINAL <- 1777778, 
direction: Direction <-forward, 
filter: Filter«-nullFilter, 
ordering: Ordering <—nullOrdering]; 

ScopedSerializeIntoRhs: -CH- procedure [ 

parms: Courier.Parameters, callback: procedure [Buffer]]; 

ScopeType:--A/SF/7e--TYPE = machine dependent{ 
count, direction, filter, ordering}; 

ScratchMap: -Space- procedure [ 

count: Enwironment.PageCount, usage: Usage unknownUsage] 

RETURNS [pointer: long pointer]; 

screenHeight: -UserTerminal- readonly cardinal [0..77777B]; 

screenWidth: -UserTerminal- readonly cardinal [0..77777B]; 

Scroll: -UserTerminalExtras- procedure [ 

line: Environment.BitAddress, lineCount: cardinal, increment: integer]; 

ScrollbarProcType: -Scrollbar-ryPi = procedure [window: window. Handle] 
RETURNS [box: Window. Box, offset: Percent, portion: Percent]; 

scrollingInhibitsCursor: -UserTerminalExtras- readonly boolean; 

ScrollProcType:--Scro//6ar- TYPE = procedure] 

window: window.Handle, direction: Direction, percent: Percent]; 

scrollXQuantum: -UserTerminalExtras- readonly cardinal; 

scrollYQuantum: -UserTerminalExtras- readonly cardinal; 

SDDivMod: -Inline- procedure [num: long integer, den: long integer] 

RETURNS [quotient: long integer, remainder: long integer]; 

Seal:--Vo/umeConvers/on- CARDINAL = 27272B; 

SearchPath:--A/7F/7e-- TYPE = long pointer to SearchPathObject; 

searchPathNotUsed:--/WF//e- CARDINAL = 177777B; 

SearchPathObject: -MFile- type = record [ 

length: cardinal, directories: sequence I: cardinal of long string]; 

Seconds: -Authenticator- type = long cardinal; 

Seconds: -Process— type = cardinal; 

SecondsToTicks: -Process-- procedure [seconds: Seconds] returns [ticks: Ticks]; 

SectorLength: -On/ZneD/agnost/cs- type = {one28, two56, five12, one024}; 

SegmentHandle: -Zone- type [1]; 

Selections: -NSFile- type = record [ 

interpreted: InterpretedSelections *- noInterpretedSelections, 
extended: ExtendedSelections«-noExtendedSelections]; 

SelectNearestAddr: -NSAddr- procedure [nsAddr: NSAddr] 
returns [na: System. NetworkAddress]; 

SelectNearestAddress: -WSAddr- procedure [address: Address] 

RETURNS [na: System. NetworkAddress]; 

SelfDestruct: -Runtime- procedure; 

Send: -SendDefs- procedure [handle: Handle]; 

SendAttention: -Stream- procedure [sH: Handle, byte: Byte]; 

SendAttentionProcedure: -Stream- type = procedure [sH: Handle, byte: Byte]; 

SendBreak: -RS232C- procedure [channel: ChannelHandle]; 

SendBreak: -TTYPort- procedure [channel: ChannelHandle]; 

SendBreaklilegai: -RS232C~ error; 

SendFailed: -SendDefs- error [notDelivered: boolean]; 

SendFromClient: -SendDefs- procedure [ 

handle: Handle, fromNet: [0..255], fromHost: [0..255], 
senderKey: BodyDefs. Password, sender: BodyOefs.RName, 
returnTo: BodyDefs.RName, validate: boolean] returns [StartSendInfo]; 
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SendNow: -Stream- procedure [sH: Handle, endRecord: boolean<-true]; 

SendNowProcedure: -Stream- type = procedure [sH: Handle, endRecord; boolean]; 

SendReply: -PacketExchange- procedure [ 

h: ExchangeHandle, rH; RequestHandle, replyBIk: Environment.Block, 
replyType; ExchangeClientType «- unspecified]; 

SendRequest: -PacketExchange— procedure [ 

h: ExchangeHandle, remote; System. NetworkAddress, 
requestBIk; Environment.Block, replyBIk; Environment.Block, 
requestType; ExchangeClientType <— unspecified] 

RETURNS [nBytes; cardinal, replyType; ExchangeClientType]; 

separator; -CH- character = 72C; 

separator; -NSName- character = 72C; 

separatorCharacter; -NSName- NSStnng.Character; 

Serialize; -NSFUe— procedure [ 

file; Handle, sink; Sink, session: Session <- nullSession]; 

SerializeHeader: -ExpeditedCourier- procedure [ 
rmsH: stream. Handle, header: Header]; 

SerializeIntoRhs: -CH- procedure [ 

parms: courier.Parameters, heap: uncounted zone] returns [rhs: Buffer]; 

SerializeParameters: -Cour/er- procedure [ 
parameters; Parameters, sH: stream. Handle]; 

ServerName: -RetrieveDefs- procedure [ 

handle; Handle, serverName: BodyDefs.RName]; 

ServerOff: -CommOnlineDiagnostics- procedure; 

ServerOn: -CommOnlineDiagnostics- procedure; 

ServerState:-Retr/eveDe^s- type = {unknown, empty, notEmpty}; 

ServerType; -FileTransfer- type = machine dependent{ 
unknown, local, ifs, tenex, ns, null{7)}; 

ServerType; -RetrieveDefs- type = {MTP, GV}; 

Service: -ExpeditedCourier-jypE = record [ 
programNumber; long cardinal, 
versionRange: Courier. VersionRange, 
bindRequestProcedure; cardinal, 
dispatcher; DispatcherProc]; 

ServiceData;-A/SSess/onContfo/-TYPE = long unspecified; 

ServicelD: -NSSessionControl- type [1]; 

ServiceProblem;-WSF/Ve- TYPE = machine dependent{ 

cannotAuthenticate, serviceFull, serviceUnavailable, sessionInUse}; 

services;-CHP/Ds-CH.PropertylD = 51; 

Services: -ExpeditedCourier-rypi = long descriptor for array cardinal of 
Service; 

ServicesFileType:-F/ZeTypes- TYPE = cardinal [22000B..22077B]; 

ServicesUsage:-SpaceC/sage-TYPE = Space .Usage[256.. 383]; 

Session; -NSFile- type [2]; 

Session;-WSSegment- TYPE = NSFiie.Session; 

SessionAttributes:-A/SSess/ortControZ-TYPE = record] 
name: NSStnng. String, 
password; NSString. String, 
systemElement; NSFiie.SystemElement, 
createTime: System. GreenwichMeanTime, 
lastActiveTime; System. GreenwichMeanTime, 
privileged: boolean]; 

SessionProblem; -A/SF//e-- type = machine DEPENDENT{sessionlnvalid}; 

SessionRestrictions:-A/SSess/onContro/-TYPE = record] 
sessionsAllowed; boolean. 
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maxSessionsAllowed: CARDINAL, 
inactivityTimeout; cardinal]; 

SessionRestrictionSelections: -A/SSess/onContro/-- type = packed array 
SessionRestrictionType of BooleanFalseDefault; 

SessionRestrictionType:--A/SSess/onContfo/--TYPE = { 

sessionsAllowed, maxSessionsAllowed, inactivityTimeout}; 

Set: -BlockSource- procedure [source: Handle, block: Block); 

Set: -Caret- procedure [data: ClientData, marker: MarkProcTypej; 

Set: -Context- procedure [type: Type, data: Data, window: window. Handle]; 

Set: --Cursor- PROCEDURE [Defined]; 

Set: -Selection- procedure [ 

pointer: long pointer, conversion: ConvertProcType, actOn: ActOnProcType]; 

SetAccess: -MFile- procedure [file: Handle, access: Access]; 

SetAccess: -MStream- procedure [stream: Handle, access: wiFiie. Access]; 

SetAccess: -Space- procedure [interval: Interval, access; Access]; 

SetAttention; -Userinput- procedure [ 

window; window.Handle, attention; AttentionProcType]; 

SetBackground: -UserTerminal- procedure [new: Background] 
returns [old: Background]; 

SetBackingSize; -TTY- procedure [h: Handle, size: long cardinal]; 

SetBackingSize: -TTYSW- procedure [sw: window.Handle, size: long cardinal]; 

SetBalanceBeamChoice: -Profile- procedure [BalanceBeamChoice]; 

SetBitmapUnder: -Window- procedure [ 

window; Handle, pointer; long pointer «- nil, 
underChanged: UnderChangedProc «-nil, 

mouseTransformer: MouseTransformerProc«- nil] returns [long pointer]; 

SetBootFiles: -Floppy- procedure [ 

volume; VolumeHandle, pilotMicrocode: BootFilePointer<—nullBootFilePointer, 
diagnosticMicrocode: BootFilePointer«-nullBootFilePointer, 
germ: BootFilePointer nullBootFilePointer, 
pilotBootFile: BootFilePointer<— nullBootFilePointer]; 

SetBorder: -UserTerminal- procedure [oddPairs: [0..255], evenPairs: [0..255]]; 

Setchecking: -Heap- procedure [z: uncounted zone, checking: boolean]; 

Setchecking: -Zone- procedure [zH: Handle, checking: boolean] 
returns [s: Status]; 

SetCheckingMDS; -Heap- procedure [z: MDSZone, checking: boolean]; 

SetChild; -W/ndow- procedure [window: Handle, newChild: Handle] 
returns [oldChild: Handle]; 

SetClearingRequired; -M/jncfow— procedure [window: Handle, required: boolean] 
returns [old; boolean]; 

SetClientSystemElement: -NSSessionControl— procedure [ 

session: NSFiie.Session, systemElement: NSFiie.SystemElement]; 

SetClockRate: -LsepFace- procedure [rate: VideoClockRate]; 

SetContext; -FloppyChannel- procedure [handle; Handle, context; Context] 

RETURNS [ok: boolean]; 

SetCurrent; -FormSW- procedure [sw: window.Handle, index: cardinal]; 

SetCursor: -HeraldWindow- procedure [slot; Slot, cursor: Cursor.Defined]; 

SetCursorPattern: -UserTerminal- procedure [cursorPattern: CursorArray]; 

SetCursorPosition: —UserTerminal- procedure [newCursorPosition: Coordinate]; 

SetCursorState: -HeraldWindow- procedure [slot: Slot, state: CursorState]; 

SetOebugger: -OthelloOps- procedure [ 

debuggeeFile: Fiie.File, debuggeeFirstPage: Fiie.PageNumber, 

debugger: volume. ID, debuggerType: Device. Type, debuggerOrdinal: cardinal] 

RETURNS [SetDebuggerSuccess]; 
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SetDebuggerSuccess: -Ot/>e//oOps-- type = { 

success, nullBootFile, cantWriteBootFiie, notInitialBootFiie, 
cantFindStartListHeader, startlistHeaderHasBadVersion, other, noDebugger}; 

SetDebugging: -Profile- procedure [boolean]; 

SetDefault: -WindowFont- procedure [font; Handle]; 

SetOefaultDomain; -Profile- procedure [domain: String]; 

SetDefaultName; -NSVolumeControl- procedure [name: NSString. String]; 

SetDefaultOrganization; -Profile- procedure [organization: String]; 

SetDefaultOutputSink: -Format- procedure [ 

new; StringProc, clientData: long pointer <— nil] 
returns [old; StringProc, oldClientData; long pointer]; 

SetDefaultRegistry: —Profile- procedure [registry: String]; 

SetDefaultServerType: --F/Veffans/er-- procedure [ 
conn: Connection, type: ServerType]; 

SetDefauitSession; -NSFile- procedure [session: Session]; 

SetDefauItTimeout; -NSVolumeControl— procedure [timeout: NSFiie. Timeout]; 

SetOefauItVolume; -NSVolumeControl- procedure [volume; voiume.lD]; 

SetDeleteProtect: -A/fF/7e-- procedure [file: Handle, deleteProtected; boolean]; 

SetDesiredProperties: -FileTransfer- procedure [ 
conn: Connection, props: DesiredProperties]; 

SetDiagnosticLine; -CommOnlineDiagnostics- type = procedure] 
lineNumber: cardinal] returns [lineSet; boolean]; 

SetDisplayProc; -Window- procedure [Handle, procedure [Handle]] 

RETURNS [procedure [Handle]]; 

SetEcho: --77Y-- procedure [h; Handle, new; EchoClass] returns [old: EchoClass]; 

SetEcho: -TTYSW- procedure [sw; Window. Handle, new: tty. EchoClass] 

RETURNS [old: TTY. EchoClass]; 

SetExpirationOate: -OthelloOps- procedure [ 
file; Piie.File, firstPage: Piie.PageNumber, 

expirationDate; System. GreenwichMeanTime] returns [SetExpirationDateSuccess]; 

SetExpirationDateSuccess: -OthelloOps- type = SetDebuggerSuccess 
[success..other]; 

SetExtension: -FileWindow- procedure [ext: long string]; 

SetFile: -FileSW- procedure [ 

sw: window.Handle, name: long string, s; stream. Handle <- nil, 
position: Textsource.Position «-0]; 

SetFileServerProtocol: -Profile— procedure [FileServerProtocol]; 

SetFont: -Menu- procedure [font; windowPont.Handle]; 

SetGetSwitchesSuccess: -OthelloOps- type = SetDebuggerSuccess 
[success..other]; 

Setindex; -MemoryStream- procedure [ 

sH: Stream. Handle, position; stream. Position]; 

setlnkCmd:--SandSLT-- cardinal = 12; 

SetInputFocus: -Userinput- procedure [ 

w; Window.Handle, notify: procedure [window.Handle, long pointer], 
takesinput; boolean, data; long pointer nil]; 

SetInputOptions: -Stream-- procedure [sH: Handle, options: InputOptions]; 

Setlnsertion: -Selection- procedure [ 

pointer: long pointer, conversion; ConvertProcType, 
clear: Clear!rashBinProcType]; 

SetInterruptMasks; -LsepFace- procedure [ 
control; WORD, status; word, data: word]; 

SetInterruptMasks: -RavenFace- procedure [ 
control: word, status: word, data: word]; 

SetLength; -MFile- procedure [file: Handle, length: ByteCount); 

SetLength; -A/fStream- procedure [stream: Handle, fileLength; MFile. ByteCount]; 
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setLevelCmd:--Sands/.f- CARDINAL =11; 

SetLibrarian; -Pro//7e- procedure [ 

name; String «- noChange, prefix: String «- noChange, 
suffix: String noChange]; 

SetLineType: -RS232C- procedure (channel; Channel Handle, lineType; LineTypej; 

SetLogReadLength; -MStream- procedure [ 
stream: Handle, position: MFile.ByteCountj; 

SetMaxDiskLength; -DiskSource- procedure [ 

source; Textsource. Handle, maxLength: long cardinal]; 

SetMinimumWindows: -FileWindow- procedure [keep: cardinal]; 

SetModifyNotificationProc: -FormSW- procedure [ 
sw: Window.Handle, proc; ProcType«-NiL]; 

SetMousePosition: -UserTerminal- procedure [newMousePosition; Coordinate]; 

SetMTPRetrieveDefault: -RetrieveDefs- procedure [ 
host: LONG STRING, reg: long string]; 

SetNetworkID: -Router- procedure [ 

physicalOrder: cardinal, medium; PhysicalMedium, 

newNetID: System. NetworklMumber] returns [oldNetID: System. NetworkNumber]; 

SetNotifier: -Scrollbar- procedure [ 

window: Window.Handle, type; Type, notify: ScrollProcType] 
returns [ScrollProcType]; 

SetOptions: -FormSW- procedure [sw; Window.Handle, options: Options]; 

SetOverflow; -Log- procedure [option; Overflow]; 

SetPageOffsets; -RavenFace- procedure [ 

linesFromLeft: cardinal, wordTabFromBottom; cardinal]; 

SetParameter; -RS232C- procedure [ 

channel: ChannelHandle, parameter: Parameter]; 

SetParameter; -TTYPort- procedure [ 

channel: ChannelHandle, parameter: Parameter]; 

SetParent: -W/ndow- procedure [window: Handle, newParent; Handle] 

RETURNS [oldParent; Handle]; 

SetPhysicalVolumeBootFile: -OthelloOps- procedure [ 

file: File.File, type; BootFileType, firstPage: Fiie.PageNumber]; 

SetPNR; -Menu- procedure [Window.Handle]; 

SetPosition: -Stream- procedure [sH: Handle, position; Position]; 

SetPositionProcedure; -Stream- type = procedure [ 
sH; Handle, position: Position]; 

SetPrimaryCredentials: -FileTransfer- procedure [ 

conn; Connection, user: long string, password: long string]; 

SetPriority; -Process- procedure [priority: Priority]; 

SetProcessorTime: -OthelloOps- procedure [time; System. GreenwichMeanTime]; 

SetProcs: -FileTransfer- procedure [ 

conn; Connection, clientData: long pointer, messages: MessageProc <- nil, 
login: ClientProc<-NiL, noteProgress: ClientProc «-nil, 
checkAbort: CheckAbortProc <- nil]; 

SetProperties: -MFile- procedure [ 

file: Handle, create: Time.Packed <-System.gmtEpoch, 

write: Time.Packed <-System.gmtEpoch, read; Time.Packed <—System.gmtEpoch, 
length: ByteCount, type; Type, deleteProtected: boolean e- false, 
writeProtected; boolean <- false, read Protected: boolean <- false]; 

SetProperty: -MFile- procedure [ 

file: Handle, property: Property, block: Environment.Block]; 

SetProtection: -MFile- procedure [ 

file: Handle, deleteProtected: boolean <- false, 
writeProtected; boolean <— false, read Protected: boolean e- false]; 

SetReadProtect; -MFile- procedure [file: Handle, read Protected: boolean]; 
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SetReleaseOata: procedure [file: Handle, release: ReleaseData]; 

SetReleaseData: --A/lSegment- procedure [segment: Handle, release: ReleaseData]; 

SetReleaseOata' -/WStream- procedure [stream: Handle, release: ReleaseData]; 

SetRemoteName: -FileName- procedure [ 

file: MPiie.Handle, remoteName: long string]; 

SetRestart: -Log- procedure [message: unspecified]; 

SetRootFile: --F/oppy-- procedure [file: FileHandle]; 

SetRootNode: -Zone- procedure [zH: Handle, node: Base relative pointer]; 

SetScanLineLength: -LsepFace- procedure [scanLineWords: ScanWordsPerLine]; 

SetScanLineLength: -RavenFace- procedure [activeWordsEachScanline: [1..256]]; 

SetSearchPath: -MFile- procedure [SearchPath] 
returns [succeeded: boolean <- true]; 

SetSecondaryCredentials: -FileTransfer- procedure [ 

conn: Connection, connectName: long string, connectPassword: long string]; 

SetSelection: -FormSW- procedure [ 

sw: window.Handle, index: cardinal, first: cardinal, last: cardinal]; 

SetServiceOata; -NSSessionControl- procedure [ 

session: NSFiie.Session, id: ServicelD, data: ServiceData, 
handler: TerminationHandler]; 

SetSeverity: -MsgSW- procedure [sw: window.Handle, severity: Severity]; 

Setsibling: --W/ndow-- procedure [window: Handle, newSibling: Handle] 

RETURNS [oldSibling: Handle]; 

SetSize: --F//e-- procedure [file: File, size: PageCount]; 

SetSize: -FileWindow- procedure [sw: window.Handle, box: window.Box]; 

SetSizeInBytes: -NSSegment- procedure [ 

file: NSFiie. Handle, bytes: ByteCount, segment: ID <-defaultlD, 
session: Session nullSession]; 

SetSizeInPages: -NSSegment- procedure [ 

file: NSFiie. Handle, pages: PageCount, segment: ID <-defaultlD, 
session: Session nullSession]; 

SetSourceMenu: -FileWindow- procedure [menu: Menu. Handle]; 

SetSST: -Stream- procedure [sH: Handle, sst: SubSequenceType]; 

SetSSTProcedure: -Stream- type = procedure [sH: Handle, sst: SubSequenceType]; 

SetState: -Log- procedure [state: State]; 

SetState: -UserTerminal- procedure [new: State] returns [old: State]; 

SetStickyFlags: -Fea/- procedure [new: ExceptionFlagse-NoExceptions] 

RETURNS [old: ExceptionFlags]; 

SetStreamTimeout: -NSDataStream- procedure [ 

stream: Handle, waitTimelnSeconds: long cardinal]; 

SetStringIn: -Userlnput- procedure [ 

window: window.Handle, proc: StringProcType] returns [old: StringProcType]; 

SetStringOut: -Userlnput- procedure [ 

window: window.Handle, proc: StringProcType] returns [old: StringProcType]; 

SetSwapCtrlAndCommand: -Profile- procedure [boolean]; 

SetSwitches: -HeraldWindow— procedure [new: System. Switches]; 

SetSwitches: -OthelloOps- procedure [ 

file: Fiie.File, firstPage: Fiie.PageNumber, switches: System.Switches] 
returns [SetGetSwitchesSuccess]; 

SetTabs: -AsciiSink- procedure [ 

sink: Textsink.Handle, tabStops: TabStops<-NiL]; 

SetTagPlaces: -FormSW- procedure [ 
items: Item Descriptor, 

tabStops: long descriptor for array cardinal of cardinal, bitTabs: boolean]; 

SetTimeout: -Process- procedure [ 

condition: long pointer to condition, ticks: Ticks]; 
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SetTimeoutProcedure:--Stream- TYPE = procedure! 
sH; Handle, waitTime: Milliseconds]; 

SetTimes: -MFile- procedure [ 

file: Handle, create: Time.Packed <-System.gmtEpoch, 

read: Time.Packed <-System.gmtEpoch, write: Time.Packed «—System.gmtEpochj; 

SetTrashBin: -Selection- procedure [ 

pointer: long pointer, conversion: ConvertProcType, 
clear: ClearTrashBinProcTypej; 

SetType: -MFile- procedure [file: Handle, type: Type); 

SetTypeIn: -FormSW- procedure [ 

sw: Window. Handle, index: cardinal, position: cardinal]; 

SetTypescriptSize: -FileSW- procedure ( 
sw: window.Handle, size: long cardinal]; 

SetUser: -Profile- procedure [ 

name: String «-noChange, password: String <- noChange]; 

SetUserAbort: -Userinput- procedure [wmdow. Handle]; 

SetVolumeBootFile: -OthelloOps- procedure [ 

file: Piie.File, type: BootFileType, firstPage: Fiie.PagelSIumber]; 

SetWaitTime: -A/etworkStream- procedure [sH: stream. Handle, time: WaitTime]; 

SetWaitTimes: -PacketExchange- procedure [ 

h: ExchangeHandle, waitTime: WaitTime, retransmissioninterval: WaitTime]; 

SetWriteProtect: -MP/7e- procedure [file: Handle, writeProtected: boolean]; 

Severity: -F/7erransfer- type = {verbose,terse,warning,fatal}; 

Severity:-MsgSW- TYPE = {info, warning, fatal}; 

ShareBlock: -MStream- procedure [ 

stream: Handle, start: MFiie.ByteCount, length: cardinal] 

RETURNS [block: Environment.Block]; 

Shift: -Display- procedure [ 

window: Handle, box: window.Box, newPlace: Window. Place]; 

ShortBlock: -Stream- error; 

ShortControlLink:-Pr/ncOps- TYPE = machine dependent record [ 

SELECT overlaid Control Li nkTag from 

frame = > [frame(0:0..15): LocalFrameHandle], 

procedure = > null, 

indirect = > [ 

SELECT OVERLAID * FROM 

port = > [port(0:0..15): PortHandle], 
link = > [iink(0:0..15): pointer to ControlLink], 
endcase], 
rep = > [ 

fill0(0:0..13): [0..37777B], 
indirect(0:14..14): boolean, 
proc(0:15..15): boolean], 
endcase]; 

ShortCopyREAD: -DebugilsefulDefs- procedure [ 

from: ClientSource, nwords: cardinal, to: LocalDest]; 

ShortCopyWRITE: -DebugilsefulDefs- procedure [ 

from: LocalSource, nwords: cardinal, to: ClientDest]; 

ShortREAD: -DebugilsefulDefs- procedure [Ioc: ClientSource] 

RETURNS [val: unspecified]; 

ShortWRITE: -DebugilsefulDefs- phoceourb [Ioc: ClientDest, val: unspecified); 

Sides:-F/oppy- TYPE = (one, two, default}; 

siemens9750: -RS232CCorrespondents- RS232CEnvironment. Correspondent; 

Signal: -BackstopNub- type [2]; 

SignalMsg: -BackstopNub- type [1]; 
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SignalRemoteError: --Courier- error [ 

errorNumber: cardinal, arguments: Parameters <—nullParameters]; 
SimpleGredentials:--A/SA/ame- TYPE = NameRecord; 

SimpleDestroyProc: -Context- DestroyProcType; 

SimpleVerifier:--A/SA/ame-- TYPE = HashedPassword; 

Sin: -RealFns- procedure [radians: real] returns [sin: real); 

SinDeg: ~/?ea/Fns- procedure [degrees: real] returns [sin: real]; 

SingleDoubie: -On/zneD/agnost/cs-TYPE = {single, double}; 

SingleLineBand:-i-sepFace- TYPE = long pointer; 

Sink: -NSDataStream- type = record] 

SELECT type: * from 

proc = > [proc: procedure [SourceStream]], 
stream = > [stream: SinkStream], 
none = > null, 
endcase]; 

Sink: “/\/SF//e— TYPE = NSDataStream.Sink; 

SinkStream:-A/SDafaStream- TYPE = record [Handle]; 
sizeInBytes:-A/SAss/gnec/Types-AttributeType = 16; 
sizeInPages:-A/SAss/gnedrypes-AttributeType = 26; 

SizeOfSerializedOata: -A/SA/ame- procedure [parameters: Courier.Parameters] 
returns [sizelnWords: cardinal]; 

SkipBand: -LsepFace- procedure; 

SkipToNext: -FormSW- procedure [sw: Window. Handle]; 

Sleep: -FormSW- procedure [window. Handle]; 

Slide: -Window- procedure [window: Handle, newPlace: Place]; 

SlideAndSize: -Window- procedure [ 

window: Handle, newBox: Box, gravity: Gravity <—nw]; 

SlideAndSizeAndStack: -Window- procedure [ 

window: Handle, newBox: Box, newSibling: Handle, newParent: Handle e- nil, 
gravity: Gravity«— nw]; 

SlideAndStack: -Window- procedure [ 

window: Handle, newPlace: Place, newSibling: Handle, newParent: Handle «- 

nil]; 

Slidelconically: -W/nc/ow— procedure [window: Handle, newPlace: Place]; 

Slot:-Hera/dW/ndow- TYPE = long pointer to SlotObject; 

SlotObject: -HeraldWindow- type; 

smallAnonymousBackingFile: -P//otSw/tcbes-AnonymousBackingFileSize = 173C; 
SmallestNormalizedNumber: -Real- real; 

SocketNumber: -Format- procedure [ 

proc: StringProc, socketNumber: System. SocketNumber, format: NetFormat, 
clientData: long pointer <- nil]; 

SocketNumber: -Put- procedure [ 

h: Window. Handle <- nil, socketNumber: System. SocketNumber, format: 
NetFormat]; 

SolicitClock:-tsepFace- procedure; 

SolicitPaperSource: -LsepFace- procedure [paperSource: PaperSource]; 
SolicitStatus: -LsepFace- procedure; 

SolicitStatus: -RavenFace- procedure; 

Sort: -GSort- procedure [ 

get: GetProcType, put: PutProcType, compare: CompareProcType, 
expectedItemSize: cardinal <—30, maxItemSize: cardinals- 1000, 
pagesInHeap: cardinals- 100]; 

SortItemPort: -GSort- type = port [len: cardinal] returns [p: long pointer]; 
SortStarter: -GSort- type = port [ 

nextitem: long pointer to SortItemPort, put: PutProcType, 
compare: CompareProcType, expectedItemSize: cardinal <—30, 
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maxItemSize: cardinals— 1000, pagesInHeap: cardinal «— 100] 

RETURNS [p: LONG POINTER]; 

SortStopper:--GSoft- TYPE = port [len; cardinal «-0]; 

Source: -NSDataStream- type = record [ 

SELECT type: * FROM 

proc = > (proc: procedure [SinkStream]], 
stream = > [stream: SourceStream], 
none = > null, 
endcase]; 

Source: -NSFile- type = NSDataStream. Source; 

Source: -Selection- type = long pointer to SourceObject; 

SourceEditProc: -FormSW- FilterProcType; 

SourceHandle:--formSW-- TYPE = long pointer to source ItemObject; 

Sourceltem: -FormSW- procedure [ 

tag: long string «- nil, readonly: boolean «- false, invisible: boolean false, 
drawBox: boolean «- false, hasContext: boolean <- false, 
inHeap: boolean false, place: window.Place «- nextPlace, 
boxWidth: cardinal <—defaultBoxWidth, 
filterProc: FilterProcType SourceEditProc, 

menuProc: MenuProcType «-\/anillal\/lenuProc, source: TextSource. Handle, 
z: UNCOUNTED ZONE «- NIL] RETURNS [SourceHandle]; 

SourceObject: -Selection- type = record [ 

data: long pointer, proc: SourceProc, destroy: DestroyProc]; 

SourceProc: -Selection- type = procedure [ 
data: ClientData, string: long string]; 

SourceStream:--/VSOataStream-- TYPE = record [Handle]; 

SP: -Ascii- character = 40C; 

SpaceProblem:--A/SF//e--TYP£ = machine dependent{ 
allocationExceeded, attributeAreaFull, mediumFull}; 
sparel: -Event- readonly Supervisor.SubsystemHandle; 
spare 1: -EventTypes- Supervisor.Event; 
spare2: -Event- readonly Supervisor.SubsystemHandle; 
spare2: -EventTypes- Supervisor.Event; 
spare3: -Event- readonly Supervisor.SubsystemHandle; 
spare3: -EventTypes- Supervisor.Event; 
spare4: -Event— readonly Supervisor.SubsystemHandle; 
spare4: -EventTypes- Supervisor.Event; 
spareS: -Event- readonly Supervisor.SubsystemHandle; 
spareS: -EventTypes— Supervisor.Event; 

SpareEvents:--fverttrypes-- TYPE = [1000..177776B]; 

SplitNode: -Zone- procedure [zH: Handle, p: long pointer, n: BlockSize] 

RETURNS [s: Status]; 

Spooler: -NSPrint- type = machine OEPENOENT{available, busy, disabled, full}; 

sppAttn: -ProtocolCertification- Stage; 

sppConnect: -ProtocolCertification- Stage; . 

sppDuplex: -ProtocolCertification- Stage; 

sppListen: -ProtocolCertification- Stage; 

sppMulti: -ProtocolCertification- Stage; 

sppOutOfSeq: -ProtocolCertification- Stage; 

sppProbing: -ProtocolCertification- Stage; 

sppRetrans: -ProtocolCertification- Stage; 

sppSink: -ProtocolCertification- Stage; 

sppSource: -ProtocolCertification-Stage; 

sppSst: -ProtocolCertification- Stage; 

sppThruput: -ProtocolCertification- Stage; 

SqRt: -RealFns- procedure [real] returns [real]; 
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SrcDesc: -BitBIt- type = machine dependent record [ 

SELECT OVERLAID * FROM 

gray = > [gray(0:0..15); GrayParm], 

srcBpI = > [srcBpl(0:0..15): integer], 

endcase); 

SrcFunc: -BitBIt- type = {null, complement}; 

SSTChange: --Stream-- signal [sst: SubSequenceType, nextindex; cardinal]; 
Stack: -Window- procedure [ 

window: Handle, newSibling; Handle, newParent: Handle «— nil); 
stackDepth:-Pr/ncOps- CARDINAL = 14; 
stackSize:-HackstopA/ufa- CARDINAL = 14; 

Stage: -ProtocolCertification- type = machine dependent record [ 
mediumType{0:0..7): MediumType, 
protocol Level(0:8.15): Protocol Level, 
protocol Name( 1:0..7): Protocol Name, 
stageNumber(1:8.. 15): StageNumber]; 


END. 

StageNumber: ~Protoco/Cert/f/cat/on~ TYPE = cardinal [0.. 15]; 

Start: -Exec- procedure [handle: MLoader.Handle]; 

Start: -MLoader- procedure [Handle]; 

Start: -NSSessionControl— procedure; 

Start: -NSVolumeControl- procedure; 

Start: -RS232CControl- procedure; 

Startcounting: -SpyClient- procedure; 

StartEchoUser: -CommOnlineDiagnostics— procedure [ 

targetSystemElement: System. NetworkAddress, echoParams: EchoParams, 
eventReporter: EventReporter «— nil, 

host: System. NetworkAddressSystem.nullNetworkAddress]; 

StartEchoUser: -RemoteCommDiags- procedure [ 

host: System. NetworkAddress, targetSystemElement: System. NetworkAddress, 
echoParams: CommOnlineDiagnostics. EchoParams, 
eventReporter: CommOniineDiagnostics.EventReporter <— nil] 

RETURNS [echoUser: CommOnlineDiagnostics.EchoUserHandle]; 

Started: -DefaugUsefu/Defs-- procedure [GFHandle] returns [boolean]; 

startEnumeration: -Pouter- readonly System. NetworkNumber; 

StartFault: -Runtime- error [dest: program]; 

Startimage: -LsepFace- procedure; 

Startimage: -RavenFace- procedure [firstBand: Index]; 

StartIndexGreaterThanStopIndexPlusdne: -ByteBIt- error; 

StartingProcess: -Event- procedure [id: long string] returns [Handle]; 

Startitem: -SendDefs- procedure [handle: Handle, type: sodyDefs.ltemType]; 

StartSend: -SendDefs- procedure [ 

handle: Handle, senderPwd: long string, sender: sodyOefs.RName, 
returnTo: sodyDefs.RName «- nil, validate: boolean] returns [StartSendInfo]; 

StartSendInfo: -SendDefs- type = { 

ok, badPwd, badSender, badReturnTo, all Down}; 

StartStop: -Userlnput- type = {start, stop}; 

StartText: -SendDefs- procedure [handle: Handle]; 

StarUsage: -Spacet/sage-TYPE = Space .Usage[384.. 511]; 

State: -Log- type = machine DEPENDENT{off, error, warning, remark}; 

State:-L/serferm/na/- TYPE = {on, off, disconnected}; 

StateVector: -Pr/ncOps- type = machine dependent record [ 
stk(0:0..223): array [0..13] of unspecified, 
instbyte(14:0..7): BYTE, 
stkptr(14:8..15): BYTE, 
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data(15:0..47); select overlaid * from 
dst = > NULL, 
fault = > [ 

frame(15:0.. 15): LocalFrameHandle, 
faultData(16:0..31): select overlaid * from 

allocFault = > (fsi(16:0..15): FrameSizeIndex], 
memFault = > [memPointer(16;0..31): long pointer], 
otherFault = > [dataArray(16): array [0..0) of unspecified], 
endcase], 
endcase]; 

Statsindices: -CommOnlineDiagnostics-jyPE = { 

echoServerPkts, EchoServerBytes, packetsRecv, wordsRecv, packetsMissed, 
badRecvStatus, okButDribble, badCrc, badAlignmentButOkCrc, 
crcAndBadAiignment, 

packetTooLong, overrun, idleinput, packetsSent, wordsSent, badSendStatus, 
tooManyCollisions, lateCollisions, underrun, stuckOutput, collO, colli, coll2, 
coll3, coll4, colls, collS, coll7, collB, coll9, colli0, colli 1, coll 12, 
coll 13, coll 14, coins, spare}; 

Status: -Authenticator-TYPE = machine dependent{ 

OK, invalidVerifier, expiredVerifier, reusedVerifier, invalidCredentials, 
expiredCredentials, (177777B)}; 

Status:--F/oppyChanne/-- TYPE = machine dependent record [ 
diskChanged(0:0..0): boolean, 
tbd1(0:1..1): boolean, 
twoSided(0:2..2): boolean, 
tbd2(0:3..3): boolean, 
error(0:4..4): boolean, 
inProgress(0:5..5): boolean, 
recalibrateError(0:6..6): boolean, 
sectorTooLarge(0:7..7): boolean, 
notReady(0:8..8): boolean, 
writeProtect(0:9..9): boolean, 
deletedData(0:10..10): boolean, 
recordNotFound(0:11..11): boolean, 
crcError(0:12..12): boolean, 
track00(0:13..13): boolean, 
hardwareError(0:14..14): boolean, 
goodCompletion(0:15.. 15): boolean]; 

Status: -NSPrint- type = machine dependent{ 

pending, inProgress, completed, completedWithWarnings, unknown, rejected, 
aborted, canceled, held); 

Status: -Volume- type = { 

unknown, partiallyOnLine, closedAndlnconsistent, closedAndConsistent, 
openRead, openReadWrite}; 

Status: -Zone- type = { 

okay, noRoomInZone, nonEmptySegment, storageOutOfRange, zoneTooSmall, 
segmentTooSmall, invalidNode, invalidZone, invalidSegment, nodeLoop, 
wrongSeal, wrongVersion); 

StatusWait: --RS232C-- procedure [channel: ChannelHandle, stat: DeviceStatus] 
RETURNS [newstat: DeviceStatus]; 

StatusWait; -TTYPort- procedure [channel: ChannelHandle, stat: DeviceStatus] 
RETURNS [newstat: DeviceStatus]; 

stdDandelionMemorySize:-P/ZotSw/tches-PilotDomainA = 71C; 

Stop: -RS232CControl- procedure [suspendActiveChannels: boolean]; 

StopBits; -RS232C- type = RS232CEnvironment.StopBits; 

StopBits:--/?S232CEnv/ronment- type = [1..2]; 
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StOpBitS:-7TyPoft"TYPE = TTYPortEnvironment.StOpBitS; 

StopBits:--TTYPoftfnv/ronment-XYPE = {none, one, oneAndHalf, two}; 
StopCounting; -SpyClient- procedure; 

Stopimage: -LsepFace- procedure; 

Store: -Cursor- procedure [Handle]; 
store: —EventTypes— Supervisor. Event; 

Store: -NSFile- procedure [ 

directory: Handle, source: Source, 

attributes: AttributeList«- nullAttributeList, controls: Controls <— [], 
session: Session «-nullSession] returns [file: Handle); 

StoreCursor: -HeraldWindow- procedure [ 

slot: Slot, cursor: long pointer to userTernmnai.CursorArrayj; 

StoreStream: -FileTransfer- procedure [ 

conn: Connection, remote: FiieName.VFN, veto: VetoProc «- nil, 
showDates: boolean <- false, stream: stream.Handle, creation: Time.Packed, 
bytes: long cardinal, fileType: FileType); 

StreamType:--P/Velrans/er-- TYPE = (remote, local, temporary); 

String: -MDSStorage- procedure [nchars: cardinal] returns [s: string]; 

String:-A/SP//e— TYPE = NSString. String; 

String:-WSA/ame-- TYPE = NSString.String; 

String: -A/SPr/nt- type = NSString.String; 

String: -NSString- type = record [ 

bytes: long pointer to packed array cardinal of EnvIronment.Byte, 
length: cardinal <- 0, 
maxlength: CARDINAL <-,0]; 

String:-Prof/Ve- TYPE = long string; 

String; -Storage- procedure [nchars: cardinal] returns [s: long string]; 

StringBody: -NSVolumeControl- type = machine dependent record [ 

length(0:0..15): cardinal, bytes(l): packed array [0..0) of Environment.Byte]; 
StringBoundsFault: -A/SStr/ng- signal [old: String, increaseBy; cardinal] 

RETURNS [new: String]; 

StringBoundsFault: --Str/ng-- signal [s; long string] returns [ns: long string]; 
StringEditProc: -FormSW- FilterProcType; 

StringExpToOecimal: -DebugUsefulDeh- procedure [long string] 

RETURNS [integer]; 

StringExpToLDecimal: -DebugUsefulDefs- procedure [long string] 

RETURNS [long INTEGER]; 

StringExpToLNum: -DebugUsefulDefs- procedure [ 

exp: LONG STRING, radix; cardinal] returns [long unspecified]; 

StringExpToLOctal: -DebugUsefulDefs- procedure [long string] 

RETURNS [long CARDINAL]; 

StringExpToNum: -DebugUsefulDefs- procedure [ 

exp: LONG STRING, radix: cardinal] returns [unspecified]; 

StringExpToOctal: -DebugUsefulDefs- procedure [long string] 

RETURNS [cardinal]; 

StringFeedback:--FormSW-- TYPE = (normal, password); 

StringForErrorCode: -MailParse- procedure [code: ErrorCode, s; long string]; 
StringFromMesaString: -NSString- procedure [s: MesaString] returns [String]; 
StringHandle:-FormSW- TYPE = long pointer to string ItemObject; 

Stringitem; -FormSW- procedure [ 

tag; long string <- nil, readonly; boolean <- false, invisible: boolean e- false, 
drawBox: boolean <— false, hasContext: boolean <— false, 
inHeap; boolean <— false, place: window.Place <- nextPlace, 
feedback: StringFeedback <-normal, boxWidth: cardinal <-defaultBoxWidth, 
fiiterProc: FilterProcType StringEditProc, 

menuProc: MenuProcType «—VanillaMenuProc, string; long pointer to long 
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STRING, 

z: UNCOUNTED ZONE <- Nil] RETURNS [StringHandle]; 

StringLength: --MDSStorage- procedure [s: long string] returns [cardinal]; 

StringLength; -Storage- procedure [s: long string] returns [cardinal]; 

StringLength: -String- procedure [s: long string] returns [cardinal]; 

StringOut: -Userinput- procedure [window: Window. Handle, string: long string]; 

StringProc: -Format- type = procedure [ 

s: LONG STRING, clientData: long pointer «- nil]; 

StringProcType:--L/ser/nput-- TYPE = procedure] 
window: Window. Handle, string: long string]; 

StringToDecimal: -ExtendedString- proczdurb [ 

field: long pointer, size: cardinal, string: long string]; 

StringToDecimal: -NSString- procedure [s: String] returns [integer]; 

StringToDecimal: -String- procedure [s: long string] returns [integer]; 

StringToHostNumber: -AddressTranslation- procedure [long string] 

RETURNS [System. HostNumber]; 

StringToLongNumber: -NSString- procedure [s: String, radix: cardinal <- 10] 
RETURNS [long UNSPECIFIED]; 

StringToLongNumber: -String- procedure [s: long string, radix: cardinal «- 10] 
RETURNS [long UNSPECIFIED]; 

StringToNetworkAddress: -AddressTranslation- procedure [ 
s: LONG STRING, defaultCHPID: cn.PropertylD «- 0, 
distingName: NSName.Name<-NiL] 

RETURNS [addr: NetworkAddress, chUsed: boolean, usedCHPID: CH.PropertylD]; 

StringToNetworkNumber: -AddressTranslation- procedure [long string] 

RETURNS [System. NetworkNumber]; 

StringToNumber: -ExtendedString— procedure [ 

field: long pointer, size: cardinal, base: cardinal, string: long string]; 

StringToNumber: -NSString- procedure [s: String, radix: cardinals— 10] 

RETURNS [unspecified]; 

StringToNumber: -String- procedure [s: long string, radix: cardinal <— 10] 

RETURNS [unspecified]; 

StringToOctal: -ExtendedString- procedure [ 

field: long pointer, size: cardinal, string: long string]; 

StringToOctal: -NSString- procedure [s: String] returns [unspecified]; 

StringToOctal: -String- procedure [s: long string] returns [unspecified]; 

StringToPacked: --Date-- procedure [ 

s: long string, zoneFormat: Time.TimeZoneStandard <— ANSI] 
returns [dt: Packed, notes: Notes, length: natural]; 

StringToReal: -Real- procedure [long string] returns [real]; 

StuffCharacter: -Userinput- procedure [window: window. Handle, char: character] 
returns [boolean]; 

StuffCurrentSelection : -Userinput- procedure [window: window.Handle] 

RETURNS [boolean]; 

stuffstring: -Userinput- procedure [ 

window: window.Handle, string: long string] returns [boolean]; 

StuffTrashBin: -Userinput- procedure [window: window.Handle] 
returns [boolean]; 

SubdivideName: -NSName— procedure [ 

s: String, callBack: procedure [Name], clientDefaults: Name<— nil]; 

SubSequenceType:-Stream-TYPE = [0..255]; 

Substring: -Format— procedure [ 

proc: StringProc, ss: String. Substring, clientData: long pointer <- nil]; 

Substring: -NSString- type = long pointer to SubStringDescriptor; 

Substring: -Put- procedure [h: window.Handle nil, ss: string. Substring]; 

Substring:-Stf/ng- TYPE = long pointer to SubStringDescriptor; 
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SubStringDescriptor:-A/SStr/ng- TYPE = record [ 
base: String, offset; cardinal, length: cardinal]; 

SubStringDescriptor:--String-- TYPE = record [ 

base: long string, offset: cardinal, length: cardinal]; 

SubsystemHandle; -Supervisor- type [1]; 

subtrees!ze:-WS/Ass/gnedrypes-AttributeType = 27; 

subtreeSizeLimit:-WSAss/gnedrypes-AttributeType = 28; 

SubVolume:-Otbe/ZoOps- TYPE = record [ 

IvID: Volume. ID, 

subVolumeSize: voiume.PageCount, 
firstLVPagelMumber; LogicalVolumePagelMumber, 
firstPVPageNumber: Physicaivoiume.PageNurnber]; 

SubVolumeUnknown; -OthelloOps- error [sv: SubVolume]; 

Suspend: -RS232C- procedure [channel; ChannelHandle, class: OperationClass]; 
Suspend Reason: -NetworkStream- type = { 

notSuspended, transmissionTimeout, noRouteToDestination, 
remoteServiceDisappeared}; 

SVPointer: ~PrincOps~TYPE = pointer to StateVector; 

Swap; -Cursor- procedure [old; Handle, new: Handle]; 
swapCancelled: -EventTypes- Supervisor. Event; 
swapCtrlAndCommand; -Profile- readonly boolean; 

SwapNames: -MFile- procedure [f1: Handle, f2: Handle]; 
swapping: -Event- readonly Supervisor.SubsystemHandle; 

SwapReason: -BackstopNub- type [1]; 

SwapUnitOption:-MSegment- TYPE = space. SwapUnitOption; 

SwapUnitOption: -Space- type = record] 

body; select swapUnitType: SwapUnitType from 
unitary = > null, 

uniform = > [size: SwapUnitSize <—defaultSwapUnitSize], 

irregular = > [sizes; long descriptor for array [0..0) of SwapUnitSize], 

endcase]; 

SwapUnitSize;-MSegment- TYPE = Space.SwapUnitSize; 

SwapUnitSize:-Space- TYPE = cardinal; 

SwapUnitType:-MSegment- TYPE = space.SwapUnitType; 

SwapUnitType:-Space- TYPE = {unitary, uniform, irregular}; 

SwapValue: -BTree- procedure [ 

tree; Tree, name: long string, oldValue: Value, newValue: Value] 
returns [ok: boolean]; 

switches: -HeraldWindow- readonly System. Switches; 

SwitchName:-P/7otSw/tcbes- TYPE = character; 

SyncChar: -RS232C- type = RS232CEnvironment.SyncChar; 

SyncChar:-RS2J2CEnv/ronment- TYPE = Environment.Byte; 

SyncCount: -RS232C- type = RS232CEnvironment.SyncCount; 

SyncCount;-f?S232C£nv(ronment-TYPE = [0..7]; 
system6; -RS232CCorrespondents- RS232CEnvironment. Correspondent; 
SystemElement;-Courier- TYPE = System. NetworkAddress; 
systemElement:-WSAss/gnedrypes-AttributeType = 29; 

SystemElement;-WSF/7e- TYPE = System. NetworkAddress; 

SystemElement:-WSPrint- TYPE = System. NetworkAddress; 
SystemElementlsLocal: -WSSess/onContro/- procedure [ 
systemElement: NSFiie.SystemElement] returns [boolean]; 
systemFont: -EventTypes- Supervisor. Event; 

SystemID: -Volume— procedure returns [ID]; 
systemID: —Volume— readonly ID; 
systemMDSZone; -Heap- readonly M DSZone; 
systemVolume: -NSVolumeControl— readonly voiume.lD; 
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systemZone: -Heap- readonly uncounted zone; 

T10:--/CeyStaf/ons--Bit = 105; 

T1: -Keystations- Bit = 98; 

T2: --KeyStat/ons--Bit = 97; 
tSOO; -DeviceTypes — Device, Type; 

tSOOpagesPerCylinder; -FormatPilotDisk- cardinal = 570; 

T3: -Keystations-Bit = 99; 

T4:-/CeyStat/ons--Bit = 100; 

T5: -Keystations- Bit = 101; 

T6: -/feyStat/ons-Bit = 102; 

T7: -Keystations-Bit = 103; 
tSO: --Dev/ceTypes- Device.Type; 

tBOpagesPerCylinder:-FofmatP;7ofD/s/f-- CARDINAL = 150; 

T8: -Keystations-Bit =104; 

T9; -Keystations- Bit = 109; 

TAB: --ASC/7-- CHARACTER = 11C; 

Table: -StringLookUp-rypc = array cardinal of long string; 

TahleDesc:-StringLookUp-TYPE = long descriptor for Table; 

TableError: -CmFile- signal [h: Handle, name: long string]; 

TabStops: -AsciiSink- type = long descriptor for array cardinal of cardinal; 
TagOnlyHandle:--FormSW-TYPE = long pointer to tagOniy ItemObject; 
TagOnlyltem: -FormSW- procedure [ 

tag: long string <- nil, readonly: boolean «- false, invisible; boolean false, 
drawBox: boolean false, hasContext; boolean «— false, 
place: window.Place <- nextPlace, otherltem: cardinal <— nullindex, 
z; UNCOUNTED ZONE <— NIL] RETURNS [TagOnlyHandle]; 

TajoDefaultEvents;--fventTypes-- TYPE = [300 .399]; 
tajoDefaults: -Event- readonly Supervisor.SubsystemHandle; 

Tan: --Pea/Fns-- procedure [radians: real] returns [tan: real]; 

TanOeg: --l?ea/Fns- procedure [degrees: real] returns [tan; real]; 

Target; -Se/ect/on-- type = machine dependent{ 

window, subwindow, string, source, length, position, pieceList, longinteger, 
interpressMaster, potentialInterpressMaster, token, firstFree, last(255)}; 
tBackstopDebuggee; -CommonSoftwareFileTypes— Fiie.Type; 
tBackstopDebugger: -CommonSoftwareFileTypes- Fiie.Type; 
tBackstopLog; -CommonSoftwareFileTypes- Fiie.Type; 
tBen: -PerformanceToolFileTypes- Fiie.Type; 
tCarryVolumeDirectory; -CommonSoftwareFileTypes- Fiie.Type; 
tClearingHouseBackupFile: -CommonSoftwareFileTypes- Fiie.Type; 
tDirectory: -CommonSoftwareFileTypes— Fiie.Type; 
tDirectory;--A/Si4ss/gnec7rypes--FileType = 1; 
teleDebugSocket: -NSConstants- System. SocketNumber; 
tellFileSystemSwappingIn: -EventTypes- Supervisor. Event; 
teilFileSystemSwappingOut: -EventTypes- Supervisor. Event; 
tEmpty: -NSAssignedTypes- FileType = 4; 

TerminationHandler:-/VSSess/onContro/-- type = procedure] 

session: NSFiie.Session, id: ServicelD, data: ServiceData, reason: Reason]; 
TestFileType: -F/7eTypes-- type = cardinal [768..895]; 

Text: -DebugUsefulDefs- Format.StringProc; 

Text: -Display- PROCEDURE [ 

window: Handle, string: long string, place: Window.Place, 
font: windowFont.Handle«— nil, lineLength: integer <— infinity, 
flags: BitBItFlags «-textFlags, bounds; window.BoxHandle <- nil] 

RETURNS [newPlace; window.Place]; 

Text: -Format- procedure [ 

proc; StringProc, s: long string, clientData; long pointer «— nil]; 
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Text: -Put- procedure [h; window.Handle «- nil, s: long string]; 

textFlags: -Display— BitBitFlags; 

Textinline: -Display- procedure [ 

window: Handle, string: long string, place: window.Place, 
font: windowFont.Handle «- nil, lineLength: integer <- infinity, 
flags: BitBitFlags «—textFlags, bounds: window.BoxHandle<— nil] 

RETURNS [Window.Place]; 

tFileList: -CommonSoftwareFileTypes- Fiie.Type; 

ThreePartName:--CH-TYPE = NSName.NameRecord; 

Ticket: -NSDataStream- type [11]; 

Ticks: -Process— type = cardinal; 

TicksToMsec: -Process- procedure [ticks: Ticks] returns [msec: Milliseconds]; 

Time:--A/Sf/7e-- TYPE = System. GreenwichMeanTime; 

Time: -NSPrint- type = long cardinal; 

Timeout: -NSFile- type = Process.Seconds; 

Timeout: -PacketExchange- signal; 

TimeOut: --Stream-- signal [nextindex: cardinal]; 

TimeServerError: -OthelloOps- error [error: TimeServerErrorType]; 

TimeServerErrorType: -OthelloOps- type = { 
noCommunicationFacilities, noResponse}; 

timeServerSocket: -NSConstants- System. SocketNumber; 

Timestamp: -BodyDefs- type = machine dependent record [ 

net(0:0..7): [0..255], host(0:8..15): [0..255], timed :0..31); PackedTime]; 

tinyDandelionMemorySize:-P/'/otSw/tches-PilotDomainA = 63C; 

TIPCSourceDate: -MFileProperty- MFiie. Property; 

TitleMatch; -CmFile- procedure [buffer; long string, title: long string] 

RETURNS [matches: boolean]; 

ToggleFlag: -FormSW- procedure [ 

sw; Window.Handle, index: cardinal, flag; Flag]; 

ToggleVisibility; -FormSW- procedure [sw: window.Handle, index: cardinal]; 

toolWindow: -Event— readonly Supervisor.SubsystemHandle; 

ToolWindowEvents;-fventrypes- TYPE = [600..699]; 

TooManyProcesses: -Process- error; 

Trajectory; -Display- procedure [ 

window: Handle, box: window.Box Window.nullBox, proc: TrajectoryProc, 
source: long pointer nil, bpi; cardinal <- 16, height: cardinal 16, 
flags; BitBitFlags *— bitFlags, missesChiidren: boolean «— false, 
brick: Brick <— nil]; 

TrajectoryProc:-O/sp/ay- TYPE = procedure [Handle] 
returns [Window.Box, INTEGER]; 

TransferProblem: -WSf/Ve-TYPE = machine dependent{ 

aborted, checksumincorrect, formatincorrect, noRendezvous, wrongDirection}; 

TransferProblem: -WSPr/nt-TYPE = machine dependent{ 

aborted, formatlncorrect(2), noRendezvous, wrongDirection}; 

TransferStatus: -PS232C-TYPE = { 

success, dataLost, deviceError, frameTimeout, checksumError, parityError, 
asynchFramingError, invalidChar, invalidFrame, aborted, disaster}; 

TransferWait: -RS232C- procedure [ 

channel: ChannelHandle, event: CompletionHandle] 

RETURNS [byteCount: cardinal, status; TransferStatus]; 

TransmitNow: -RS232C- procedure [ 

channel: ChannelHandle, event: CompletionHandle] 

RETURNS [byteCount: cardinal, status: TransferStatus]; 

trapLink: -PrincOps- ControlLink; 

TrapLink: -Pr/ncOps-ControlLink; 

TrapNonTrappingNaN: -Rea/- long cardinal = 1; 
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TrappingNaN: -Real- real; 

TrapTrappingNaN: --/?ea/-- long cardinal = 2; 

Tree: -BTree- type = long pointer to TreeObject; 

TreeObject: --BTree-- type; 

TrimBoxStickouts: -Window- procedure [window: Handle, box: Box] returns [Box]; 
TrinityFiieEntry: -ScavengerExtras- type = machine dependent record [ 
file(0:0..79): System. UniversallD, 
numberOfProblems(5:0.. 1 5): cardinal, 
problems(6): array [0..0) of Scavenger.Problem]; 

TrinityHeader: -Scavengerfxtras-TYPE = machine dependent record [ 
volume(0:0..79): Volume. ID, 
date(5:0..31): System, GreenwichMeanTime, 
incomplete(7:0..14): boolean, 
repaired(7:15.. 15): boolean, 
numberOfFiles(8:0..31): long cardinal]; 

TruncateString: -NSString- procedure [s: String, bytes: cardinal] 

RETURNS [String]; 

tScavengerLog: -Scavenger- readonly Fiie.Type; 
tScavengerLogOtherVolume: -Scavenger- readonly Fiie.Type; 
tSerialized: -WSAss/gnedTypes-FileType = 3; 
tText: -NSAssignedTypes- FileType = 2; 

ttyHost: -RS232CCorrespondents- RS232CEnvironment. Correspondent; 
tUnassigned: -CommonSoftwareFileTypes- Fiie.Type; 
tUnassigned: -FileTypes- Fiie.Type; 
tUnspecified: -NSAssignedTypes-fWeJype = 0; 
tUntypedFile: -FileTypes- Fiie.Type; 

tVolumeConversionLog: -VolumeConversion- readonly Fiie.Type; 
tWillard: -PerformanceToolFileTypes- Fiie.Type; 

Type:-Context- TYPE = machine dependent{ 
all, first, lastAllocated(37737B), last(37777B)}; 

Type:-Cursor- TYPE = machine dependent{ 

activate, blank, bullseye, confirm, crossHairsCircle, ftp, ftpBoxes, 
hourGlass, lib, menu, mouseRed, mouseYellow, mouseBlue, mtp, pointDown, 
pointLeft, pointRight, pointUp, questionMark, retry, scrollDown, scrollLeft, 
scrollLeftRight, scrollRight, scrollUp, scrollUpDown, textPointer, typeKey, 
groundedText, last(255)}; 

Type: -Dev/ce-TYPE = private record [cardinal]; 

Type: -File- type = record [cardinal); 

Type:-TormSW- TYPE = {fixed, relative}; 

Type: -Heap— type = {normal, uniform, mds}; 

Type: -togF/Ve- TYPE = machine DEPENDENT{nuil, block, string, (63)}; 

Type:-MF//e- TYPE = machine dependent{ 

unknown, text, binary, directory, null(255)}; 
type:-WSAss/gnecfTypes-AttributeType = 17; 

Type: -NSFile- type = long cardinal; 

Type:-Scro//bar- type = {horizontal, vertical}; 

Type: -Volume- type = machine dependent{ 

normal, debugger, debuggerDebugger, nonPilot}; 

TypeSet:-\/o/ume- TYPE = packed array Type of BooleanDefaultFalse; 
ubBootServeeSocket: -NSConstants- System. SocketNumber; 
ubBootServerSocket: -NSConstants— System. SocketNumber; 
ubIPCSocket: -NSConstants— System. SocketNumber; 

UOOivMod: -Inline- procedure [num: long cardinal, den: long cardinal] 
returns [quotient: long cardinal, remainder: long cardinal]; 

UnboundLink: -PrincOps- ControlLink; 
unboundLink: -PrincOps- ControlLink; 


C-121 




c 


Listing of Public Symbols 


UnboundProcedure: -Runtime- signal [dest; ControlLink]; 

UndefinedProblem: --A/Sf//e- type = cardinal; 

UndefinedProblem:--A/SPr/nt- TYPE = cardinal; 

UnderChangedProc: -Window— type = procedure [Handle, Box]; 
UnexportExpeditedPrograms: -ExpeditedCourier- procedure [ 
h: ExpeditedServiceHandiej; 

UnexportRemoteProgram: -Courier- procedure [ 

programNumber; long cardinal, versionRange: VersionRangej; 
UnifyAccessLists: -NSFile- procedure [ 

directory: Handle, session: Session «-nullSessionj; 

UnimplementedFeature: -RS232C- error; 

Uninstantiate: -Menu- procedure [menu: Handle, window: Window. Handle]; 
Unintelligible: -Date— error [vicinity: natural]; 

UniqueAction: -Caret— procedure returns [Action]; 

UniqueAction: -Selection- procedure returns [Action]; 
uniqueConnID: -NetworkStream- readonly ConnectionID; 
uniqueNetworkAddr: -NetworkStream- readonly System. NetworkAddress; 
uniqueSocketID: -NSConstants- System. SocketNumber; 

UniqueTarget: -Selection- procedure returns [Target]; 

UniqueType: --Context-- procedure returns [type: Type]; 

UniqueType: -Cursor- procedure returns [Type]; 

UniversallD: --System- type [5]; 

Unknown: -File- error [file: File]; 

Unknown: -Volume- error [volume: ID]; 
unknownChecksum: -A/SF/7e— cardinal = 177777B; 

UnknownCommandFile: -Expand— signal [name: long string] returns [long string]; 
unknownConnID: -NetworkStream- readonly ConnectionID; 
unknownSocketID: -NSConstants- System. SocketNumber; 
unknownUsage: -Space- Usage = 0; 

unlimitedSize: -Heap-Environment.PageCount = 77777777B; 

Unload: -Exec- procedure [handle: MLoader.Handle]; 

Unload: -MLoader- procedure [Handle]; 

UnloadCommand: -Exec- procedure [h: Handle, name: long string] 

RETURNS [RemovedStatus]; 

Unlock: -NSSessionControl- procedure [session: NSFiie.Session, id: ServicelD]; 
Unmap: -Space- procedure [ 

pointer: long pointer, returnWait: ReturnWait <—wait] 

RETURNS [nil: LONG POINTER]; 

UnmapAt: -Space- procedure ( 

pointer: long pointer, returnWait: ReturnWait wait] 

RETURNS [interval: Interval]; 

UnNew: -Runtime- procedure [frame; program]; 

UnNewConfig: -Runtime- procedure [link; ControlLink]; 

UnpackFilename: -FileName- procedure [s: long string, vfn: VFN]; 
unspecified: -CH-Property ID = 0; 

UpArrowAction:-Expand- TYPE = {skip, remove, none}; 

Uppercase: -NSString- procedure (c; Character] returns [Character]; 

Uppercase: -String- procedure [c: character] returns [character]; 

Usage: -Space- type = [0..3777B]; 

useLargeHeap: -P/7otSwitchesExtras-PilotSwitches.PilotDomainB = 135C; 

User:-CHioo/cup- TYPE = machine dependent record [ 
lastNamelndex(0:0..15): cardinal, 
password(1 ;0..63); NSString. String, 
systemAdministrator(5;0..15): boolean, 
fileserver(6;0..31); NSName.Narne, 
mailserver(8:0..31): NSName.Narne, 
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description(10:0..63); NSStnng. String, 
product(14:0..63): NSString. String, 
training(18:0..63); NSStnng. String, 
help(22:0..15): boolean]; 

UserAbort: -Userinput- procedure [window.Handle] returns [boolean]; 

UserAborted: -DebugUsefulDefs- signal; 

UserDescribe: -CHLookup- Courier. Description; 

UserDotCmLine; -CmFile- procedure [title: long string, name: long string] 
returns [s: long string]; 

UserDotCmOpen: -CmFile-- procedure returns [h: Handle]; 

UserlsMember: -NSSessionControl- procedure [ 

key: NSStnng.String, type: NSFiie.AccessEntryType, session: NSFiie.Session, 
tryHard: boolean] returns [status: MembershipStatus]; 

UserPt; -CHLookup- type = long pointer to User; 

useSpecialMemory: --P/VotSiv/tc/jesfxtfas-PiiotSwitches.PilotDomainC = 372C; 

useSpecialMemorylfNoDisplay: -PilotSwitchesExtras- 
PilotSwitches.PilotDomainC = 373C; 

useStdHeap: --P»7otSw/tc/jes£xtras-- PiiotSwitches.PilotDomainA = 45C; 

useTinyHeap: --P/7ofSw/tc/iesfxtras--PiiotSwitches.PilotDomainB = 133C; 

UsingGenerator: -StringLookUp- procedure [ 

key: long string, generator: GeneratorProcType, caseFold: boolean <— true, 
noAbbreviation: boolean <— false, bufferBytes: cardinal <— 500] 
returns [index: cardinal]; 

UsingGeneratorWithBuffer: -StringLookUp- procedure [ 

key: long string, generator; GeneratorProcType, caseFold: boolean ^-true, 
noAbbreviation; boolean false, buffer: long string] 
returns [index; cardinal]; 

Usual Exceptions: -Real- ExceptionFlags; 

Valid; -DebugUsefulDefs- procedure [GFHandle] returns [boolean]; 

ValidAsMesaString: -NSString- procedure [s: String] returns [boolean]; 

Validate: -Window- procedure [window: Handle]; 

ValidateFrame: -Runtime- procedure [frame; unspecified]; 

ValidateGlobalFrame; -Runtime- procedure [frame: GenericProgram]; 

ValidateProcess: -Process- procedure [process: unspecified]; 

ValidateTree: -1/V/ndow-- procedure [window: Handle <—rootWindow]; 

ValidFilename: -MFile- procedure [name: long string] returns [ok: boolean]; 

ValidProperties: -FileTransfer- jypi = { 

host, directory, body, version, author, size, type, oldFile, readProtect}; 

Value:--STree- TYPE = long descriptor for array cardinal of cardinal; 

ValueSize:--STfee-- type = [1..31]; 

ValueTooSmall: -BTree- error [tree; Tree]; 

VanillaMenuProc; -FormSW- MenuProcType; 

Verifier; -Authenticator- type = NSName. Verifier; 

Verifier: -NSFiie— type = NSName. Verifier; 

Verifier; -NSName— type [2]; 

VersatecFileType:--F/7eTypes-- TYPE = cardinal [23400B..23477B]; 

VersatecUsage: -SpaceUsageExtras- typ£ = space .Usage[512..639]; 

version:--A/SAss/gnec/rypes--AttributeType = 18; 

VersionMismatch: -Backstop- signal; 

VersionMismatch: -Courier- error [versionRange: VersionRange]; 

VersionMismatch; --/WLoader-- signal [module: long string]; 

VersionMismatch; -/?unt/me— signal [module: long string]; 

VersionRange; -Courier- type = record [low: cardinal, high: cardinal]; 

VetoEvents: -EventTypes- type = [100..199]; 
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VetoProc: -FileTransfer- type = procedure [ 

conn: Connection, clientData: long pointer, post: MessageProc, info: InfoProc, 
showingDates: boolean] returns [confirm: Confirmation, showDates: boolean); 
VFN:--f/7eA/ame-- TYPE = VirtualFilename; 

VideoClockRate: -tsepFace-- type = machine DEPENDENT{clock1 MHz, clockSOOKHz}; 
VirtualFilename: -F//eA/ame-- type = long pointer to VirtualFilenameObject; 
VirtualFilenameObject:--F/7e/Vame--TYPE = record [ 
host: LONG STRING, 
directory: long string, 
name: long string, 
version: long string); 

virtualMemory: -Space— readonly Interval; 

VoidPhysicalVolumeBootFile: -OthelloOps- procedure [ 
pvID: PhysicaiVolume.lD, type: BootFileType); 

VoidVolumeBootFile: -OthelloOps- procedure [ 

IviD: Volume. ID, type: BootFileType); 

Volume:--/VSF//e- TYPE = System.VolurnelD; 
volumeClosed: -EventTypes- Supervisor. Event; 

VolumeHandle: -Floppy- type [2); 

volumelD:-A/SAss/gnedTypes--AttributeType = 22; 

VolumelD:--System- TYPE = record [UniversallD); 

VolumeNotClosed: -OthelloOps- error; 

VolumeNotOpen: -BTree- error [volume: volume. ID); 
volumeOpened: -EventTypes- Supervisor. Event; 

VolumeType:-Pbys/ca/Vo/ume- TYPE = { 

notPilot, probablyNotPilot, probablyPilot, isPilot}; 
voyeurSocket: -NSConstants- System. SocketNumber; 

WaitAttentionProcedure: -Stream— type = procedure [sH: Handle) returns [Byte); 
WaitForAttention: -Stream- procedure [sH: Handle] returns [Byte); 
WaitForConfirmation: -Userinput- procedure 
returns [place: window.Place, okay: boolean); 

WaitForMail: -RetrieveDefs- procedure [handle: Handle); 

WaitForRequest: -PacketExchange— procedure [ 
h: ExchangeHandle, requestBIk: Environment.Block, 
requiredRequestType: ExchangeClientType «- unspecified) 
returns [rH: RequestHandle); 

WaitForScanLine: -UserTerminal- procedure [scanLine: integer); 

WaitNoButtons: -Userinput- procedure; 

WaitTime: -WetworkStream-TYPE = long cardinal; 

WaitTime:-PacketFxcbange- TYPE = long cardinal; 

Wakeup: -FormSW- procedure [wmdow.Handle]; 

WakeUp: —RavenFace— procedure; 

WellFormed: -NSString- procedure [s: String) returns [boolean]; 

WestEast:-System- TYPE = machine DEPENDENT{vvest, east}; 

White: -Display- procedure [window: Handle, box: wmdow.Box); 
wildcard: -CH- character = 52C; 
wildcard:-A/SA/ame- CHARACTER = 52C; 
wildCardCharacter: -A/SA/ame- NSStnng. Character; 
window: -DebugUsefulDefs— readonly wmdow.Handle; 
window: -HeraldWindow— readonly window. Handle; 

Window:-Space- TYPE = record [ 

file: File.File, base: Fiie.PageNumber, count: Environment.PageCount); 
WindowForFile: -FileWindow-- procedure [fileName: long string) 
returns [window.Handle); 

WindowNowOelinked: -Scro//bar— procedure [window: window.Handle); 
WindowNowEnlinked: -Scrollbar- procedure [window: window.Handle); 
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Word:-fnwronment-- TYPE = [0..1777778]; 

Word:--Stream- TYPE = Environment. Word; 

WordBoolean:-FormSW- TYPE = record [ 

SELECT OVERLAID * FROM f1 = > [b: BOOLEAN], f2 = > [w: WORD], ENDCASE]; 

Words: -MDSStorage- procedure [nwords: cardinal] returns [base: pointer]; 

Words; -NSFile- type = long descriptor for array cardinal of unspecified; 

Words: -Storage- procedure [nwords; cardinal] returns [base: long pointer]; 
WordsForBitmapUnder: -W/nc/ow— procedure [window: Handle] returns [cardinal]; 
WordsForString: -NSString- procedure [bytes: cardinal] returns [cardinal]; 
WordsForString: -String- procedure [nchars: cardinal] returns [cardinal]; 
WordsInPacket: -CommOnlineDiagnostics- type = machine dependent{ 
allOs, all Is, incrWords, allConstant, dontCare}; 
wordsPerPage: -Environment- CARomAt = 256; 
wordsPerPage; -Space- cardinal = 256; 

Workstation:-CHtoo/cup- type = machine dependent record [ 

address(0:0..95): System. NetworkAddress, location(6:0..63): NSString.String]; 
WorkstationDescribe; -CHLookup- Courier.Description; 

WorkstationPt:-CHioo/tup— type = long pointer to Workstation; 
wpp;-/WSegment- CARDINAL = 256; 

Write: -Floppy- procedure [ 

file: FileHandle, first: PageNumber, count; PageCount, vm: long pointer]; 
WriteDeletedSectors; -FloppyChannel- procedure [ 

handle: Handle, address; DiskAddress, buffer: long pointer, 
count: CARDINALS- 1, incrementDataPtr: boolean <-true] 
returns [status: Status, countDone: cardinal]; 

WriteMsg: -CommOnlineDiagnostics- typz = procedure [msg: RS232CTestMessage]; 
WriteOnly; -MFile- procedure [ 

name: long string, release: ReleaseData, type: Type, 
initialLength: InitialLength «-dontCare] returns [Handle]; 

WriteOnly; -MStream- procedure [ 

name: long string, release: ReleaseData, type; MFiie.Type] returns [Handle]; 
WriteProc;-Ma/7Parse- TYPE = procedure [string: long string]; 

WriteProtected: -DebugilsefulDefs— brror [page: Environment.PageNumber]; 
WriteReal: -Rea/- procedure [ 

cp: procedure [character], r: real, 

precision; cardinal *- DefaultSinglePrecision, forceE: boolean <— false]; 
WriteSectors; -FloppyChannel- procedure [ 

handle: Handle, address: DiskAddress, buffer; long pointer, 
count; cardinal <— 1, incrementDataPtr: boolean true] 

RETURNS [status: Status, countDone: cardinal]; 

WriteStream: -FileTransfer- procedure [ 

conn; Connection, file: FiieName.VFN, veto: VetoProc «— nil, 

showDates: boolean false, creation: Time.Packed, type: StreamType «- remote] 

returns [stream. Handle]; 

x860ToFileServer; -NSConstants— System.SocketNurnber; 

xeroxBOO: —RS232CCorrespondents— RS232CEnvironment. Correspondent; 

xerox850: -RS232CCorrespondents- RS232CEnvironment.Correspondent; 

xerox860: -RS232CCorrespondents— RS232CEnvironment.Correspondent; 

xmtLO: -ProtocolCertification- Stage; 

xmtLI: -ProtocolCertification—Stage', 

xorBoxFIags; -Display— BitBItFlags; 

xorFlags: -D/sp/ay-BitBItFlags; 

xorGrayFlags: -Display- BitBItFlags; 

YesOrNo:-On/meD/agnost/cs- TYPE = {yes, no}; 

Yield: -Process- procedure; 

ZeroOivisor; -Runtime— signal; 
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zeroMaxLengthNames: -CH- readonly Name; 
zeroScratchMem; --P/ZotSw/tcbes-PiiotDomainA = 64C; 
ZoneTooSmall: -MDSStorage- error [p; pointer]; 
ZoneTooSmall: -Storage- error [p: long pointer]; 
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ABORT, 44-1,44-5 
abort 
tool, 44-5 
type-in, 43-4 
world swap, 42-6 

aborting a program, 5-1,5-2,5-3,5-7 
aborting an Executive command, 5-2, 5-3, 
5-7 

aborting search path change, 42-2 
active, 1-5 
address fault, 50-5 
AddressTranslation, 1-2 
AddressTranslation, 1-1 
examples, 1-5 
parsing rules, 1-4 
adjusting window, 27-4 
AND, IV-2 

Append file processing, V 
Append files, V-1 
AsciiSink, 32-1 
Atom, 2-1 

attention procedure, 44-4 
automatic tool invocation, 10-1 
backing store, 50-1 
bad phosphor list, III-2 
balance beam choice, 8-1 
batch command line, 5-1 
batch commands, 5-1,5-2,5-4,5-5,5-7 
batch Executive, 5-1 
command line input, 5-4 
commands, 5-1, 5-2,5-4,5-5,5-6,5-7 
input, 9-8 

interactive input, 5-4,5-5 
output, 5-5,5-6 
processing, 10-1 
batch input, 5-4, 5-7 
batch program, 5-1, 5-2 


batch style invocation, 1-5 
batch tool 
example, 5-7 
binary tree, 53-1 
bitmap display, 57-2 
bitmap unders, III-l 
bitmapUnder, 24-2,24-4, 24-5,24-8 
setting, 24-6 

blinking caret, 17-2, 38-1 
block source, 36-1 
boot 

aborting, 41-2 
Herald Window, 42-2 
physical volume, 42-3 
booting, 7-1, 7-3,42-2,42-3 
cancelled, 42-3 
from file, 7-2,7-3 
switches, 7-1,7-4 
broadcast host number, 1-3 
BTree, 53-1 
BTreefile, 53-1 
built-in Executive, 5-1 
byte stream, 51-1 
call-back procedures, V-1 
cancel booting, 42-3 
caret, 17-2,25-1 
blinking, 44-1 
Caret, 25-1 

change Search Path, 42-2 
changing tool state, 20-2,20-3,20-6 
character painting, 31-1 
character translation, 44-1,44-2 
child windows, III-2 
circular files, 34-2 
clearinghouse, 1-3, 8-2, 8-4 
domain, 1-3 
name lookup, 1-2 
organization, 1-3 
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clearinghouse name 
format, 1-3 
client, 1-2 
client-defined 

subwindow type, 20-1,20-5 
client-supplied print procedure, 56-3 
clipping window, 21-3, 57-1 
closing a volume 
M Volume, 52-1 
CmFile 3-1 
example, 3-1 
command 

abbreviation, 55-1,55-3 
file, 10-1 
look up, 55-1 
sequence, 10-1 
table, 55-1 

table, generated, 55-1 
command line 
input, 9-8 
processing, 9-8 

command line expansion, 5-5,6-1 
command line input, 5-4, 5-7 
command line processing, 5-1,5-2,5-3,5-4, 
5-6,5-7 

common prefix, 55-2 
common string prefix, 55-2 
compare procedure, 54-1 
Concurrency problems, V-6 
confirmation, 5-3 
connect name, 5-4,46-9 
connect password, 5-4,46-9 
monitoring changes, 41-2 
connection, 46-1,46-5,46-6 
Connection object, 1-4 
Context, 22-1 
CoPilot 

going to, 41-2, 41-4,42-6 
return to client, 41-2,41-4,42-2, 

42-6 

swap-in reason, 42-6 
swap-out reason, 42-6 
copying files, 46-1,46-5,46-9 
coroutine sort package, 54-2 
creating a stream, 51-2,51-3,51-4 
creating a tool, 20-2 
current message, 14-2 
current selection, 29-1,29-2,29-3,44-5 
manager, 29-1 
output to window, 19-2 
cursor, 43-2,43-6 
Cursor, 26-1 
cursor 

feedback, 7-1 
manipulation, 26-1 
setting, 44-1 


system-manufactured, 26-1 
user-manufactured, 26-1 
data segment, 50-4,50-7 
data sharing, 22-4 
date 

conversion to string, 4-1 
Date, 4-1 
debuggee 

examining, 56-4 
debugger 

file subwindow, 56-2 
going to, 41-2,41-4,42-5,42-6 
procedural access, 56-1 
return to client, 41-2,41-4,42-2, 
42-6 

special purpose, 56-1 
swap-in reason, 42-6 
swap-out reason, 42-6 
window, 56-2 
debugging, 8-2 

variable, 41-3,42-4 
debugging tools, 56-1 
debugging utilities, 56-1 
OebugUsefulDefs, 56-1 
default output sink, 19-1 
delay, 57-2 
deleted text, 17-2 
deleting files, 46-6 
discontinuous text source, 40-5 
disk file 

editing, 11-3 
saving edits, 11-3 
storing edits, 11-3 
subwindow, 11-1 
disk source, 34-1 
Disk Source, 34-1 
Display, 23-1 
Display 

implementation, 23-1 
display 

rectangles, 21-4 
region, 17-1 
state, 57-2 
text, 39-1,39-2,40-1 
tool window, 21-1,21-7 
display procedure, III-l 
distinguished name, 1-2 
domain 

default, 41-3,42-4 
echoing characters 

teletype subwindow, 18-3 
editable window, 12-1 
editing 

facilities, 39-1,40-1 
teletype subwindow, 18-3 
ENABLE, IV-2 
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enabling conditions, IV-2 
enumerating files, 46-1,46-6,46-8,46-10 
error message, 14-1 
Event, 41-1 
example, 41-3 

event notification, 41-1,42-1 
event definitions, 41-1 
Events, IV-1 
EventTypes, 41-1 42-1 
example, 41-3 
examining debugee, 56-4 
example 

batch tool, 5-7 

command line expansion, 6-2 
command line parsing, 9-8 
coroutine sort, 54-4 
enumerating files, 46-10 
enumerating streams, 46-10 
event mechanism, 41-3 
ExecProc, 5-7 

executing in the notifier, 44-6 
file name pieces, 45-3,46-10 
file segments, 50-7 
parsing items with switches, 9-8 
periodic notifier, 44-6 
reading from command file, 6-2 
sort, 54-4 
stack printer, 56-7 
string lookup, 55-3 
ToolDriver, 10-3 
User.cm parsing, 3-1 
world swap, 41-4 
ExampleTool, 20-1 
Exec, 5-1 
example, 5-7 

Exec.MatchPattern, 5-5 

Executive, 5-1 

command line input, 5-1,5-4,5-7,9-8 
commands, 5-1,5-2,5-4,5-5, 5-6,5-7 
feedback, 5-4 
interactive input, 5-4,5-5 
online help for registered commands, 
5-3 

output, 5-5,5-6 
renaming commands, 5-3 
TIP table, 43-3 
Executive command line, 5-1 
Executive commands, 5-1 
Expand, 6-1 

expansion of wild cards, 6-1 
feedback, 14-1 
cursor, 7-1,7-4 
message, 7-2 

feedback from the Executive, 5-4 
file 

booting from, 7-2,7-3 


buffers, 51-4 

change length, 51-4, 51-5 

cm, 3-1 

copy, 51-2 

delete local, 46-6 

delete remote, 46-6 

editing, 11-3 

enumeration, 46-1,46-6,46-8,46-10 
load, 49-1, 49-2 
local, 45-1,46-1,46-7 
log, 51-2, 51-4 
map into memory, 50-1 
modify, 50-1 
name, 9-4 
ownership, 50-7 
read, 50-1,50-7 
readProtect, 46-2 
remote, 45-1,46-1,46-7,46-9 
rename local, 46-8 
rename remote, 46-8 
run, 49-2 
saving edits, 11-3 
sharing, 51-4 
size, 46-2 
start, 49-1,49-2 
storing edits, 11-3 
stream and segment on, 51-3 
subwindow, 11-1 
times, 46-2 
type, 46-2 
unload, 49-2 
version, 46-2,46-7 
write, 50-7 
File access, V-1 

File management overview, V-1 
File managers, V-5 
file name, 45-1,45-2,45-3, 46-2,46-5, 
46-7 

file server, 46-3,46-7, 46-8 
file server protocol change, 42-4 
file stream, 46-1,46-7,46-8, 46-9, 
46-10 

file subwindow, 11-1, 20-4 
creation, 11-2 
destruction, 11-2 
editing, 11-3 
enumeration, 11-2 
loading, 11-2 
saving edits, 11-3 
storing edits, 11-3 
file window 
create, 42-3 
destroy, 42-4 
edit, 42-4 
empty, 15-1 
load, 42-5 
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notification, 41-2,42-3,42-4,42-5,42-6 
reset, 42-5 
store, 42-6 
TIP table, 43-3 
File windows, V-5 
FileName, 45-1 
example, 45-3 
fileServerProtocol 
default, 41-3 
Filesw, 11-1,20-4, 

FileTransfer, 1-4 
FileTransfer, 46-1 
example, 46-10 
FileWindow, 41-2,12-1 
Find command, 17-3 
flushing input, 43-4 
font 

storage management, 30-1 
font conversion for window display, 31-1 
form sub window, 13-1,20-4 
boolean item, 13-1,13-2,13-14 
command item, 13-1,13-3,13-15 
current selection, 13-17,13-21 
discarding display state information, 
13-22 

displaying items, 13-16,13-23 
editing, 13-4,13-8,13-19,13-22 
enumerated item, 13-1,13-4,13-13 
forcing word alignment, 13-3,13-12 
format, 13-7,13-9,13-12,13-13,13-15, 
13-18,13-19,13-21 
invoking a command, 13-10 
item, 13-1,13-7,13-16 
modifying a boolean item, 13-8 
numeric item, 13-1,13-8,13-9,13-19, 
13-21 

place, 13-7 

recreating display state information, 
13-23 

selecting a menu option, 13-8 
size and positioning of, 13-14 
storage management, 13-5,13-14,13-17 
string item, 13-1,13-10,13-23 
tag item, 13-1,13-7,13-18,13-23 
TIP table, 43-3 
t3rpe-in point, 13-17,13-22 
Format, 19-1 
FormSW, 20-4,13-1 
free page count, 7-1 
GPM, 43-11 

GPM Macro Package, IV-5 
graphics 

window, 23-1 
growing window, 27-4 
GSort, 54-1 
GSortImpl.bcd, 54-1 


heralds 

appending current version, 58-1 
HeraldWtndow, 7-1 
host number 
broadcast, 1-3 
format, 1-3 
parsing, 1-3 
self, 1-3 
hot bit, 26-1 
IFS, 46-3 
inactive, 1-5 
indirect type-in, 44-3 
indirect type-out, 44-3 
initial tool state, 20-2 
initial tool window box, 20-2 
initial window box, 20-2 
input 

redirecting, 44-3 

input focus, 43-2,43-6, 44-1,44-3,44-4 
input token 
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boolean, 9-3 
bracketed, 9-3 
break character, 9-2 
built-in, 9-1 
client-defined, 9-1, 9-4 
file name, 9-4 
input source, 9-1,9-2 
line, 9-5 

numeric, 9-3,9-5, 9-6, 9-7 
quoted, 9-2,9-5,9-7 
string input source, 9-7 
switches, 9-7 
white space, 9-5,9-8 
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manager, 29-5 
recovering, 29-5 
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instance data, 22-1 
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menu, 27-3,27-4 
inter-tool communication, 29-1 
interactive tool, 20-1 
interactive user interface, 18-1,20-1 
interfaces, I-l 
interpreter 
invoking, 56-6 
Interrupt Level, 1-3 
invalid areas, III-2 
invalid boxes 
discovery, 24-8 
invalid regions 
discovery, 24-8 
enumeration, 24-4 
invalid table, 43-3 
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invalid window boxes, 24-5 
invalid window regions, 24-5 
invoking interpreter, 56-6 
invoking scrolling, 28-1 
J.First, 17-5 
J.Insert, 17-5 
J.Last, 17-5 
J.Select, 17-5 
key names, 43-9 
key transition, 44-1 
keyboard mapping, 44-1 
keystrokes, 44-1 
last message, 14-2 
left hand side, 43-5 
librarian, 8-3 

default server, 41-3,42-5 
line-oriented input, 18-3 
load programs, 5-1, 5-5,49-1,49-2 
local file, 45-1,46-1 
log file, 51-2, 51-4 
backing up in, 51-2 
name, 20-6 
subwindow, 20-4 
logical volume boot, 42-2 
login, 5-5,42-5,46-9 
login name, 8-3,8-5 
long selection conversion, 29-2 
macro, 43-11 
manager 

current selection, 29-1,29-5 
insertion, 29-1,29-5 
trash bin, 29-1, 29-5 
marking insertion point, 38-1 
match process, 43-6,43-10 
Matcher, 43-6,1-3, IV-1 
MAXC, 46-3 
ME, 1-3 
measure 

text, 39-1,39-3 
menu 

current, 27-2 
Menu, 27-1 
menu 

instantiate, 27-3, 27-4 
standard text, 17-1 
text, 17-1 

uninstantiate, 27-3,27-5 
menu command routine, 27-2 
message, 7-2 
user, 14-1 

message subwindow, 20-4 
MFHeProperty, 48-1 
MLoader, 49-1 

module name determination, 56-5 


mouse 

events, 43-2 
movement, 43-8 
moving files, 46-1,46-5,46-9 
MSegment, 50-1 
example, 50-7 
MsgSW, 20-4,14-1 
MStream, 51-1 

multiple clicks, 38-2,43-2 
Multiple processes, 1-3 
MVolume, 52-1 
name 

look up, 55-1,55-2, 55-3 
table, 55-1 
user, 8-3,8-5 
netNumber, 1-3 
network address, 1-1 
examples, 1-4 
format, 1-2,1-3 
parsing, 1-2 
network number 
parsing, 1-3 
new search path, 42-5 
NIL, 19-1 

Notification, V-1 
notification 

directory created, 42-4 
directory deleted, 42-4 
file window, 42-3,42-4 
tool window, 42-3 
Notifier, 1-2,1-3 
notifier, 43-6 

periodic, 44-1,44-2,44-3 
return to, 44-2 
NotifyProc, IV-2 
NSFiling, 46-3 
opaque, 43-4 
opaque table, IV-5 
organization, 1-3 
default, 41-3,42-5 
output to windows, 19-1 
packages 
sort, 54-1 
painting 

rectangles, 21-4 
tool window, 21-1,21-7 
parsing, 9-1 
alphabetic, 9-3 
alphanumeric, 9-3 
boolean, 9-3 
bracketed, 9-3 
break character, 9-2 
client-defined tokens, 9-4 
file name, 9-4 
input source, 9-1 
line, 9-5 
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numeric, 9-3,9-5,9-6,9-7 
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quoted tokens, 9-5 
string input source, 9-7 
switches, 9-7 
white space, 9-5,9-8 
password, 8-3, 8-5 
pattern matching, 5-5 
pause, 57-2 
Periodic Notifier, 1-3 
periodic notifier, 44-1,44-2,44-3 
example, 44-6 

Philosophy and conventions, I-l 
physical volume boot 
aborting, 41-2 
piece source, 35-1 
piece table, 35-1 
PieceSource, 35-1 
Pilot 

loader facility, 49-1 
Pilot Programmer’s Manual, 50-1 
Pilot transducer, 51-1 
positionable byte stream, 51-1 
positioning text, 17-6 
powering down, 41-2,42-5 
powerOff, 41-2,42-5 
Printer, 56-1,56-3 
printer 

example, 56-7 
printing in windows, 19-1 
Processing Level, 1-3 
Profile, 8-1,42-4, 
program 

load, 49-1,49-2 
run, 49-2 
start, 49-1,49-2 
unload, 49-2 
program analysis, VII-1 
Program invocation, 1-5 
Put, 19-1 
read 

text, 40-3 

rectangle painting, 21-4 
redirecting input and output, 44-3 
registering Executive commands, 5-1, 5-2, 
5-3,5-6 

registry, 8-2,8-4 
default, 41-3,42-5 
releasing a stream, 51-1 
remote file, 45-1,46-1 
replace 
text, 40-3 
resolve 

text, 39-1,39-3 
Resource management, 1-4 
resume session, 42-3 


returning, 42-2 
right hand side, 43-5 
root TIP table, 43-3 
root window, 21-3, III-2 
running in the Executive, 5-1, 5-2,5-3 
running programs, 5-1, 5-6, 49-2 
save state, 22-1 
scanning, 9-1 
alphabetic, 9-3 
alphanumeric, 9-3 
boolean, 9-3 
bracketed, 9-3 
break character, 9-2 
client-defined tokens, 9-4 
file name, 9-4 
input source, 9-1 
line, 9-5 

numeric, 9-3,9-5, 9-6,9-7 
quoted, 9-7 
quoted tokens, 9-5 
string input source, 9-7 
switches, 9-7 
text, 40-3 

white space, 9-5,9-8 
scratch source, 15-1,36-1 
ScratchSource, 15-1, 36-1 
ScratchSW, 15-1 
scrollbar, 17-1,28-1 
Scrollbar, 28-1 
scrollbar 

horizontal, 28-2 
vertical, 17-2,28-2 
scrolling, 28-1 
direction, 28-1 
text, 17-1 
thumbing, 28-1 
search path change 
abort, 42-2 
veto, 42-2 
searching, VI-1 
segment, 50-1 
create, 50-4 
data, 50-4 
delete, 50-5 
file, 50-1,50-4 
file ownership, 50-7 
force out, 50-5 
kill, 50-6 
release, 50-5 

virtual memory address, 50-3 
virtual memory page number, 50-4 
selection, 17-7,39-1,40-1, 43-2 
actions on, 29-2,29-4 
client-defined actions, 29-5 
client-defined conversions, 29-5 
conversion, 29-1, 29-3 
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conversion of long, 29-2 
Seiection, 29-1 
selection 

long, 29-2,29-4 
manager, 29-1, 29-5 
source, 29-1,29-2 
source mechanism, 29-2 
text, 17-1 
underlined, 38-2 
value, 29-1, 29-3, 29-5 
selection appearance, 38-2 
selection entity, 38-2 
session 

resume, 42-3 
severity 

message, 14-2,14-3 
sibling windows, III-2 
sink 

default output, 19-1 
sinks, III-3 
socketNumber, 1-3 
sort package, 54-1 

coroutine example, 54-4 
example, 54-3 
sorting, VI-1 
source 
block, 36-1 
disk, 34-1 
piece, 35-1 
scratch, 36-1 
string, 37-1 

text, 34-1,35-1,36-1,37-1 
source-independent text display, 17-1 
sources, III-3 
Space, 50-1 

special purpose debugger, 56-1 
Split, 17-1,17-7 
stack printer example, 56-7 
standard menu 
text, 17-1 

starting programs, 5-6,49-1,49-2 
StimLev, 43-6,1-3, IV-1 
Stimulus Level, 1-3 
stimulus level, 43-6 
stopping tools, 5-2, 5-3, 5-7,41-4 
stream, 51-1 

change length, 51-4,51-5 
copy, 51-2 

create, 51-2,51-3, 51-4 
local, 46-7,46-8 
operations, 51-5 
release, 51-1 
remote, 46-7,46-8 
string 

common prefix, 55-2 
conversion to date, 4-1 
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is a prefix of, 55-2 
source, 37-1 
sub window, 16-1, 20-5 
StringLookUp 

DEFINITIONS, 55-1 
example, 3-1, 55-3 
StringOut, 19-1 
StringSource, 37-1 
StringSW, 16-1, 20-4 
subwindow, 21-3 

changing position, 28-2 
changing size, 28-2 
client-defined type, 20-1,20-5 
creation, 18-2,21-4 
disk file backed, 11-1 
display region, 17-1 
file backed, 11-1 
removing, 20-3 
scratch, 15-1 
teletype, 18-1 
types, 24-1 

Supervisor, 41-1, 41-3, 42-1 

supervisor, IV-1 

swap?in reason, 41-4 

swap?out reason, 41-4 

swapping, 41-1,41-2,41-4, 42-2, 42-6 

switches 

booting, 7-1,7-4 
symbiote menu, 20-2 
system font 
default, 42-6 
system heap, 1-4 
systemFont 
default, 41-3 

table look up, 55-1, 55-2, 55-3 
table of commands, 55-1 
tag item, 13-11 

tailorable user interface, 43-1 
Tajo,I-2 

user interface, 20-1 
utilities, 57-1 
TajoMisc, 57-1 

teletype subwindow, 18-1 
echoing characters, 18-3 
type-in, 18-3 
temporary file, 50-4 
TENEX, 46-3 
terminal interaction 
line-oriented, 18-3 
terminal state, 57-2 
text 

caret, 25-1 
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display, 39-1,39-2,40-1 
insertion, most recent, 29-1 
insertion point, 25-1 
measure, 39-1,39-3 
read,40-3 
replace, 40-3 
resolve, 39-1, 39-3 
scan, 40-3 
selection, 17-1 
source, 36-1, 37-1 
source, implementing, 40-3 
source, semantics, 40-3 
text file 

editing, 11-3 
saving edits, 11-3 
storing edits, 11-3 
Text Ops menu, 17-1,17-5,17-8 
Find, 17-3 
J.First, 17-5 
J.Insert, 17-5 
J.Last, 17-5 
J.Select, 17-5 
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Split, 17-7 
Wrap, 17-8 
text sink, 32-1 
text source, 34-1,35-1 
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TIP table, 43-3 
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TextSW, 17-1, 20-5 
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TIP table, 43-6 
compiled, 43-4 
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invalid, 43-3 
opaque, 43-4 
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clipping subwindow, 21-3 
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size, 21-2 

size adjustment, 21-1,21-6 
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